> Is there a simpler way ?
---
use strict;
use Benchmark;
timethese (-1, {
one => 'my @one = (1..10);
my @two = (11..20);
scalar(@one);',
two => 'my @one = (1..10);
my @two = (11..20);
scalar(@two), "\n";'
});
---
Benchmark: running one, two, each for at least 1 CPU seconds...
one: 1 wallclock secs ( 1.05 usr + 0.00 sys = 1.05 CPU) @
191443.39/s
(n=201207)
two: 1 wallclock secs ( 1.06 usr + 0.00 sys = 1.06 CPU) @
190574.39/s
(n=202390)
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
