Re: Usage of grep on a file

[rafl]

in reply to Usage of grep on a file

First of all, use qr// to precompile your patterns:

my @compiled_patterns = map { qx/$_/ } @matcharray;

Also don't slurp the file into an array. Use something more memory-efficient:

OUTER: while (my $line = <$file>) {
  INNER: for my $pattern (@compiled_patterns) {
    print $line, last INNER if $line =~ $pattern;
  }
}

Cheers, Flo

[jwkrahn]

Your text says "qr//" but your code says "qx//". Using qx// in this situation could prove very interesting! :-)