Get Information for contributed users of a repo

Git Status Bash scripts

/**
* Show inserts and delets by users in a repo
*
*
**/

perl -e 'foreach(`git shortlog -s -n`){'\
'($c,$a)=$_=~/^\s*(\d+)\s*(.+?)\s*$/;$p=$m=0;'\
'foreach(`git log --author="$a" --pretty=tformat: --numstat -C`)'\
'{($pp,$mm)=$_=~/^\s*(\d+)\s+(\d+)/;$p+=$pp;$m+=$mm;}'\
'printf "%5dc %8d+ %8d- %s\n",$c,$p,$m,$a;}'


/**
* Show inserts and delets by users in a repo after a special date
*
*
**/

perl -e '
$date = "2013-03-20";
printf "____________________\n";
printf "Stats since $date for this git Repo:\n \n";
foreach(`git shortlog -s -n`){'\
'($c,$a)=$_=~/^\s*(\d+)\s*(.+?)\s*$/;$p=$m=0;'\
'foreach(`git log --after={$date} --author="$a" --pretty=tformat: --numstat -C`)'\
'{($pp,$mm)=$_=~/^\s*(\d+)\s+(\d+)/;$p+=$pp;$m+=$mm;}'\
'printf "%5dc %8d+ %8d- %s\n",$c,$p,$m,$a;}'