From 978f4fcc296c7841aa2eee1409ad0d428bf96179 Mon Sep 17 00:00:00 2001 From: Jules Laplace Date: Thu, 7 Jun 2018 22:36:26 +0200 Subject: env --- get.pl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'get.pl') diff --git a/get.pl b/get.pl index 59b84f0..470dd6b 100755 --- a/get.pl +++ b/get.pl @@ -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"); -- cgit v1.2.3-70-g09d2