Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Clone all the gists of a GitHub user
#!/usr/bin/perl
# Usage: gist_backup.pl <user>
# Clone all the gists of a GitHub user
use strict;
use warnings;
use Git::Raw;
use Pithub::Gists;
my $gist = Pithub::Gists -> new;
my $user = shift or die 'Provide a user name';
my $gists = $gist -> list(user => $user);
while (my $row = $gists -> next) {
print "Cloning gist '" . $row -> {'id'} . "'...";
Git::Raw::Repository -> clone($row -> {'git_pull_url'}, $row -> {'id'}, {});
print " done.\n";
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.