[Omaha.pm] Parsing a Text File
Jay Hannah
jay at jays.net
Fri May 29 14:56:40 PDT 2009
Chris St. Pierre wrote:
> my $ra = Regexp::Assemble->new();
> foreach (@regexps) {
> $ra->add($_);
> }
> my $re = $ra->re;
Ooo! That's slick! I was going to suggest using qr//o to compile each
regex once and only once, then a foreach loop.
perldoc perlop
qr/STRING/imosx
$0.02,
j
----------------------------------
my @res = (
qr/AAA/,
qr/BBB/,
qr/CCC/
);
while (<DATA>) {
foreach my $re (@res) {
($_ =~ $re) && print && last;
}
}
__DATA__
blah
blAAAh
blCCCh
blah
More information about the Omaha-pm
mailing list