Codebase list findbugs / 9e04488b-3d21-4a08-a5d7-e262c5b28cbf/main etc / summarizeBugs
9e04488b-3d21-4a08-a5d7-e262c5b28cbf/main

Tree @9e04488b-3d21-4a08-a5d7-e262c5b28cbf/main (Download .tar.gz)

summarizeBugs @9e04488b-3d21-4a08-a5d7-e262c5b28cbf/mainraw · history · blame

#! /usr/bin/perl

use strict qw(refs vars);

my %counts = ();

while (<>) {
	if (/^(\S+\s+)?(\S+):/) {
		$counts{$2}++;
	}
}

foreach my $key (sort keys %counts) {
	my $count = $counts{$key};
	print "$key:\t$count\n";
}