in reply to Re: Array to Hash
in thread Array to Hash
Very cool, btrott. And faster than mine:
use Benchmark; my @array = qw(a b c d e f g h i j k l m n o p q r s t u v w z y z); my %hash; timethese(500000, { 'btrott' => sub { @hash{@array} = (1) x @array; }, 'httptech' => sub { for (@array) { $hash{$_} = 1 } }, }); Benchmark: timing 500000 iterations of btrott, httptech... btrott: 14 wallclock secs (14.58 usr + 0.00 sys = 14.58 CPU) httptech: 20 wallclock secs (20.68 usr + 0.01 sys = 20.69 CPU)
|
---|
Replies are listed 'Best First'. | |
---|---|
RE: RE: Re: Array to Hash
by plaid (Chaplain) on May 10, 2000 at 21:25 UTC | |
by Danimal (Novice) on May 12, 2000 at 20:13 UTC | |
RE: RE: Re: Array to Hash
by Danimal (Novice) on May 12, 2000 at 20:22 UTC |
In Section
Seekers of Perl Wisdom