A staging summary script organized by file

generate_branch_log.pl

#!/usr/bin/perl -w
use warnings;
use strict;
use Cwd;

my $git_out = `git log --name-status --pretty=oneline master..develop`;
my %modifications;
my %messages;
my $last_message;
foreach my $git_line (split(/\n/, $git_out)) {
    if ($git_line =~ /([a-z\d]{40})(.*)/) {
        $last_message = $2;
        $last_message =~ s/^\s+|\s+$//g; #trim space
    }
    elsif ($git_line =~ /([A-Z])\s+(.*)/) {
        @{$messages{$2}} = exists $messages{$2} ?
            (@{$messages{$2}}, ($last_message)) : ($last_message);
        @{$modifications{$2}} = exists $modifications{$2} ?
            (@{$modifications{$2}}, ($1)) : ($1);
    }
}
my $dir = getcwd();
my $repo;
if ($dir =~ /.*[\/\\](\S+)$/) {
    $repo = $1;
}
print "$repo\n";
foreach my $file (sort keys %messages) {
    my $file_message = join(',', map {"[$_]"} @{$messages{$file}});
    my $file_mods = join('/', @{$modifications{$file}});
    print "  $file ($file_mods): $file_message\n";

}