mirror of
git://projects.qi-hardware.com/wernermisc.git
synced 2024-12-18 22:41:52 +02:00
m1rc3/norruption/2/collda: report collateral damage in non-standby partitions
This commit is contained in:
parent
04e7d1186d
commit
b012a1aa6d
22
m1rc3/norruption/2/collda
Executable file
22
m1rc3/norruption/2/collda
Executable 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";
|
||||||
|
}
|
Loading…
Reference in New Issue
Block a user