Radio X 0.2
Publicado: 2012-10-14 19:55 @871
Estaba harto de escuchar siempre la misma canción así que mejoré este script para poder escuchar música con los siguientes géneros.
Aclaro que necesitan bajar el mplayer. Esta el enlace de descarga en el script; una vez que lo tengan descargado y descomprimido creen una carpeta llamada "mplayer" y copian todos los archivos del archivo descomprimido en la carpeta recién creada. Todo esto tiene que ser en el mismo directorio donde esté el script.
El código es el siguiente:
Ejemplo de uso
Using text Syntax Highlighting
[+] Rock'n'Roll
[+] Pop
[+] Ambient
[+] Trance
[+] House
[+] Y otros mas .......
[+] Pop
[+] Ambient
[+] Trance
[+] House
[+] Y otros mas .......
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Aclaro que necesitan bajar el mplayer. Esta el enlace de descarga en el script; una vez que lo tengan descargado y descomprimido creen una carpeta llamada "mplayer" y copian todos los archivos del archivo descomprimido en la carpeta recién creada. Todo esto tiene que ser en el mismo directorio donde esté el script.
El código es el siguiente:
Using perl Syntax Highlighting
- #!usr/bin/perl
- #Radio X
- #Version 0.2
- #Coded By Doddy H
- #
- #Download : http://www.mplayerhq.hu/MPlayer/releases/win32/MPlayer-mingw32-1.0rc2.zip
- #
- use Cwd;
- my @emisoras = (
- {},
- {
- "nombre" => "Absolute Classic Rock (Broadband)",
- "genero" => "Rock'n'Roll",
- "link" => "http://network.absoluteradio.co.uk/core/audio/ogg/live.pls?service=vcbb"
- },
- {
- "nombre" => "Absolute Classic Rock (Modem)",
- "genero" => "Rock'n'Roll",
- "link" => "http://network.absoluteradio.co.uk/core/audio/ogg/live.pls?service=vc"
- },
- {
- "nombre" => "Absolute Radio (Broadband)",
- "genero" => "Pop",
- "link" => "http://network.absoluteradio.co.uk/core/audio/ogg/live.pls?service=vrbb"
- },
- {
- "nombre" => "Absolute Radio (Modem)",
- "genero" => "Pop",
- "link" => "http://network.absoluteradio.co.uk/core/audio/ogg/live.pls?service=vr"
- },
- {
- "nombre" => "Absolute Xtreme (Broadband)",
- "genero" => "Modern Rock",
- "link" => "http://network.absoluteradio.co.uk/core/audio/ogg/live.pls?service=vxbb"
- },
- {
- "nombre" => "Absolute Xtreme (Modem)",
- "genero" => "Modern Rock",
- "link" => "http://network.absoluteradio.co.uk/core/audio/ogg/live.pls?service=vx"
- },
- {
- "nombre" => "HBR1.com - Dream Factory",
- "genero" => "Ambient",
- "link" => "http://ubuntu.hbr1.com:19800/ambient.ogg"
- },
- {
- "nombre" => "HBR1.com - I.D.M. Tranceponder",
- "genero" => "Trance",
- "link" => "http://ubuntu.hbr1.com:19800/trance.ogg"
- },
- {
- "nombre" => "HBR1.com - Tronic Lounge",
- "genero" => "House",
- "link" => "http://ubuntu.hbr1.com:19800/tronic.ogg"
- },
- {
- "nombre" => "NRK Alltid Klassisk (Norway)",
- "genero" => "Desconocido",
- "link" => "http://media.hiof.no/streams/m3u/nrk-alltid-klassisk-172.ogg.m3u"
- },
- {
- "nombre" => "NRK Alltid Nyheter (Norway)",
- "genero" => "Desconocido",
- "link" => "http://media.hiof.no/streams/m3u/nrk-alltid-nyheter-172.ogg.m3u"
- },
- {
- "nombre" => "NRK mP3 (Norway)",
- "genero" => "Desconocido",
- "link" => "http://media.hiof.no/streams/m3u/nrk-mpetre-172.ogg.m3u"
- },
- {
- "nombre" => "NRK P1 (Norway)",
- "genero" => "General",
- "link" => "http://media.hiof.no/streams/m3u/nrk-p1-172.ogg.m3u",
- },
- {
- "nombre" => "NRK P2 (Norway)",
- "genero" => "General",
- "link" => "http://media.hiof.no/streams/m3u/nrk-p2-172.ogg.m3u"
- },
- {
- "nombre" => "NRK P3 (Norway)",
- "genero" => "General",
- "link" => "http://media.hiof.no/streams/m3u/nrk-petre-172.ogg.m3u"
- },
- {
- "nombre" => "WKNC 88.1 FM (NC State) (High Quality)",
- "genero" => "Music",
- "link" => "http://wknc.sma.ncsu.edu:8000/wknchq.ogg.m3u"
- },
- {
- "nombre" => "WKNC 88.1 FM (NC State) (Low Quality)",
- "genero" => "Music",
- "link" => "http://wknc.sma.ncsu.edu:8000/wkncmq.ogg.m3u"
- }
- );
- $SIG{INT} = \&retorno;
- chdir( getcwd() . "/mplayer/" );
- menu();
- sub retorno {
- print "\n\n[+] Press any key for return to the menu\n\n";
- <stdin>;
- menu();
- }
- sub menu {
- head();
- for my $em ( 1 .. @emisoras - 1 ) {
- print "\n[+] Number : " . $em . "\n";
- print "[+] Name : " . $emisoras[$em]->{nombre} . "\n";
- print "[+] Station : " . $emisoras[$em]->{genero} . "\n";
- }
- print "\n\n[+] Option : ";
- chomp( my $op = <stdin> );
- if ( $op =~ /\d+/ ) {
- system("mplayer $emisoras[$op]->{link}");
- }
- copyright();
- }
- sub head {
- clean();
- print qq(
- @@@@@ @ @@@@ @ @@@@ @ @
- @ @ @ @ @ @ @ @ @ @
- @ @ @ @ @ @ @ @ @ @ @
- @ @ @ @ @ @ @ @ @ @ @
- @@@@@ @ @ @ @ @ @ @ @
- @ @ @ @ @ @ @ @ @ @ @
- @ @ @@@@@ @ @ @ @ @ @ @
- @ @ @ @ @ @ @ @ @ @ @
- @ @ @ @ @@@@ @ @@@@ @ @
- );
- }
- sub copyright {
- print "\n\n-- == (C) Doddy Hackman 2012 == --\n\n";
- <stdin>;
- exit(1);
- }
- sub clean {
- my $os = $^O;
- if ( $os =~ /Win32/ig ) {
- system("cls");
- }
- else {
- system("clear");
- }
- }
- #The End ?
Coloreado en 0.008 segundos, usando GeSHi 1.0.8.4
Ejemplo de uso
- Código: Seleccionar todo
@@@@@ @ @@@@ @ @@@@ @ @
@ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @
@@@@@ @ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @
@ @ @@@@@ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @@@@ @ @@@@ @ @
[+] Number : 1
[+] Name : Absolute Classic Rock (Broadband)
[+] Station : Rock'n'Roll
[+] Number : 2
[+] Name : Absolute Classic Rock (Modem)
[+] Station : Rock'n'Roll
[+] Number : 3
[+] Name : Absolute Radio (Broadband)
[+] Station : Pop
[+] Number : 4
[+] Name : Absolute Radio (Modem)
[+] Station : Pop
[+] Number : 5
[+] Name : Absolute Xtreme (Broadband)
[+] Station : Modern Rock
[+] Number : 6
[+] Name : Absolute Xtreme (Modem)
[+] Station : Modern Rock
[+] Number : 7
[+] Name : HBR1.com - Dream Factory
[+] Station : Ambient
[+] Number : 8
[+] Name : HBR1.com - I.D.M. Tranceponder
[+] Station : Trance
[+] Number : 9
[+] Name : HBR1.com - Tronic Lounge
[+] Station : House
[+] Number : 10
[+] Name : NRK Alltid Klassisk (Norway)
[+] Station : Desconocido
[+] Number : 11
[+] Name : NRK Alltid Nyheter (Norway)
[+] Station : Desconocido
[+] Number : 12
[+] Name : NRK mP3 (Norway)
[+] Station : Desconocido
[+] Number : 13
[+] Name : NRK P1 (Norway)
[+] Station : General
[+] Number : 14
[+] Name : NRK P2 (Norway)
[+] Station : General
[+] Number : 15
[+] Name : NRK P3 (Norway)
[+] Station : General
[+] Number : 16
[+] Name : WKNC 88.1 FM (NC State) (High Quality)
[+] Station : Music
[+] Number : 17
[+] Name : WKNC 88.1 FM (NC State) (Low Quality)
[+] Station : Music
[+] Option : 7
MPlayer 1.0rc2-4.2.1 (C) 2000-2007 MPlayer Team
CPU: AMD Sempron(tm) 140 Processor (Family: 16, Model: 6, Stepping: 2)
CPUflags: MMX: 1 MMX2: 1 3DNow: 1 3DNow2: 1 SSE: 1 SSE2: 1
Compiled with runtime CPU detection.
Playing http://ubuntu.hbr1.com:19800/ambient.ogg.
Resolving ubuntu.hbr1.com for AF_INET...
Connecting to server ubuntu.hbr1.com[93.94.83.51]: 19800...
Cache size set to 320 KBytes
Cache fill: 15.00% (49152 bytes)
[Ogg] stream 0: audio (Vorbis), -aid 0
Ogg file format detected.
Clip info:
Artist: A.C.E. (chillgressive tunes)
Name: Acid Chill Experience (DJ-Set, exclusive 4 hbr1.com)
Album: hbr1.com
Genre: Ambient
Track: 1
==========================================================================
Opening audio decoder: [ffmpeg] FFmpeg/libavcodec audio decoders
Ogg : bad packet in stream 0
AUDIO: 44100 Hz, 2 ch, s16le, 64.0 kbit/4.54% (ratio: 8000->176400)
Selected audio codec: [ffvorbis] afm: ffmpeg (FFmpeg Vorbis decoder)
==========================================================================
AO: [dsound] 44100Hz 2ch s16le (2 bytes per sample)
Video: no video
Starting playback...