diff options
| -rwxr-xr-x | datasets/get.pl | 4 | ||||
| -rw-r--r-- | latest.pl | 8 |
2 files changed, 11 insertions, 1 deletions
diff --git a/datasets/get.pl b/datasets/get.pl new file mode 100755 index 0000000..8b821c6 --- /dev/null +++ b/datasets/get.pl @@ -0,0 +1,4 @@ +#!/usr/bin/perl + +foreach (@ARGV){ system('/usr/bin/wget', 'https://asdf.us/neural/' . $_); } + @@ -26,14 +26,20 @@ sub process($){ my @epoch = split("-", $ep); $name .= "-" . $epoch[0]; + if (! $epoch[0]) { + return 0; + } if (-e "output/" . $name . ".mp3") { return 1; } print $name . "\n"; - if ($opt_l) { + if (!$opt_l) { return 0; } + print "\n"; + print "_______________________________________________________________\n"; + print "\n"; system('/bin/bash', 'mix.sh', $path, $name); return 0; } |
