Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: cc5584e9b0
Fetching contributors…

Cannot retrieve contributors at this time

executable file 19 lines (14 sloc) 0.361 kb
#!/usr/bin/perl -w
use strict;
die "Usage: $0 HG_DIR\n" unless scalar @ARGV == 1;
my $d = shift @ARGV;
die "Can't find directory $d" unless -d $d;
opendir(DIR, $d) or die "Can't read $d: $!";
my @hgs = grep { /\.gz$/ } readdir(DIR);
closedir DIR;
for my $hg (@hgs) {
my $file = $hg;
my $id = $hg;
$id =~ s/(\.json)?\.gz//;
print "$d/$file $id\n";
}
Jump to Line
Something went wrong with that request. Please try again.