36 lines
764 B
Perl
36 lines
764 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
#
|
||
|
|
# This script can generate commit statistics from 'git log --shortstat -z tag1..tag2' output
|
||
|
|
#
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
local $/ = "\x0";
|
||
|
|
|
||
|
|
my %auth;
|
||
|
|
our $commits;
|
||
|
|
our $insertions;
|
||
|
|
our $deletions;
|
||
|
|
our $author;
|
||
|
|
|
||
|
|
while (<>) {
|
||
|
|
($author) = /Author: (.*) </;
|
||
|
|
my ($insert, $delete) = /files changed, (\d+) insert.*(\d+) delet/;
|
||
|
|
next unless defined $insert;
|
||
|
|
$auth{$author} = [0, 0, 0] unless defined($auth{$author});
|
||
|
|
my @l = @{$auth{$author}};
|
||
|
|
$auth{$author} = [$l[0] + 1, $l[1] + $insert, $l[2] + $delete];
|
||
|
|
}
|
||
|
|
|
||
|
|
for $author (sort { $auth{$b}->[0] <=> $auth{$a}->[0] } keys %auth) {
|
||
|
|
($commits, $insertions, $deletions) = @{$auth{$author}};
|
||
|
|
write;
|
||
|
|
}
|
||
|
|
|
||
|
|
format STDOUT =
|
||
|
|
@#### @###### @###### @*
|
||
|
|
$commits, $insertions, $deletions, $author
|
||
|
|
.
|