in reply to hashes in regexes

Your methods goes through the string N times, where N is the number of keys in your hash. Create the regex with qr//: 
$keys = join '|', map "\Q$_\E", keys %sub_hash;
$keys_REx = qr/$keys/;

$string =~ s/($keys_REx)/$sub_hash{$1}/g;

[download]


japhy -- Perl and Regex Hacker

Replies are listed 'Best First'.
Re^2: hashes in regexes
by tadman (Prior) on Mar 29, 2001 at 04:12 UTC
    I'm not sure about the application, but it might be advisable to at least put in some '\b's to prevent unfortunate collisions that would render some names as "Mikestone", or "Moeseph".

    Here is a slight modification of japhy's (or merlyn's, you decide) code: 
      $keys     = join '|', map "\\b\Q$_\E\\b", keys %sub_hash;
  $keys_REx = qr/$keys/;
  $string   =~ s/($keys_REx)/$sub_hash{$1}/g;

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom