Help for this page

Select Code to Download


  1. or download this
    my @compiled_patterns = map { qx/$_/ } @matcharray;
    
  2. or download this
    OUTER: while (my $line = <$file>) {
      INNER: for my $pattern (@compiled_patterns) {
        print $line, last INNER if $line =~ $pattern;
      }
    }