in reply to One line assigment statement with regex match
?my @terms = qw(one two three); @matches = grep { my $line = $_; grep {$line =~ /$_/} @terms } @lines_ +from_file;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: One line assigment statement with regex match
by jZed (Prior) on Jun 22, 2005 at 21:49 UTC |