Gist update script

update_gist.pl

#!/usr/bin/perl5.12.4
use JSON;
use LWP::Simple;
use Cwd;

my $data = get "http://gist.github.com/api/v1/json/gists/damianzaremba";
my $json = decode_json($data);
my $gists = $json->{"gists"};

for my $gist (@$gists) {
	my $name = $gist->{'repo'} . ' - ' . $gist->{'description'};

	print "Getting: " . $name . "\n";
	if( -d $name ) {
		chdir($name);
		qx(git pull);
		chdir("../");
	} else {
		my $repo_url = 'ssh://[email protected]:22/' . $gist->{'repo'} . '.git';
		$name =~ s/"/\\"/g;
		qx(git clone '$repo_url' "$name");
	}
};