Dashboard
PHP:
8.2.33
OS:
Linux
User:
chavanhyd
/
/
usr
/
share
/
doc
/
perl-Hash-FieldHash
/
benchmark
📤 Upload
📝 New File
📁 New Folder
Close
Editing: fieldhash.pl
#!perl -w use strict; use Benchmark qw(:all); use Hash::FieldHash (); my $HUF; BEGIN{ if( eval{ require Hash::Util::FieldHash } ){ $HUF = 'Hash::Util::FieldHash'; } else{ require Hash::Util::FieldHash::Compat; $HUF = 'Hash::Util::FieldHash::Compat'; } $HUF->import(qw(fieldhash)); } printf "Perl %vd on $^O\n", $^V; print "$HUF ", $HUF->VERSION, "\n"; print "Hash::FieldHash ", Hash::FieldHash->VERSION, "\n"; fieldhash my %huf; Hash::FieldHash::fieldhash my %hf; my %hash; cmpthese timethese -1 => { 'H::U::F' => sub{ my $o = bless {}; for(1 .. 10){ $huf{$o} = $_; $huf{$o} = $huf{$o} + $huf{$o} + $huf{$o}; $huf{$o} == ($_*3) or die $huf{$o}; } }, 'H::F' => sub{ my $o = bless {}; for(1 .. 10){ $hf{$o} = $_; $hf{$o} = $hf{$o} + $hf{$o} + $hf{$o}; $hf{$o} == ($_*3) or die $hf{$o}; } }, 'normal' => sub{ my $o = bless {}; for(1 .. 10){ $o->{value} = $_; $o->{value} = $o->{value} + $o->{value} + $o->{value}; $o->{value} == ($_*3) or die $o->{value}; } }, };
Save
Cancel