git-on-github

gistfile1.perl

#!/usr/bin/env perl
use strict;
use warnings;

use Config::GitLike::Git;
my $c = Config::GitLike::Git->new;
$c->load;

my $remote = $c->get( key => 'remote.origin.url' );

if ($remote =~ m{github\.com[:/](\w+)/([^/]+?)(?:\.git)?$}) {
    my $sha = shift @ARGV;
    my ($user, $repo) = ($1, $2);
    my $url = "https://github.com/$user/$repo";
      $url .= "/commit/$sha" if defined $sha and length $sha;
    exec('xdg-open', $url) or die "Couldn't exec xdg-open: $!\n";
} else {
    die "Remote origin doesn't point to github ($remote)\n";
}