Re: How to define a list of regular expressions?

qr is quoting operator

my @regexes = ( qr'verb [\w<>]+\s+/', qr'noun \w+\s+/', ... );

for my $re (@regexes ){
    $sizes{ $version }{ $file } ++ if /$re/;
}
[download]

Comment on Re: How to define a list of regular expressions? Download Code

Replies are listed 'Best First'.
Re^2: How to define a list of regular expressions? by pat_mc (Pilgrim) on Jul 01, 2009 at 10:21 UTC
Thanks, Anonymous Monk ... What, though, if I do not want to loop over the regexes but retrieve them from the list via `shift` when needed? Can you point out to me where or why my code is broken? Thanks - Pat	[reply] [d/l]
Re^3: How to define a list of regular expressions? by grizzley (Chaplain) on Jul 01, 2009 at 12:09 UTC
Instead of `my $regex = qr/shift @regexes/;` do just `my $regex = shift @regexes;`	[reply] [d/l] [select]