Skip to content

Instantly share code, notes, and snippets.

@masasuzu

masasuzu/github_repos.pl

Created August 26, 2015 02:24
Show Gist options
  • Save masasuzu/0e16272d3dad872956d2 to your computer and use it in GitHub Desktop.
Save masasuzu/0e16272d3dad872956d2 to your computer and use it in GitHub Desktop.
Download ZIP
githubのorganizationにあるレポジトリが欲しい
Raw
github_repos.pl
use strict;
use warnings;
use feature qw( say );
use Furl;
use JSON;
my ($user, $token, $orgs) = @ARGV;
my $url = sprintf('https://%s:%s@api.github.com/orgs/%s/repos', $user, $token, $orgs);
my $res = Furl->new->get($url);
die $res->status_line unless $res->is_success;
say $_->{name} for @{ decode_json($res->content) };
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment