|
2 | 2 |
|
3 | 3 | my $c=0;
|
4 | 4 |
|
5 |
| -open(G, "git log --reverse --pretty=fuller --no-color --date=short --decorate=full|"); |
| 5 | +open(G, "git log --reverse --pretty=fuller --no-color --date=short --decorate=full --stat|"); |
6 | 6 |
|
7 | 7 | while(<G>) {
|
8 | 8 | chomp;
|
9 | 9 | my $line = $_;
|
10 | 10 | if($line =~ /^CommitDate: (\d\d\d\d-\d\d)/) {
|
11 |
| - my $date = $1; # year + month |
| 11 | + $date = $1; # year + month |
12 | 12 | $commit{$author,$date}++;
|
13 | 13 | $total{$author}++;
|
14 | 14 | $when{$date}++;
|
|
21 | 21 | }
|
22 | 22 | $uniq{$author}++;
|
23 | 23 | }
|
| 24 | + elsif($line =~ /^ (\d*) file(|s) changed, (.*)/) { |
| 25 | + my $d=$3; |
| 26 | + my $adds=0; |
| 27 | + my $dels=0; |
| 28 | + $d =~ s/, //; #remove comma |
| 29 | + if($d =~ s/(\d*) insertion(s|)\(\+\)//) { |
| 30 | + $adds = $1; |
| 31 | + } |
| 32 | + if($d =~ s/(\d*) deletion(s|)\(\-\)//) { |
| 33 | + $dels = $1; |
| 34 | + } |
| 35 | + |
| 36 | + #print STDERR "$date $author += $lines\n"; |
| 37 | + $add{$author, $date} += $adds; |
| 38 | + $del{$author, $date} += $dels; |
| 39 | + } |
24 | 40 | }
|
25 | 41 | close(G);
|
26 | 42 |
|
27 | 43 | for my $date (sort keys %when) {
|
| 44 | + #print STDERR "$date: $when{$date}\n"; |
28 | 45 | $alld += $commit{"Daniel Stenberg", $date};
|
29 | 46 | $alltot += $when{$date};
|
30 |
| - printf "$date-01;%.2f;%.2f;%.2f\n", |
| 47 | + |
| 48 | + $dadd += $add{"Daniel Stenberg", $date}; |
| 49 | + $alladd += $add{"Daniel Stenberg", $date} + |
| 50 | + $add{"else", $date}; |
| 51 | + my $addshare = 100; |
| 52 | + $addshare = $dadd / $alladd * 100 if($alladd); |
| 53 | + |
| 54 | + $ddel += $del{"Daniel Stenberg", $date}; |
| 55 | + $alldel += $del{"Daniel Stenberg", $date} + |
| 56 | + $del{"else", $date}; |
| 57 | + my $delshare = 100; |
| 58 | + $delshare = $ddel / $alldel * 100 if($alldel); |
| 59 | + |
| 60 | + printf "$date-01;%.2f;%.2f;%.2f;%.2f;%.2f\n", |
31 | 61 | ($alld/$alltot * 100),
|
32 | 62 | 100 - ($alld/$alltot * 100),
|
33 |
| - $commit{"Daniel Stenberg", $date}/$when{$date} * 100; |
| 63 | + $commit{"Daniel Stenberg", $date}/$when{$date} * 100, |
| 64 | + $addshare, $delshare; |
34 | 65 | }
|
0 commit comments