Re^2: default variable question

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

Comment on Re^2: default variable question Select or Download Code

Replies are listed 'Best First'.
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]

Replies are listed 'Best First'.

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]