Re: Simply Too Slow Find and Replace

in reply to Simply Too Slow Find and Replace

foreach $pair ( @pairs ){
  ($key,$value) = split (/=/, $pair);
  chomp ($value);
  $s{lc $key} = $value;
}
foreach $name ( @names ){
      $name =~s/(\s(\w+))/$s{lc $2}||$1/ieg;
}
[download]

Comment on Re: Simply Too Slow Find and Replace Download Code

Replies are listed 'Best First'.
Re: Re: Simply Too Slow Find and Replace by samtregar (Abbot) on Jun 03, 2002 at 05:06 UTC
Yow! That's probably going to be a heck of a lot slower than what's he's doing already. That will do a substitution on every pass, whether it contains a match or not! -sam	[reply]

In Section Seekers of Perl Wisdom