#! perl

# Copyright (C) 2006, The Perl Foundation.
# $Id: fail_analysis.pl 21231 2007-09-12 19:29:54Z paultcochrane $

use warnings;
use strict;

my %res = ();
while (<>) {

    # Extract message
    chomp;
    s/^\s*\*\*FAILED\*\*\s*\(//;
    s/\)$//;

    # Remove instruction code
    s/ \(code \d+\)//;

    $res{$_}++;
}

print "$_ & $res{$_} \\\\\n" foreach keys %res;

# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4: