Help for this page

Select Code to Download


  1. or download this
    my $pat = join '|', keys(%hashstore);
$doc =~ s!\b($pat)\b!$1/$hashstore{uc($1)}!ig;
  2. or download this
    my %hashstore = ( "DEXX" => "AREX", "AREX" => "CUBE" );

...
print("$doc1\n");  # DEXX/AREX/CUBE
print("$doc2\n");  # DEXX/AREX
print("$doc3\n");  # DEXX/AREX