datasets/get.pl


1
2
3
4
5
6
7
8
9

#!/usr/bin/perl

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);
}