12345678910111213141516171819 |
- #!/usr/bin/perl
- use strict;
- use warnings;
- my $YT_DL_PATH = `which yt-dlp`;
- chomp $YT_DL_PATH;
- my $YT_DL_CMD = $YT_DL_PATH . " " . "-f 'ba' -x --audio-format mp3";
- my $YT_DL_SUFFIX = "-o '%(id)s.%(ext)s'";
- my $INPUT = "videos.txt";
- foreach my $link ( split("\n", `/bin/cat $INPUT`) ) {
- print("Downloading $link\n");
- my $local_cmd = $YT_DL_CMD . " $link " . $YT_DL_SUFFIX;
- print("$local_cmd\n");
- `$local_cmd`;
- }
|