git:// を proxy 経由で、git clone する際に使うスクリプト。環境変数 http_proxy を使用。

gistfile1.pl

#!/usr/bin/perl

$ENV{'http_proxy'} =~ m|^https?://(.+?):?(\d+)?(/.*)?$|;

unless ($1 || $2) {
  print "http_proxy is invalid\n";
  exit 1;
}

my $domain = $1;
my $port   = $2 || 80;
$corkscrew = `which corkscrew 2> /dev/null`;

if ($?) {
  print "corkscrew is not found.\n";
  exit 1;
}

chomp($corkscrew);

system("${corkscrew} ${domain} ${port} ${ARGV[0]} ${ARGV[1]}");