git show
Önerilerin hiçbiri gerçekten tatmin etmiyor çünkü (elimden geldiğince deneyin), meta veriyi çıktının tepesinden almamanın bir yolunu bulamıyorum. Kedinin ruhu (1) sadece içeriği göstermektir. Bu (aşağıda) bir dosya adı ve isteğe bağlı bir numara alır. Numara, geri dönmek istediğiniz işlemlerin nasıl olduğudur. (Bu dosyayı değiştiren işlemeler. Hedef dosyayı değiştirmeyen işlemeler sayılmaz.)
gitcat.pl filename.txt
gitcat.pl -3 filename.txt
filename.txt dosyasının en son işleminden itibaren dosyaadı.txt içeriğini ve bundan önceki 3 işlemin içeriğini gösterir.
#!/usr/bin/perl -w
use strict;
use warnings;
use FileHandle;
use Cwd;
# Have I mentioned lately how much I despise git?
(my $prog = $0) =~ s!.*/!!;
my $usage = "Usage: $prog [revisions-ago] filename\n";
die( $usage ) if( ! @ARGV );
my( $revision, $fname ) = @ARGV;
if( ! $fname && -f $revision ) {
( $fname, $revision ) = ( $revision, 0 );
}
gitcat( $fname, $revision );
sub gitcat {
my( $fname, $revision ) = @_;
my $rev = $revision;
my $file = FileHandle->new( "git log --format=oneline '$fname' |" );
# Get the $revisionth line from the log.
my $line;
for( 0..$revision ) {
$line = $file->getline();
}
die( "Could not get line $revision from the log for $fname.\n" )
if( ! $line );
# Get the hash from that.
my $hash = substr( $line, 0, 40 );
if( ! $hash =~ m/ ^ ( [0-9a-fA-F]{40} )/x ) {
die( "The commit hash does not look a hash.\n" );
}
# Git needs the path from the root of the repo to the file because it can
# not work out the path itself.
my $path = pathhere();
if( ! $path ) {
die( "Could not find the git repository.\n" );
}
exec( "git cat-file blob $hash:$path/'$fname'" );
}
# Get the path from the git repo to the current dir.
sub pathhere {
my $cwd = getcwd();
my @cwd = split( '/', $cwd );
my @path;
while( ! -d "$cwd/.git" ) {
my $path = pop( @cwd );
unshift( @path, $path );
if( ! @cwd ) {
die( "Did not find .git in or above your pwd.\n" );
}
$cwd = join( '/', @cwd );
}
return join( '/', map { "'$_'"; } @path );
}