in reply to Re: Word replace - notetab light vs perlin thread Word replace - notetab light vs perl
Did you mean the following?
$start = new Benchmark;
open(FH, "wrongs") or die $!;
open(FH2, ">wrongs2") or die $!;
$lines = <FH>;
$counted2 = $lines =~ s/wrongs/wrongs4/g;
print FH2 "$lines";
$/ = "\n";
$end = new Benchmark;
# calculate difference
$diff = timediff($end, $start);
print "replaced: $counted2 The operation took: " , timestr($diff, 'all
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.
Courage, the Cowardly Dog
There is no Extraterrestrial life
There aren't any suitably capable Extraterrestrials
Interstellar travel is too difficult
We're too uncool / not worth the trouble
What do you mean they haven't visited?
Results (562 votes). Check out past polls.