Help for this page

Select Code to Download


  1. or download this
    @patterns = map qr/\Q$_\E/, @patterns;
  2. or download this
            foreach my $pattern (@patterns)
            {
                if (-1 != index $line, $pattern)
    ...
                    last;
                }
            }
    
  3. or download this
    chomp @$srcRef;
    my %pattern;
    @pattern{@patterns} = ();
    my @events = grep {exists $pattern{$_}} @$srcRef;