22 lines
769 B
Perl
Executable file
22 lines
769 B
Perl
Executable file
#!/usr/bin/perl -w
|
|
|
|
while (<STDIN>) {
|
|
chomp;
|
|
s/\ //g;
|
|
if (/(\d{1,2} - ).*mp3=(.*\.mp3).*<b>(.*)<\/b>.*/i) {
|
|
my $url='http://hoorspelweb.com/stream/index.php?cmd=stream&mp3=' . $2 . '&dir_id=0';
|
|
my $name=$1 . $3;
|
|
$name =~ s/\s/_/g;
|
|
system("wget -O '" . $name . ".mp3' '" . $url . "'");
|
|
} elsif (/.*mp3=(.*\.mp3).*<b>(.*)<\/b>.*/i) {
|
|
my $url='http://hoorspelweb.com/stream/index.php?cmd=stream&mp3=' . $1 . '&dir_id=0';
|
|
my $name=$2;
|
|
$name =~ s/\s/_/g;
|
|
system("wget -O '" . $name . ".mp3' '" . $url . "'");
|
|
} elsif (/a href=".*mp3=(.*\.mp3).*">(.*)<\/a>.*/i) {
|
|
my $url='http://hoorspelweb.com/stream/index.php?cmd=stream&mp3=' . $1 . '&dir_id=0';
|
|
my $name=$2;
|
|
$name =~ s/\s/_/g;
|
|
system("wget -O '" . $name . ".mp3' '" . $url . "'");
|
|
}
|
|
}
|