mirror of
git://projects.qi-hardware.com/wernermisc.git
synced 2024-12-19 07:55:21 +02:00
23 lines
379 B
Plaintext
23 lines
379 B
Plaintext
|
#!/usr/bin/perl
|
||
|
|
while (<>) {
|
||
|
|
if (/^=== (\d+) ==/) {
|
||
|
|
$c = $1;
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
next unless /Checking : (\S+)\s+CRC failed.* got (\S+)\)/;
|
||
|
|
$n++;
|
||
|
|
$c{$n} = $c;
|
||
|
|
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";
|
||
|
|
}
|