summaryrefslogtreecommitdiff
path: root/minrisk/minrisk_generate_input.pl
diff options
context:
space:
mode:
authorChris Dyer <cdyer@allegro.clab.cs.cmu.edu>2012-11-18 13:35:42 -0500
committerChris Dyer <cdyer@allegro.clab.cs.cmu.edu>2012-11-18 13:35:42 -0500
commit1b8181bf0d6e9137e6b9ccdbe414aec37377a1a9 (patch)
tree33e5f3aa5abff1f41314cf8f6afbd2c2c40e4bfd /minrisk/minrisk_generate_input.pl
parent7c4665949fb93fb3de402e4ce1d19bef67850d05 (diff)
major restructure of the training code
Diffstat (limited to 'minrisk/minrisk_generate_input.pl')
-rwxr-xr-xminrisk/minrisk_generate_input.pl18
1 files changed, 0 insertions, 18 deletions
diff --git a/minrisk/minrisk_generate_input.pl b/minrisk/minrisk_generate_input.pl
deleted file mode 100755
index b30fc4fd..00000000
--- a/minrisk/minrisk_generate_input.pl
+++ /dev/null
@@ -1,18 +0,0 @@
-#!/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";
-}
-