X-Git-Url: https://bilbo.iut-bm.univ-fcomte.fr/and/gitweb/loba.git/blobdiff_plain/0fecd0fc8c395fa209a8a9bbd32c3a88c3281f49..83a3f82cc260646073f39d2b0862e4ca9e6608e4:/extract.pl?ds=inline diff --git a/extract.pl b/extract.pl index a174a9e..2862fe9 100755 --- a/extract.pl +++ b/extract.pl @@ -8,8 +8,8 @@ my $flt = '[+-]?\d+(?:\.\d+)?(?:[eE][+-]?\d+)?'; my $pflt = "($flt)"; my $prefix = '^\[([^: ]+)(?::loba:\(\d+\))? ' . $pflt . '\] \[proc/INFO\] '; my $initmatch = $prefix . 'Initial load: ' . $pflt; -my $finalmatch = $prefix . 'Final load after (\d+):(\d+) iterations: ' . $pflt;; -my $plainmatch = $prefix . '\((\d+):(\d+)\) current load: ' . $pflt; +my $finalmatch = $prefix . 'Final load after (\d+):(\d+):(\d+) iterations: ' . $pflt;; +my $plainmatch = $prefix . '\((\d+):(\d+):(\d+)\) current load: ' . $pflt; my %alldata = (); @@ -21,7 +21,7 @@ while (<>) { time => $2, lb => $3, comp => $4, - load => $5, + load => $6, }; # print STDERR "PUSH $host $data->{time} $data->{load} (plain/final)\n"; push @{$alldata{$host}}, $data; @@ -45,5 +45,5 @@ foreach my $host (sort(keys %alldata)) { foreach my $data (@{$datalist}) { print "$data->{time} $data->{load}\n"; } - print "\n" + print "\n\n" }