script to list latest files

2 files changed, 51 insertions, 0 deletions

diff --git a/latest.pl b/latest.pl
new file mode 100644
index 0000000..b20ca1c
--- /dev/null
+++ b/latest.pl
@@ -0,0 +1,49 @@
+#!/usr/bin/perl
+
+use strict;
+use Getopt::Std;
+
+our $opt_l;
+getopts('l');
+
+# my $s = "results/exp:03_responses-frame_sizes:8,2-n_rnn:2-dataset:03_responses/checkpoints/best-ep1-it1035";
+sub process($){
+  my ($dir) = @_;
+  my @exp = split(":", $dir);
+  my $name = $exp[4];
+  my $ep;
+  my $path = "results/" . $dir . "/";
+  my $chex = $path . "checkpoints/";
+  return 0 unless -e $chex;
+  opendir DIR, $chex or die $!;
+  while (readdir DIR) {
+    next unless /^ep/;
+    $ep = $_;
+    last;
+  }
+  closedir DIR;
+
+  my @epoch = split("-", $ep);
+  $name .= "-" . $epoch[0];
+
+  if (-e "output/" . $name . ".mp3") {
+    return 1;
+  }
+
+  print $name . "\n";
+  if ($opt_l) {
+    return 0;
+  }
+  system('/bin/bash', 'mix.sh', $path, $name);
+  return 0;
+}
+
+opendir RESULTS, ("results/") or die $!;
+my @results = sort {(stat $a)[10] <=> (stat $b)[10]} readdir(RESULTS);
+closedir RESULTS;
+
+for my $result (@results) {
+  next if $result !~ /exp:/;
+  my $rv = process($result);
+  #last if $rv;
+}
diff --git a/mix.sh b/mix.sh
index c212cfa..821d802 100755
--- a/mix.sh
+++ b/mix.sh
@@ -9,6 +9,8 @@ dir=$1
 name=$2
 now=`date +'%Y%m%d'`
 
+echo "rendering $name"
+
 cd "$dir/samples"
 mkdir "$name"
 ../../xfade.sh