Bestimmte Anzahl von Zeichen mit Regexp filtern - #61820 (Allgemeines zu Perl)

Strat

2006-01-12 20:57

User since
2003-08-04
5246 Artikel
ModeratorIn

[quote=Strat,12.01.2006, 17:32][/quote]
code zu proc etc
am anfang:

Code: (dl )

1
2

use Benchmark;
my $benchmarkStart = Benchmark->new();

am ende:

Code: (dl )

# statistics
my ($cpuTime, $execTime, $load) = ('-', '-', '-');

my $benchmarkEnd = Benchmark->new();
my $diff = Benchmark::timediff($benchmarkEnd, $benchmarkStart);
my $str  = Benchmark::timestr($diff);

if ($str =~
    /(\d+)\s*wallclock secs \(\s*?(\d*?\.\d*?)\s*usr\s*\+\s*(\d*?\.\d*?)\s/i) {
    $cpuTime = $2; $execTime = $1;
} # if

if (open (LOAD, '/proc/loadavg')) {
    $load = substr(<LOAD>, 0, 5);
    close (LOAD);
} # if

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/