어떤 git show제안도 진정 만족스럽지 않습니다. 왜냐하면 (내가 할 수있는대로 시도해보세요), 출력 상단에서 메타 데이터를 가져 오지 않는 방법을 찾을 수 없기 때문입니다. cat (1)의 정신은 내용을 보여주는 것뿐입니다. 이것은 (아래) 파일 이름과 선택적 번호를 사용합니다. 숫자는 되돌리고 싶은 커밋 방법입니다. (해당 파일을 변경 한 커밋. 대상 파일을 변경하지 않은 커밋은 계산되지 않습니다.)
gitcat.pl filename.txt
gitcat.pl -3 filename.txt
filename.txt의 최신 커밋 시점의 filename.txt 내용과 그 이전의 3 개 커밋 내용을 보여줍니다.
#!/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 );
}