Re: default variable question

Replies are listed 'Best First'.
Re^2: default variable question by derby (Abbot) on Feb 07, 2006 at 17:17 UTC
safe bet! `#!/usr/bin/perl use Benchmark qw(:all); my $count = 1000000; timethese($count, { 'Name1' => sub { my( $a, $b, $c, $d ) = qw( kookla fran and ollie ); foreach ($a, $b, $c, $d) { tr/a-z/A-Z/; } }, 'Name2' => sub { my( $a, $b, $c, $d ) = qw( kookla fran and ollie ); for my $i ($a, $b, $c, $d) { $i =~ tr/a-z/A-Z/; } }, });` [download] gives me: `Benchmark: timing 1000000 iterations of Name1, Name2... Name1: 15 wallclock secs (15.70 usr + 0.08 sys = 15.78 CPU) @ 63 +371.36/s (n=1000000) Name2: 15 wallclock secs (15.31 usr + 0.02 sys = 15.33 CPU) @ 65 +231.57/s (n=1000000)` [download] -derby	[reply] [d/l] [select]
Re^3: default variable question by spiritway (Vicar) on Feb 08, 2006 at 03:08 UTC
My results were a little different (using Perl 5.8.7 on Windows). I got: `Name1: 42 wallclock secs (36.77 usr + -0.00 sys = 36.76 CPU) @ 272005. +22/s (n=10000000) Name2: 49 wallclock secs (42.80 usr + 0.03 sys = 42.83 CPU) @ 233486. +66/s (n=10000000)` [download] And then: `Name1: 42 wallclock secs (36.52 usr + 0.08 sys = 36.59 CPU) @ 273268. +84/s (n=10000000) Name2: 42 wallclock secs (36.47 usr + 0.00 sys = 36.47 CPU) @ 274213. +01/s (n=10000000)` [download] I don't know what is making the difference with these results, unless it's other programs getting CPU time.	[reply] [d/l] [select]
Re^2: default variable question by ikegami (Patriarch) on Feb 07, 2006 at 18:51 UTC
Ah but you forget that while the first doesn't need to create lexical `$i`, it does need to localize `$_`.	[reply] [d/l] [select]