Opened by Reputation at 2005-03-16 17:05
User since
2003-11-28
3645 Artikel
ModeratorIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-11-28
3645 Artikel
ModeratorIn
Ein externes Programm aufzurufen ist relativ teuer. Ich habe gerade mal md5sum gegen Digest::MD5 getestet: 0.97 vs. 0.03 Sekunden.
Aufruf mit
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl -w
use Digest::MD5 qw(md5_hex);
use Time::HiRes qw(gettimeofday tv_interval);
my $howmany = shift || 100;
my $t0;
$t0 = [ gettimeofday ];
for (1..$howmany) { system("md5sum", $0) }
print STDERR tv_interval($t0), "\n";
$t0 = [ gettimeofday ];
for (1..$howmany) {
open(my $SELF, $0) or die $!;
local $/ = undef;
my $buf = <$SELF>;
close $SELF;
print md5_hex($buf), "\n";
}
print STDERR tv_interval($t0), "\n";
Aufruf mit
Code: (dl
)
skript.pl 1000 > /dev/null