1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
#! /usr/bin/perl
# Compare deltas for bug summaries produced by the summarizeBugs script.
use FileHandle;
use strict qw(refs vars);
if (scalar(@ARGV) != 2) {
print "Usage: diffBugSummaries <oldfile> <newfile>\n";
exit 1;
}
my $oldfile = shift @ARGV;
my $newfile = shift @ARGV;
my %allKeys = ();
my %oldResults = parseResults($oldfile);
my %newResults = parseResults($newfile);
my $oldTotal = 0;
my $newTotal = 0;
foreach my $key (sort keys %allKeys) {
my $oldBugs = $oldResults{$key};
my $newBugs = $newResults{$key};
my $delta = $newBugs - $oldBugs;
if ($delta != 0) {
$delta = "+$delta" if ($delta > 0);
print "\t$key:\t$delta\n";
}
$oldTotal += $oldBugs;
$newTotal += $newBugs;
}
print "\tTotal: old=$oldTotal, new=$newTotal\n";
sub parseResults {
my ($file) = @_;
my %results = ();
my $fh = new FileHandle("<$file");
(defined $fh) || die "Couldn't open $file: $!\n";
while (<$fh>) {
if (/(\S+):\s+(\d+)/) {
$allKeys{$1} = 1;
$results{$1} = $2;
}
}
$fh->close();
return %results;
}
# vim:ts=4
|
