diff options
Diffstat (limited to 'get.pl')
| -rwxr-xr-x | get.pl | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -1,7 +1,7 @@ #!/usr/bin/perl -use DotenvSimple; -DotenvSimple::source_dotenv('.env'); +#use DotenvSimple; +#DotenvSimple::source_dotenv('.env'); $SIG{TERM} = $SIG{INT} = sub { exit 1 }; @@ -36,7 +36,7 @@ foreach my $s (@ARGV){ system('rm', $fn); system('rm', $clean_fn); print "downloading $clean_fn\n"; - system($ENV{'WGET_BIN'}, '-O', $clean_fn, $s); + system(`which wget`, '-O', $clean_fn, $s); system('/usr/bin/perl', 'dataset.pl', $clean_fn); $fn = $clean_fn; } else { @@ -59,8 +59,8 @@ foreach my $s (@ARGV){ } else { if ($s !~/\..*$/) { $s .= ".wav"; } print "downloading $s\n"; - system('/usr/bin/wget', 'https://neural:spawn5@asdf.us/neural/' . $s); - system('/usr/bin/perl', 'dataset.pl', $s); + system(`which wget`, 'https://neural:spawn5@asdf.us/neural/' . $s); + system(`which wget`, 'dataset.pl', $s); } my $tag = sanitize($fn); open(my $fd, ">>../run_slap.sh"); |
