Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

RE: Re: each or keys?

by merlyn (Sage)
on Oct 11, 2000 at 03:42 UTC ( #36158=note: print w/replies, xml ) Need Help??

in reply to Re: each or keys?
in thread each or keys?

Copying the hash means that keys and values might come out in different orders, and since you're quitting when the total reaches a certain point, you have a bogus benchmark.

I suggest setting all the values to be the same and rerunning the benchmarks.

-- Randal L. Schwartz, Perl hacker

Replies are listed 'Best First'.
RE: RE: Re: each or keys?
by extremely (Priest) on Oct 11, 2000 at 04:00 UTC

    Good call

    Benchmark: running each, keys, each for at least 10 CPU seconds...
          each: 11 wallclock secs (10.51 usr +  0.00 sys = 10.51 CPU) @ 417.32/s (n=4386)
          keys: 11 wallclock secs (10.53 usr +  0.00 sys = 10.53 CPU) @ 286.89/s (n=3021)
          Rate keys each
    keys 287/s   -- -31%
    each 417/s  45%   --

    This is with $top_hash{$i} = 50; and cmpthese(-10, { 'each' => \&e, 'keys' => \&k }); and otherwise the same as above.

    $you = new YOU;
    honk() if $you->love(perl)

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://36158]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (6)
As of 2021-04-20 16:45 GMT
Find Nodes?
    Voting Booth?

    No recent polls found