Root/m1rc3/norruption/2/collda

Source at commit cb024e1f421862903ed9fd81dd805fa8b1e67bea created 7 years 9 months ago.
By Werner Almesberger, m1rc3/norruption/2/collda: oops, only look for collateral damage on standby.fpg
1#!/usr/bin/perl
2while (<>) {
3    if (/^=== (\d+) ==/) {
4        $c = $1;
5        next;
6    }
7    next unless /Checking : (\S+)\s+CRC failed.* got (\S+)\)/;
8    if ($1 eq "standby.fpg") {
9        $n++;
10        $c{$n} = $c+1;
11        next;
12    }
13    next if $last{$1} eq $2;
14    if (defined $h{$n}) {
15        $h{$n} .= ", ".$1;
16    } else {
17        $h{$n} = $1;
18    }
19    $last{$1} = $2;
20}
21
22for (sort { $a <=> $b } keys %h) {
23    print "$_ ($c{$_}): ", $h{$_}, "\n";
24}
25

Archive Download this file

Branches:
master



interactive