NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.
All the Perl that's Practical to Extract and Report
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.
Performance (Score:2)
Re:Performance (Score:3, Interesting)
Re:Performance (Score:3, Interesting)
Reply to This
Parent
Re:Performance (Score:1)
Re:Performance (Score:1)
$i = 1_000_000;
do {
$i--;
$bar = $foo{'foo'};
} while ($i);
takes 2.21 sec usertime for perl 5, 1.4 sec usertime for parrot. The code needs some optimization still, as it's a bit slower than I'd like, but it's not bad for a first go.
Re:Performance (Score:2)
I assume that's also without JIT? And JIT would speed up the loop, I suspect.
Re:Performance (Score:1)