Codebase list findbugs / 0d68ef01-4042-4d86-a5e7-f2b5f58a1f12/main etc / summarizeBugs
0d68ef01-4042-4d86-a5e7-f2b5f58a1f12/main

Tree @0d68ef01-4042-4d86-a5e7-f2b5f58a1f12/main (Download .tar.gz)

summarizeBugs @0d68ef01-4042-4d86-a5e7-f2b5f58a1f12/main 

bae81f4
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
#! /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";
}