From 001c18201e06b0740b8aff7d7a613bb1dcb93553 Mon Sep 17 00:00:00 2001
From: jules on spawn <spawn@cortex>
Date: Tue, 10 Apr 2018 02:02:13 +0200
Subject: script to list latest files

---
 latest.pl | 49 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100644 latest.pl

(limited to 'latest.pl')

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;
+}
-- 
cgit v1.2.3-70-g09d2