get.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/perl

$SIG{TERM} = $SIG{INT} = sub { exit 1 };

chdir('datasets');

foreach (@ARGV){
  my $s = $_;
  if ($s !~/\..*$/) { $s .= ".wav"; }
  system('/usr/bin/wget', 'https://neural:spawn5@asdf.us/neural/' . $s);
  system('/usr/bin/perl', 'dataset.pl', $s);
}

END {
  chdir('..');
}