1
0
mirror of git://projects.qi-hardware.com/wernermisc.git synced 2024-12-24 06:59:33 +02:00
wernermisc/m1/perf/favg

20 lines
292 B
Perl
Executable File

#!/usr/bin/perl
$sel = $ARGV[0];
shift @ARGV;
for (@ARGV) {
$s = 0;
$n = 0;
open(FILE, $_) || die "$_: $!";
while (<FILE>) {
$c = 0 if /<TR>/;
if (/<TD[^>]*>([0-9.]+)/ ) {
$c++;
next unless $c == $sel;
$s += $1;
$n++;
}
}
close FILE;
print "$s/$n = ", $s/$n, "\n";
}