mirror of
git://projects.qi-hardware.com/wernermisc.git
synced 2024-12-18 20:45:00 +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