Root/m1rc3/norruption/2/collda

Source at commit 57b53c61c1b37a913fc963c3c0bec0364efbcb7e created 10 years 1 month ago.
By Werner Almesberger, ircstat/ML: update for 2014-01
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