Find the nth unpushed reference in the current branch.

git-unpushed-ref

#!/usr/bin/env perl

use strict;
use warnings;

sub current_branch {
    my $branch=`git symbolic-ref --short HEAD`;
    chomp $branch;
    die "Cannot figure out the current branch.\n" unless $branch;

    return $branch;
}

sub tracking_branch {
    my $branch = shift;

    my $remote=`git config branch.$branch.remote`;
    chomp $remote;
    die "$branch is not tracking a remote.\n" unless $remote;

    my $remote_merge=`git config branch.$branch.merge | xargs git name-rev --name-only`;
    chomp $remote_merge;
    die "$branch has a remote ($remote) but is not set up to merge.\n" unless $remote_merge;

    return "$remote/$remote_merge";
}

my $number = shift;
my $remote_branch = tracking_branch(current_branch());

system "git log --pretty=format:%H $remote_branch..HEAD | tail -n$number | head -n1";
print "\n";