|
Regexp::Trie - builds trie-ized regexp |
Regexp::Trie - builds trie-ized regexp
use Regexp::Trie;
my $rt = Regexp::Trie->new;
for (qw/foobar fooxar foozap fooza/){
$rt->add($_);
}
print $rt->regexp, "\n" # (?-xism:foo(?:bar|xar|zap?))
This module is a faster but simpler version of the Regexp::Assemble manpage or the Regexp::Optimizer manpage. It builds a trie-ized regexp as above.
This module is faster than the Regexp::Assemble manpage but you can only add
literals. a+b is treated as a\+b, not ``more than one a's
followed by b''.
I wrote this module because I needed something faster than the Regexp::Assemble manpage and the Regexp::Optimizer manpage. If you need more minute control, use those instead.
See t/dict2rx.pl to find how to convert a big dictionary into a single regexp that can be later loaded as:
my $rx = do 'dict.rx';
None.
the Regexp::Optimizer manpage, the Regexp::Assemble manpage, the Regex::PreSuf manpage
Dan Kogai, <dankogai@dan.co.jp>
Copyright (C) 2006 by Dan Kogai
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.
|
Regexp::Trie - builds trie-ized regexp |