Yo,
hier mal mein Webradio-Perl-Skript "radioplay.pl". Man wählt einen von mehreren verfügbaren Sendern aus, und dann startet das Skript mplayer mit dem Sender. Dazu muß natürlich mplayer installiert sein.
Nur
startet den Default-Sender, nämlich "Fresh80s".
zeigt einem eine Liste der verfügbaren Sender, und man kann einen über eine Zahl auswählen.
startet direkt Nr. 10 (SWR3).
Ganz einfach, also. Viel Spaß!
hier mal mein Webradio-Perl-Skript "radioplay.pl". Man wählt einen von mehreren verfügbaren Sendern aus, und dann startet das Skript mplayer mit dem Sender. Dazu muß natürlich mplayer installiert sein.
Code:
#!/usr/bin/perl
use warnings;
use strict;
# radioplay.pl
my @RADIOS = ( ["Fresh80s", "http://178.77.76.9:8050"],
["NDR Kultur", "http://ndr-ndrkultur-mp3.akacast.akamaistream.net/7/527/273758/v1/gnl.akacast.akamaistream.net/ndr_ndrkultur_mp3"],
["NDR Info", "http://ndr-ndrinfo-nds-mp3.akacast.akamaistream.net/7/250/273753/v1/gnl.akacast.akamaistream.net/ndr_ndrinfo_nds_mp3"],
["NDR Info Spezial", "http://ndr-ndrinfo-spezial-mp3.akacast.akamaistream.net/7/795/273757/v1/gnl.akacast.akamaistream.net/ndr_ndrinfo_spezial_mp3"],
["NDR Blue", "http://ndr-ndrblue-mp3.akacast.akamaistream.net/7/803/273759/v1/gnl.akacast.akamaistream.net/ndr_ndrblue_mp3"],
["FFH Hits", "http://mp3.ffh.de/radioffh/hqlivestream.mp3"],
["FFH Top 40", "http://mp3.ffh.de/ffhchannels/hqtop40.mp3"],
["FFH 80er", "http://mp3.ffh.de/ffhchannels/hq80er.mp3"],
["FFH Soundtrack", "http://mp3.ffh.de/ffhchannels/hqsoundtrack.mp3"],
["SWR 3", "http://swr-mp3-m-swr3.akacast.akamaistream.net/7/720/137136/v1/gnl.akacast.akamaistream.net/swr-mp3-m-swr3"] );
sub getChoice {
my $x = 0;
print "Choose radio-station:\n\n";
for my $i (0 .. $#RADIOS) {
print $i + 1 . ". $RADIOS[$i][0]\n";
}
print "\n";
my $c = "";
while ($x == 0) {
print "Choice: ";
$c = <STDIN>;
chomp($c);
if ($c eq "") { next; }
if ($c eq "q") { print "Bye.\n"; exit 0; }
if ($c !~ /\D/ && $c >= 1 && $c <= $#RADIOS + 1) {
$x = 1;
}
}
return $c - 1;
}
my $radionr;
if ($#ARGV == -1) {
$radionr = 0;
} elsif ($#ARGV == 0 &&
$ARGV[0] !~ /\D/ &&
$ARGV[0] >= 1 &&
$ARGV[0] <= $#RADIOS + 1) {
$radionr = $ARGV[0] - 1;
} else {
$radionr = &getChoice();
}
print "\nPlaying: " . ($radionr + 1) . ". $RADIOS[$radionr][0].\n\n";
system("mplayer '$RADIOS[$radionr][1]' -quiet -nojoystick -af volume=-5 -cache 450 &>/dev/null");
Code:
radioplay.pl
Code:
radioplay.pl e
Code:
radioplay.pl 10
Ganz einfach, also. Viel Spaß!