Leser: 5
6 Einträge, 1 Seite |
1 2 3 4 5 6 7 8 9 10 11 12
#!/usr/bin/perl use warnings; use strict; $|=1; my @start = times; # genauer als time for (my $i=0; $i<=5; $i++) { # irgendwas was Zeit kostet print "."; sleep 1; } print "\n"; my @end = times; my @diffs = map { $end[$_] - $start[$_] } 0 .. $#end; print "Dauer insgesamt ist @diffs";
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/env perl
use warnings; use strict;
$|++;
my @start = times;
for (1 .. 5) {
print ".";
recuridle(qw(a b c));
}
print "\n";
my @end = times;
my @diffs = map { $end[$_] - $start[$_] } 0 .. $#end;
print "Dauer insgesamt ist @diffs";
sub recuridle {
return if @_ > 100;
my @foo = @_;
return recuridle(@foo, [@foo]);
}
use Time::HiRes qw(time);
my $diff=$^T-time();
6 Einträge, 1 Seite |