Conservancy/gpl-compliance-tools
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Changed format of output to be more uniform. Include percentage.

Browse source
This commit is contained in:
Bradley M. Kuhn 2011-08-30 13:24:30 -04:00
parent c44ec348eb
commit f4147dc085
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
blame-counter.plx
View file

@ -83,11 +83,13 @@ while (my $dataLine = <DATA_FILE>) {
}
}
close DATA_FILE;
foreach my $file (sort keys %data) {
foreach my $file (sort { $data{$b}{confirmedCommits} <=> $data{$a}{confirmedCommits} }
keys %data) {
next if $data{$file}{commitsInRange} == 0 or $data{$file}{confirmedCommits} == 0;
print sprintf("%s has %d lines from commits in range and %d of those lines are on confirmed list\n",
$file, $data{$file}{commitsInRange}, $data{$file}{confirmedCommits});
print sprintf("%6d lines confirmed in %38s: (%6d in range), making %6.2f%% of file from confirmed list\n",
$data{$file}{confirmedCommits}, $file, $data{$file}{commitsInRange},
($data{$file}{confirmedCommits} / $data{$file}{commitsInRange}) * 100.00);
}
#
# Local variables: