diff options
Diffstat (limited to 'get.pl')
| -rwxr-xr-x | get.pl | 22 |
1 files changed, 18 insertions, 4 deletions
@@ -1,5 +1,8 @@ #!/usr/bin/perl +use DotenvSimple; +DotenvSimple::source_dotenv('.env'); + $SIG{TERM} = $SIG{INT} = sub { exit 1 }; sub sanitize ($) { @@ -21,10 +24,21 @@ my $fn, $new_fn; foreach my $s (@ARGV){ if ($s =~ /^http/) { if ($s =~ /(wav|aiff?|flac|mp3|opus)$/i) { + $s =~ s/^\s+//; + $s =~ s/\s+$//; my $fn = `basename $s`; - print "downloading $fn\n"; - system('/usr/bin/wget', $s); - system('/usr/bin/perl', 'dataset.pl', $fn); + $clean_fn = $fn; + $clean_fn =~ s/-/_/g; + $clean_fn =~ s/^\s//; + $clean_fn =~ s/\s$//; + $clean_fn =~ s/\s/_/g; + $clean_fn =~ s/_+/_/g; + system('rm', $fn); + system('rm', $clean_fn); + print "downloading $clean_fn\n"; + system($ENV{'WGET_BIN'}, '-O', $clean_fn, $s); + system('/usr/bin/perl', 'dataset.pl', $clean_fn); + $fn = $clean_fn; } else { print "youtube-dl $s\n"; my $yt = `youtube-dl --extract-audio --audio-format flac -o "%(title)s.%(ext)s" $s`; @@ -38,7 +52,7 @@ foreach my $s (@ARGV){ $new_fn = sanitize($fn); $new_fn .= '.flac'; system('mv', $fn, $new_fn); - print "got fn, $fn => $new_fn\n"; + print "youtube-dl got fn, $fn => $new_fn\n"; system('/usr/bin/perl', 'dataset.pl', $new_fn); } } |