1
0
mirror of git://projects.qi-hardware.com/wernermisc.git synced 2024-12-18 23:44:04 +02:00

m1rc3/norruption/2/collda: report collateral damage in non-standby partitions

This commit is contained in:
Werner Almesberger 2011-10-11 12:14:45 -03:00
parent 04e7d1186d
commit b012a1aa6d

22
m1rc3/norruption/2/collda Executable file
View File

@ -0,0 +1,22 @@
#!/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";
}