gistfile1.txt

Finding which commits last touched the files

If you _need_ to know which commit gave what file its current form, this script will help you:

(_please_, if you try to be helpful and edit the script, make _at least_ sure that it _still runs_ (that is particularly true if you insist on adding "use strict". Yikes, I thought this goes without saying!)


my %attributions = ();
my @files = ();

open IN, "git ls-tree -r --full-name HEAD |" or die;
while (<IN>) {
        if (/^\S+\s+blob \S+\s+(\S+)$/) {
                $files[$#files + 1] = $1;
                $attributions{$1} = -1;
        }
}
close IN;

my $remaining = $#files + 1;

open IN, "git log -r --root --raw --no-abbrev --pretty=format:%h~%an~%ad~ |" or die;
while (<IN>) {
        if (/^([^:~]+)~(.*)~([^~]+)~$/) {
                ($commit, $author, $date) = ($1, $2, $3);
        } elsif (/^:\S+\s+1\S+\s+\S+\s+\S+\s+\S\s+(.*)$/) {
                if ($attributions{$1} == -1) {
                        $attributions{$1} = "$author, $date ($commit)";
                        $remaining--;
                        if ($remaining <= 0) {
                                break;
                        }
                }
        }
}
close IN;

for $f (@files) {
        print "$f       $attributions{$f}\n";
}