Re: Word replace - notetab light vs perl

[Courage]

Your code could still be optimized to run two magnitudes faster.

If you'll match/replace entire contents as a string with a single s///g expression, instead of your "while" construct, you'll see dramatic speed increase.

You'll be surprised many times to see how fast Perl sometimes is....

[kiat]

Thanks, Courage :)

Did you mean the following?

use Benchmark;
$start = new Benchmark;

open(FH, "wrongs") or die $!;
open(FH2, ">wrongs2") or die $!;
undef $/;
$lines = <FH>;
$counted2 = $lines =~ s/wrongs/wrongs4/g;
print FH2 "$lines";
$/ = "\n";
close (FH);
close (FH2);
$end = new Benchmark;

# calculate difference
$diff = timediff($end, $start);
print "replaced: $counted2 The operation took: " , timestr($diff, 'all
+');

[Courage]

yes, you're fast to learn. :)
regular expressions were speed-optimized a lot. Do RTFS a bit, and you'll have an idea on what I have in mind.

A drawback of such optimization - no-one now can improve that code, because it is highly complicated.

Well, this is not the only place on where perl has good speed abilities.

[tilly]

Ilya has that general effect. :-)