Git development
 help / color / mirror / Atom feed
* author/commit counts
@ 2006-12-23  2:10 Randy Dunlap
  2006-12-23  2:37 ` Shawn Pearce
                   ` (3 more replies)
  0 siblings, 4 replies; 12+ messages in thread
From: Randy Dunlap @ 2006-12-23  2:10 UTC (permalink / raw)
  To: git

Hi,

Someone asked me a few days ago about their patches being merged yet
(e.g., how to see their commits in a git tree).
Someone else asked (in general) about commit or author counts.

I pointed the first person to "git log" and/or gitweb.
For the second, there are probably lots of scripts out there
but I didn't find them.  Where are they?

Is this useful?  or it needs fixing?
or you already have better solutions?

example:
git log v2.6.19.. | authorcount -m | less

# this is just the ones with >= 50 Author: lines

Al Viro : 213
Linus Torvalds : 94
Jiri Slaby : 90
Josef Sipek : 79
Gerrit Renker : 77
Adrian Bunk : 67
Andrew Morton : 59
Tejun Heo : 52
Mariusz Kozlowski : 52
Paul Mundt : 51
Ralf Baechle : 50
---

#! /usr/bin/perl
# Copyright (C) 2006, Randy Dunlap.

# read stdin, drop non-author: lines, count/sum/tally author: lines by
# each author after sanitizing author-name somewhat.
#
# optionally print out in author-name (-a) alpha order
# or in numeric/count (-n) order (low-to-high)
# or in numeric/count (-m) order (high-to-low) ("max" first)

# hash for author names:
my %authors;
my $auth;
my $sortby;

sub usage()
{
	print "usage: authorcount [-a | -n | -m] < git.log.lines\n";
	exit(1);
}

$sortby = $ARGV[0];
if (($sortby ne "") && ($sortby ne "-a") && ($sortby ne "-n") &&
    ($sortby ne "-m"))
{
	print "Invalid sort option: $sortby\n";
	usage();
}

READIN: while ($line = <STDIN>)
{
	chomp $line;
	next READIN if $line !~ /Author:/;

	$auth = $line;
	$auth =~ s/Author: //;
	$auth =~ s/<.*>//;

	$authors{$auth}++;

} # end READIN

sub byvalue
{
	$authors{$a} <=> $authors{$b};
}

# optionally sort by author name or author counts
# print out the tally array

if ($sortby eq "-a")
{
	foreach $auth (sort keys %authors)
	{
		print "$auth: $authors{$auth}\n";
	}
}
elsif ($sortby eq "-n")
{
	foreach $auth (sort byvalue keys %authors)
	{
		print "$auth: $authors{$auth}\n";
	}
}
elsif ($sortby eq "-m")
{
	foreach $auth (reverse sort byvalue keys %authors)
	{
		print "$auth: $authors{$auth}\n";
	}
}
else # no sort, just hash order
{
	while (($auth, $count) = each(%authors))
	{
		print "$auth: $count\n";
	}
}

^ permalink raw reply	[flat|nested] 12+ messages in thread
end of thread, other threads:[~2006-12-23 14:31 UTC | newest]

Thread overview: 12+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2006-12-23  2:10 author/commit counts Randy Dunlap
2006-12-23  2:37 ` Shawn Pearce
2006-12-23  4:44   ` Linus Torvalds
2006-12-23 14:28   ` Johannes Schindelin
2006-12-23  4:37 ` Randal L. Schwartz
2006-12-23  5:27   ` Randy Dunlap
2006-12-23  4:43 ` Junio C Hamano
2006-12-23  5:24   ` Randy Dunlap
2006-12-23  5:29     ` Shawn Pearce
2006-12-23  5:06 ` Nicolas Pitre
2006-12-23 14:22   ` Johannes Schindelin
2006-12-23 14:31     ` Nicolas Pitre

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox