Advanced File Manager

📍 Lokasi: /usr/share/doc/perl-Hash-FieldHash/benchmark 💾 Free: 45.8 GB

✏️ Mengedit: 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};
		}
	},
	
};

❌ Batal

Nama	Ukuran	Dimodifikasi	Permission	Aksi
📎 create_many.pl	862 B	2017-02-06 01:10	0644	✏️ Edit ⬇
📎 fieldhash.pl	1 KB	2017-02-06 01:10	0644	✏️ Edit ⬇
📎 hand-written.pl	1.1 KB	2017-02-06 01:10	0644	✏️ Edit ⬇
📎 mouse.pl	1.7 KB	2017-02-06 01:10	0644	✏️ Edit ⬇
📎 threads.pl	1 KB	2017-02-06 01:10	0644	✏️ Edit ⬇

📂 Advanced File Manager

✏️ Mengedit: fieldhash.pl

✍️ Rename: