wernermisc/m1rc3/norruption/2/collda

#!/usr/bin/perl
while (<>) {
	if (/^=== (\d+) ==/) {
		$c = $1;
		next;
	}
	next unless /Checking : (\S+)\s+CRC failed.* got (\S+)\)/;
	if ($1 eq "standby.fpg") {
		$n++;
		$c{$n} = $c+1;
		next;
	}
	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";
}