Help for this page

Select Code to Download


  1. or download this
    use strict;
my (@keywords, %keyword)=qw/foo bar 12345 abcd/;
my ($string, %result) = "foobarfoo1234523423412345abcdefsadfabc";
  2. or download this
    @keyword{@keywords} =  map {qr/\Q$_\E/} @keywords;
  3. or download this
    $result{$_} = () = $string =~ $keyword{$_}
    for (keys %keyword);
  4. or download this
    my @regexen = map {
    qr/(?:\Q$_\E(?{$result{$_}++}))/
} @keywords;
...
    local $" = '|';
    qr/@regexen/;
};
  5. or download this
    $string =~ /$re/g;
print "$_: $result{$_}\n" for @keywords;