Re^2: Word replace - notetab light vs perl

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
+');
[download]

Comment on Re^2: Word replace - notetab light vs perl Download Code

Replies are listed 'Best First'.
Re^3: Word replace - notetab light vs perl by Courage (Parson) on Oct 06, 2005 at 18:18 UTC
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. Best regards, Courage, the Cowardly Dog	[reply]
Re^4: Word replace - notetab light vs perl by tilly (Archbishop) on Oct 11, 2005 at 04:03 UTC
Ilya has that general effect. :-)	[reply]


Just another Perl shrine
	PerlMonks