mirror of
git://projects.qi-hardware.com/wernermisc.git
synced 2024-12-20 04:25:55 +02:00
23 lines
381 B
Perl
Executable File
23 lines
381 B
Perl
Executable File
#!/usr/bin/perl
|
|
while (<>) {
|
|
if (/^=== (\d+) ==/) {
|
|
$c = $1;
|
|
next;
|
|
}
|
|
next unless /Checking : (\S+)\s+CRC failed.* got (\S+)\)/;
|
|
$n++;
|
|
$c{$n} = $c+1;
|
|
next if $1 eq "standby.fpg";
|
|
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";
|
|
}
|