perl – 使用Git显示所有第一级后代分支

首先是通常的序言：

#! /usr/bin/perl

use warnings;
use strict;

使用git for-each-ref收集每个ref的SHA-1和名称：

sub refs {
  open my $fh,"-|","git","for-each-ref","--format=%(objectname)t%(refname:short)"
    or die "$0: failed to run git for-each-ref";

  my %ref2sha;
  while (<$fh>) {
    chomp;
    my($sha,$ref) = split /t/;
    $ref2sha{$ref} = $sha;
  }

  %ref2sha;
}

如果提交是HEAD的子代,则从HEAD可以访问的提交集(不包括从提交中可到达的所有内容)是空集.我们可以用git rev-list检查这种关系.

sub is_child {
  my($ref) = @_;

  # git rev-list ^dev master
  my $refs = `git rev-list ^$ref HEAD -- 2>&1`;
  die "$0: git rev-list-failed.n$refs" if $?;

  $refs !~ /S/;
}

对于作为HEAD后代但不等同于HEAD的每个ref,我们使用git log检查从HEAD到该引用的路径.如果路径包含另一个分支的尖端,则ref不能是第一级子节点.

这个手套的所有幸存者都是一级儿童.

chomp(my $head = `git rev-parse HEAD 2>&1`);
die "$0: git rev-parse failed.n$head" if $?;

my $ref2sha = refs;
my %headsha = reverse %$ref2sha;

REF:
foreach my $ref (keys %$ref2sha) {
  my $refsha = $ref2sha->{$ref};

  next if $refsha eq $head || !is_child $ref;

  my @log = `git log --pretty=format:%H ..$ref 2>&1`;
  die "$0: git log failed.n@log" if $?;
  for (@log) {
    chomp;
    next if $_ eq $refsha;
    next REF if exists $headsha{$_};
  }

  print $ref,"n";
}