1
0
mirror of git://projects.qi-hardware.com/wernermisc.git synced 2024-11-25 17:25:55 +02:00
wernermisc/m1rc3/norruption/2/collda

25 lines
392 B
Perl
Executable File

#!/usr/bin/perl
while (<>) {
if (/^=== (\d+) ==/) {
$c = $1;
next;
}
next unless /Checking : (\S+)\s+CRC failed.* got (\S+)\)/;
if ($1 eq "standby.fpg") {
$n++;
$c{$n} = $c+1;
next;
}
next if $last{$1} eq $2;
if (defined $h{$n}) {
$h{$n} .= ", ".$1;
} else {
$h{$n} = $1;
}
$last{$1} = $2;
}
for (sort { $a <=> $b } keys %h) {
print "$_ ($c{$_}): ", $h{$_}, "\n";
}