[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