]>
Commit | Line | Data |
---|---|---|
af6861b1 JH |
1 | #!/usr/bin/perl -w |
2 | my %mailmap = (); | |
3 | open I, "<", ".mailmap"; | |
4 | while (<I>) { | |
5 | chomp; | |
6 | next if /^#/; | |
7 | if (my ($author, $mail) = /^(.*?)\s+<(.+)>$/) { | |
8 | $mailmap{$mail} = $author; | |
9 | } | |
10 | } | |
11 | close I; | |
12 | ||
13 | my %mail2author = (); | |
14 | open I, "git log --pretty='format:%ae %an' |"; | |
15 | while (<I>) { | |
16 | chomp; | |
17 | my ($mail, $author) = split(/\t/, $_); | |
18 | next if exists $mailmap{$mail}; | |
19 | $mail2author{$mail} ||= {}; | |
20 | $mail2author{$mail}{$author} ||= 0; | |
21 | $mail2author{$mail}{$author}++; | |
22 | } | |
23 | close I; | |
24 | ||
25 | while (my ($mail, $authorcount) = each %mail2author) { | |
26 | # %$authorcount is ($author => $count); | |
27 | # sort and show the names from the most frequent ones. | |
28 | my @names = (map { $_->[0] } | |
29 | sort { $b->[1] <=> $a->[1] } | |
30 | map { [$_, $authorcount->{$_}] } | |
31 | keys %$authorcount); | |
32 | if (1 < @names) { | |
33 | for (@names) { | |
34 | print "$_ <$mail>\n"; | |
35 | } | |
36 | } | |
37 | } | |
38 |