哪个提交有这个小斑点？

Question

哪个提交有这个小斑点？给定BLOB的散列，是否有一种方法可以获得在其树中包含此BLOB的提交列表？

Answer 1

以下两个脚本都将BLOB的SHA 1作为第一个参数，在此之后，可以选择以下任何参数git log会理解的。例如：--all在所有分支中搜索，而不是仅搜索当前分支，或-g在翻车里搜索，或者其他你想要的东西。

在这里，它是一个shell脚本-短而甜蜜，但缓慢：

#!/bin/shobj_name="$1"shift
git log "$@" --pretty=format:'%T %h %s' \| while read tree commit subject ; do
    if git ls-tree -r $tree | grep -q "$obj_name" ; then
        echo $commit "$subject"
    fidone

还有一个优化的Perl版本，它仍然很短，但速度要快得多：

#!/usr/bin/perluse 5.008;use strict;use Memoize;my $obj_name;sub check_tree {
    my ( $tree ) = @_;
    my @subtree;

    {
        open my $ls_tree, '-|', git => 'ls-tree' => $tree
            or die "Couldn't open pipe to git-ls-tree: $!\n";

        while ( <$ls_tree> ) {
            /\A[0-7]{6} (\S+) (\S+)/
                or die "unexpected git-ls-tree output";
            return 1 if $2 eq $obj_name;
            push @subtree, $2 if $1 eq 'tree';
        }
    }

    check_tree( $_ ) && return 1 for @subtree;

    return;}memoize 'check_tree';die "usage: git-find-blob <blob> [<git-log arguments ...>]\n"
    if not @ARGV;my $obj_short = shift @ARGV;$obj_name = do {
    local $ENV{'OBJ_NAME'} = $obj_short;
     `git rev-parse --verify \$OBJ_NAME`;} or die "Couldn't parse $obj_short: $!\n";chomp $obj_name;open my $log, '-|',
      git => log => @ARGV, '--pretty=format:%T %h %s'
    or die "Couldn't open pipe to git-log: $!\n";while ( <$log> ) {
    chomp;
    my ( $tree, $commit, $subject ) = split " ", $_, 3;
    print "$commit $subject\n" if check_tree( $tree );}

Answer 2

不幸的是，脚本对我来说有点慢，所以我不得不进行一些优化。幸运的是，我不仅有散列，而且还有文件的路径。

git log --all --pretty=format:%H -- <path> | xargs -n1 -I% sh -c "git ls-tree % -- <path> | grep -q <hash> && echo %"

Answer 3

我认为这通常是一件有用的事情，所以我编写了一个小小的Perl脚本来完成它：

#!/usr/bin/perl -wuse strict;my @commits;my %trees;my $blob;sub blob_in_tree {
    my $tree = $_[0];
    if (defined $trees{$tree}) {
        return $trees{$tree};
    }
    my $r = 0;
    open(my $f, "git cat-file -p $tree|") or die $!;
    while (<$f>) {
        if (/^\d+ blob (\w+)/ && $1 eq $blob) {
            $r = 1;
        } elsif (/^\d+ tree (\w+)/) {
            $r = blob_in_tree($1);
        }
        last if $r;
    }
    close($f);
    $trees{$tree} = $r;
    return $r;}sub handle_commit {
    my $commit = $_[0];
    open(my $f, "git cat-file commit $commit|") or die $!;
    my $tree = <$f>;
    die unless $tree =~ /^tree (\w+)$/;
    if (blob_in_tree($1)) {
        print "$commit\n";
    }
    while (1) {
        my $parent = <$f>;
        last unless $parent =~ /^parent (\w+)$/;
        push @commits, $1;
    }
    close($f);}if (!@ARGV) {
    print STDERR "Usage: git-find-blob blob [head ...]\n";
    exit 1;}$blob = $ARGV[0];if (@ARGV > 1) {
    foreach (@ARGV) {
        handle_commit($_);
    }} else {
    handle_commit("HEAD");}while (@commits) {
    handle_commit(pop @commits);}

我今晚回家后会把这个放在GitHub上。

更新：看起来像是有人已经做过了..它使用相同的一般想法，但细节不同，实现是多更短。我不知道哪一个会更快，但性能可能不是这里关心的问题！

更新2：就其价值而言，我的实现速度快了几个数量级，特别是对于大型存储库。那，那个git ls-tree -r真的很疼。

更新3：我应该注意到，我上面的性能评论适用于我在第一次更新中链接到的实现。亚里士多德的实现和我的差不多。更详细的评论给那些好奇的人。