File: summarizeBugs

package info (click to toggle)
findbugs 2.0.3%2Brepack-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 16,220 kB
  • ctags: 19,327
  • sloc: java: 123,960; xml: 30,230; sh: 356; sql: 126; perl: 122; makefile: 45
file content (16 lines) | stat: -rw-r--r-- 220 bytes parent folder | download | duplicates (4) 
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";
}