Help for this page

Select Code to Download


  1. or download this
    our %pkg_hash; local *pkg_hash = \%lex_hash;
  2. or download this
    my $re = join '|', map quotemeta, keys %dict;
s/($re)/$hash{$1}/g;
  3. or download this
    use Regexp::List qw( );
my $re = Regexp::List->new()->list2re(keys %dict);
s/$re/$hash{$1}/g;