[Perl] Radio X 0.4

  • 0 Respuestas
  • 3917 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil

[Perl] Radio X 0.4

  • en: Marzo 28, 2014, 12:29:07 pm
Actualice mi programa en perl llamado "Radio X" debido a que las emisoras no me gustaban , asi que actualice el hash con 31 estaciones , todas de diferentes generos , aunque la unica que siempre escucho siempre es la de musica clasica.

Aclaracion de dependencia :

Aclaro que necesitan bajar el mplayer , esta el link 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 recien creada , todo esto tiene que ser en el mismo directorio donde este el script.

El codigo :

Código: Perl
  1. #!usr/bin/perl
  2. #Radio X
  3. #Version 0.4
  4. #(C) Doddy Hackman 2014
  5. #
  6. #Download : http://www.mplayerhq.hu/MPlayer/releases/win32/MPlayer-mingw32-1.0rc2.zip
  7. #
  8.  
  9. use Cwd;
  10.  
  11. my @emisoras = (
  12.  
  13.     {},
  14.  
  15.     {
  16.  
  17.         "nombre" => "idobi Radio",
  18.         "genero" => "Alternative",
  19.         "link"   => "http://69.46.88.21:80"
  20.  
  21.     },
  22.  
  23.     {
  24.  
  25.         "nombre" => "BLUES RADIO (1.FM TM)",
  26.         "genero" => "Blues",
  27.         "link"   => "http://205.164.35.58:80"
  28.  
  29.     },
  30.  
  31.     {
  32.  
  33.         "nombre" => "Venice Classic Radio Italia",
  34.         "genero" => "Classical",
  35.         "link"   => "http://174.36.206.197:8000"
  36.  
  37.     },
  38.  
  39.     {
  40.  
  41.         "nombre" => "100hitz - New Country",
  42.         "genero" => "Country",
  43.         "link"   => "http://69.4.234.186:9210"
  44.  
  45.     },
  46.  
  47.     {
  48.  
  49.         "nombre" => "RADIO 7 - POLNOCNE",
  50.         "genero" => "Decades",
  51.         "link"   => "http://94.23.36.107:443"
  52.  
  53.     },
  54.  
  55.     {
  56.  
  57.         "nombre" => "COOLfahrenheit 93",
  58.         "genero" => "Easy Listening",
  59.         "link"   => "http://203.150.225.77:8400"
  60.  
  61.     },
  62.  
  63.     {
  64.  
  65.         "nombre" => "Ibiza Global Radio",
  66.         "genero" => "Electronic",
  67.         "link"   => "http://198.50.197.161:8024"
  68.  
  69.     },
  70.  
  71.     {
  72.  
  73.         "nombre" => "HBR1.com - I.D.M. Tranceponder",
  74.         "genero" => "Trance",
  75.         "link"   => "http://ubuntu.hbr1.com:19800/trance.ogg"
  76.  
  77.     },
  78.  
  79.     {
  80.  
  81.         "nombre" => "COOL radio - Beograd",
  82.         "genero" => "Folk",
  83.         "link"   => "http://176.9.30.66:80"
  84.  
  85.     },
  86.  
  87.     {
  88.  
  89.         "nombre" => "COOL radio - Beograd",
  90.         "genero" => "Folk",
  91.         "link"   => "http://176.9.30.66:80"
  92.  
  93.     },
  94.  
  95.     {
  96.  
  97.         "nombre" => "HPR4",
  98.         "genero" => "Inspirational",
  99.         "link"   => "http://50.7.77.179:8024"
  100.  
  101.     },
  102.  
  103.     {
  104.  
  105.         "nombre" => "Radio Carsija - Melli",
  106.         "genero" => "International",
  107.         "link"   => "http://80.237.153.95:19406"
  108.  
  109.     },
  110.  
  111.     {
  112.  
  113.         "nombre" => "TheJazzGroove.com",
  114.         "genero" => "Jazz",
  115.         "link"   => "http://199.180.72.2:8015"
  116.  
  117.     },
  118.  
  119.     {
  120.  
  121.         "nombre" => "Paisa Estereo",
  122.         "genero" => "Latin",
  123.         "link"   => "http://199.217.118.10:7094"
  124.  
  125.     },
  126.  
  127.     {
  128.  
  129.         "nombre" => "RockRadio1.Com",
  130.         "genero" => "Metal",
  131.         "link"   => "http://77.74.192.50:8000"
  132.  
  133.     },
  134.  
  135.     {
  136.  
  137.         "nombre" => "Adom 106.3FM",
  138.         "genero" => "Misc",
  139.         "link"   => "http://67.159.60.45:8100"
  140.  
  141.     },
  142.  
  143.     {
  144.  
  145.         "nombre" => "Healing",
  146.         "genero" => "New Age",
  147.         "link"   => "http://222.122.178.183:11070"
  148.  
  149.     },
  150.  
  151.     {
  152.  
  153.         "nombre" => "RADIO SOUND POP",
  154.         "genero" => "Pop",
  155.         "link"   => "http://99.198.118.250:8076"
  156.  
  157.     },
  158.  
  159.     {
  160.  
  161.         "nombre" => "Latido 90.1 FM",
  162.         "genero" => "Public Radio",
  163.         "link"   => "http://64.251.21.48:42000"
  164.  
  165.     },
  166.  
  167.     {
  168.  
  169.         "nombre" => "Radio Mandela",
  170.         "genero" => "Funk",
  171.         "link"   => "http://184.154.150.93:9010"
  172.  
  173.     },
  174.  
  175.     {
  176.  
  177.         "nombre" => "Boneyaad Radio",
  178.         "genero" => "Rap",
  179.         "link"   => "http://69.175.103.226:8180"
  180.  
  181.     },
  182.  
  183.     {
  184.  
  185.         "nombre" => "Reggae141.com",
  186.         "genero" => "Reggae",
  187.         "link"   => "http://184.107.197.154:8002"
  188.  
  189.     },
  190.  
  191.     {
  192.  
  193.         "nombre" => "Classic Rock 915",
  194.         "genero" => "Rock",
  195.         "link"   => "http://117.53.175.113:15018"
  196.  
  197.     },
  198.  
  199.     {
  200.  
  201.         "nombre" => "181.fm - Rock 181 (Active Rock)",
  202.         "genero" => "Rock",
  203.         "link"   => "http://108.61.73.118:14008"
  204.  
  205.     },
  206.  
  207.     {
  208.  
  209.         "nombre" => "181.FM - The Buzz",
  210.         "genero" => "Rock",
  211.         "link"   => "http://108.61.73.119:14126"
  212.  
  213.     },
  214.  
  215.     {
  216.  
  217.         "nombre" => "181.FM - Good Time Oldies",
  218.         "genero" => "Rock",
  219.         "link"   => "http://108.61.73.118:14046"
  220.  
  221.     },
  222.  
  223.     {
  224.  
  225.         "nombre" => "Top40",
  226.         "genero" => "Pop Dance R&B Rock",
  227.         "link"   => "http://95.141.24.79:80"
  228.  
  229.     },
  230.  
  231.     {
  232.  
  233.         "nombre" => "MUSIK.ORIENTAL",
  234.         "genero" => "Seasonal and Holiday",
  235.         "link"   => "http://193.34.51.40:80"
  236.  
  237.     },
  238.  
  239.     {
  240.  
  241.         "nombre" => "NOVA 100.3",
  242.         "genero" => "Soundtracks",
  243.         "link"   => "http://117.53.175.113:15010"
  244.  
  245.     },
  246.  
  247.     {
  248.  
  249.         "nombre" => "Alex Jones - Infowars.com",
  250.         "genero" => "Talk",
  251.         "link"   => "http://50.7.130.109:80"
  252.  
  253.     },
  254.  
  255.     {
  256.  
  257.         "nombre" => "illusive Radio Punta",
  258.         "genero" => "Themes",
  259.         "link"   => "http://38.96.148.141:9996"
  260.  
  261.     }
  262.  
  263. );
  264.  
  265. $SIG{INT} = \&retorno;
  266.  
  267. You are not allowed to view links. Register or Login( getcwd() . "/mplayer/" );
  268.  
  269. menu();
  270.  
  271. sub retorno {
  272.     You are not allowed to view links. Register or Login "\n\n<ul class="bbc_list"><li type="square"> Press any key for return to the menu\n\n";[/li][/list]
  273.     <stdin>;
  274.     clean();
  275.     menu();
  276. }
  277.  
  278. sub menu {
  279.  
  280.     head();
  281.  
  282.     You are not allowed to view links. Register or Login "\n\n</li><li type="square"> Listing ["[/li][/list]
  283.       . You are not allowed to view links. Register or Login( @emisoras - 1 ) . "] "
  284.       . "stations found ...\n";
  285.  
  286.     for my $em ( 1 .. @emisoras - 1 ) {
  287.  
  288.         You are not allowed to view links. Register or Login "\n</li><li type="square"> ID : " . $em . "\n";[/li][/list]
  289.         You are not allowed to view links. Register or Login "</li><li type="square"> Name : " . $emisoras[$em]->{nombre} . "\n";[/li][/list]
  290.         You are not allowed to view links. Register or Login "</li><li type="square"> Type : " . $emisoras[$em]->{genero} . "\n";[/li][/list]
  291.  
  292.         #print "[$em] - ".$emisoras[$em]->{genero}."\n";
  293.  
  294.     }
  295.  
  296.     You are not allowed to view links. Register or Login "\n</li><li type="square"> Write exit to go out\n";[/li][/list]
  297.  
  298.     You are not allowed to view links. Register or Login "\n</li><li type="square"> Option : ";[/li][/list]
  299.     You are not allowed to view links. Register or Login( my $op = <stdin> );
  300.  
  301.     if ( $op eq "exit" ) {
  302.         copyright();
  303.     }
  304.  
  305.     if ( $op =~ /\d+/ ) {
  306.         You are not allowed to view links. Register or Login "\n[!] Listening : " . $emisoras[$op]->{You are not allowed to view links. Register or Login} . " ...\n\n";
  307.         You are not allowed to view links. Register or Login("mplayer $emisoras[$op]->{link}");
  308.     }
  309.  
  310.     copyright();
  311.  
  312. }
  313.  
  314. sub head {
  315.  
  316.     clean();
  317.  
  318.     You are not allowed to view links. Register or Login You are not allowed to view links. Register or Login(
  319.  
  320.  
  321.  @@@@@     @    @@@@    @   @@@@     @     @
  322.  @    @    @    @   @   @  @    @    @     @
  323.  @    @   @ @   @    @  @  @    @     @   @
  324.  @    @   @ @   @    @  @  @    @      @ @  
  325.  @@@@@   @   @  @    @  @  @    @       @  
  326.  @    @  @   @  @    @  @  @    @      @ @  
  327.  @    @  @@@@@  @    @  @  @    @     @   @
  328.  @    @ @     @ @   @   @  @    @    @     @
  329.  @    @ @     @ @@@@    @   @@@@     @     @
  330.  
  331. );
  332.  
  333. }
  334.  
  335. sub copyright {
  336.     You are not allowed to view links. Register or Login "\n\n-- == (C) Doddy Hackman 2014 == --\n\n";
  337.     <stdin>;
  338.     You are not allowed to view links. Register or Login(1);
  339. }
  340.  
  341. sub clean {
  342.     my $os = $^O;
  343.     if ( $os =~ /Win32/ig ) {
  344.         You are not allowed to view links. Register or Login("cls");
  345.     }
  346.     else {
  347.         You are not allowed to view links. Register or Login("clear");
  348.     }
  349. }
  350.  
  351. #The End ?
  352.  
  353.  

Un ejemplo de uso

Código: You are not allowed to view links. Register or Login



 @@@@@     @    @@@@    @   @@@@     @     @
 @    @    @    @   @   @  @    @    @     @
 @    @   @ @   @    @  @  @    @     @   @
 @    @   @ @   @    @  @  @    @      @ @
 @@@@@   @   @  @    @  @  @    @       @
 @    @  @   @  @    @  @  @    @      @ @
 @    @  @@@@@  @    @  @  @    @     @   @
 @    @ @     @ @   @   @  @    @    @     @
 @    @ @     @ @@@@    @   @@@@     @     @



  • Listing [31] stations found ...[/li]

  • ID : 1[/li]
  • Name : idobi Radio[/li]
  • Type : Alternative[/li]

  • ID : 2[/li]
  • Name : BLUES RADIO (1.FM TM)[/li]
  • Type : Blues[/li]

  • ID : 3[/li]
  • Name : Venice Classic Radio Italia[/li]
  • Type : Classical[/li]

  • ID : 4[/li]
  • Name : 100hitz - New Country[/li]
  • Type : Country[/li]

  • ID : 5[/li]
  • Name : RADIO 7 - POLNOCNE[/li]
  • Type : Decades[/li]

  • ID : 6[/li]
  • Name : COOLfahrenheit 93[/li]
  • Type : Easy Listening[/li]

  • ID : 7[/li]
  • Name : Ibiza Global Radio[/li]
  • Type : Electronic[/li]

  • ID : 8[/li]
  • Name : HBR1.com - I.D.M. Tranceponder[/li]
  • Type : Trance[/li]

  • ID : 9[/li]
  • Name : COOL radio - Beograd[/li]
  • Type : Folk[/li]

  • ID : 10[/li]
  • Name : COOL radio - Beograd[/li]
  • Type : Folk[/li]

  • ID : 11[/li]
  • Name : HPR4[/li]
  • Type : Inspirational[/li]

  • ID : 12[/li]
  • Name : Radio Carsija - Melli[/li]
  • Type : International[/li]

  • ID : 13[/li]
  • Name : TheJazzGroove.com[/li]
  • Type : Jazz[/li]

  • ID : 14[/li]
  • Name : Paisa Estereo[/li]
  • Type : Latin[/li]

  • ID : 15[/li]
  • Name : RockRadio1.Com[/li]
  • Type : Metal[/li]

  • ID : 16[/li]
  • Name : Adom 106.3FM[/li]
  • Type : Misc[/li]

  • ID : 17[/li]
  • Name : Healing[/li]
  • Type : New Age[/li]

  • ID : 18[/li]
  • Name : RADIO SOUND POP[/li]
  • Type : Pop[/li]

  • ID : 19[/li]
  • Name : Latido 90.1 FM[/li]
  • Type : Public Radio[/li]

  • ID : 20[/li]
  • Name : Radio Mandela[/li]
  • Type : Funk[/li]

  • ID : 21[/li]
  • Name : Boneyaad Radio[/li]
  • Type : Rap[/li]

  • ID : 22[/li]
  • Name : Reggae141.com[/li]
  • Type : Reggae[/li]

  • ID : 23[/li]
  • Name : Classic Rock 915[/li]
  • Type : Rock[/li]

  • ID : 24[/li]
  • Name : 181.fm - Rock 181 (Active Rock)[/li]
  • Type : Rock[/li]

  • ID : 25[/li]
  • Name : 181.FM - The Buzz[/li]
  • Type : Rock[/li]

  • ID : 26[/li]
  • Name : 181.FM - Good Time Oldies[/li]
  • Type : Rock[/li]

  • ID : 27[/li]
  • Name : Top40[/li]
  • Type : Pop Dance R&B Rock[/li]

  • ID : 28[/li]
  • Name : MUSIK.ORIENTAL[/li]
  • Type : Seasonal and Holiday[/li]

  • ID : 29[/li]
  • Name : NOVA 100.3[/li]
  • Type : Soundtracks[/li]

  • ID : 30[/li]
  • Name : Alex Jones - Infowars.com[/li]
  • Type : Talk[/li]

  • ID : 31[/li]
  • Name : illusive Radio Punta[/li]
  • Type : Themes[/li]

  • Write exit to go out[/li]

  • Option : 3[/li]

    [!] Listening : http://174.36.206.197:8000 ...

    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://174.36.206.197:8000.
    Connecting to server 174.36.206.197[174.36.206.197]: 8000...
    Name   : Venice Classic Radio Italia
    Genre  : Classical
    Website: http://www.veniceclassicradio.eu/
    Public : yes
    Bitrate: 128kbit/s
    Cache size set to 320 KBytes
    Cache fill:  0.00% (0 bytes)   No bind found for key ''.

    Cache fill:  7.50% (24576 bytes)
    ICY Info: StreamTitle='Frederic Chopin (1810-1849) - 'Allegro de concert' per pi
    anoforte in la Maggiore Op.46 (11:37)  {+info: veniceclassicradio.eu}';StreamUrl
    ='';
    Cache fill: 17.50% (57344 bytes)
    Audio file file format detected.
    ==========================================================================
    Opening audio decoder: [mp3lib] MPEG layer-2, layer-3
    mpg123: Can't rewind stream by 154 bits!
    AUDIO: 44100 Hz, 2 ch, s16le, 128.0 kbit/9.07% (ratio: 16000->176400)
    Selected audio codec: [mp3] afm: mp3lib (mp3lib MPEG layer-2, layer-3)
    ==========================================================================
    AO: [dsound] 44100Hz 2ch s16le (2 bytes per sample)
    Video: no video
    Starting playback...

    ICY Info: StreamTitle='Mauro Giuliani (1781-1829) - Variazioni su 'Deh! Calma, o
    h ciel!' per chitarra e quartetto (08:00)  {+info: veniceclassicradio.eu}';Strea
    mUrl='';

    ICY Info: StreamTitle='Johann Sebastian Bach (1685-1750) - 'Il clavicembalo ben
    temperato' - Libro I - Praeludium et Fuga in si bemolle Maggiore BWV866 (02:42)
     {+info: veniceclassicradio.eu}';StreamUrl='';

    ICY Info: StreamTitle='Antonio Palella (1692-1761) - Concerto a 4  in sol Maggio
    re (12:42)  {+info: veniceclassicradio.eu}';StreamUrl='';

    ICY Info: StreamTitle='Anton Reicha (1770-1836) - Sonata per fagotto e pianofort
    e (16:19)  {+info: veniceclassicradio.eu}';StreamUrl='';

    ICY Info: StreamTitle='Gioachino Rossini (1792-1868) - Sonata per archi in mi be
    molle Maggiore No.5 (14:51)  {+info: veniceclassicradio.eu}';StreamUrl='';

    ICY Info: StreamTitle='Fernand De La Tombelle (1854-1928) - Andante espressivo p
    er violoncello e pianoforte (04:39)  {+info: veniceclassicradio.eu}';StreamUrl='
    ';

    ICY Info: StreamTitle='Franz Schubert (1797-1828) - Sinfonia in re Maggiore No.3
     D200 (23:09)  {+info: veniceclassicradio.eu}';StreamUrl='';


    Eso es todo.

  •  

    Tutorial perl desde cero By: Black Poision & Painboy

    Iniciado por ProcessKill

    Respuestas: 2
    Vistas: 5210
    Último mensaje Septiembre 02, 2011, 09:43:36 pm
    por blozzter
    [Perl] Verificando si es root para correr un script

    Iniciado por c1st

    Respuestas: 1
    Vistas: 3426
    Último mensaje Octubre 07, 2012, 06:01:39 pm
    por ANTRAX
    [Perl] Half Life Servers List 0.1

    Iniciado por BigBear

    Respuestas: 0
    Vistas: 2574
    Último mensaje Noviembre 12, 2012, 07:31:50 pm
    por BigBear
    DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

    Iniciado por SkillmaX

    Respuestas: 0
    Vistas: 2568
    Último mensaje Julio 04, 2010, 10:14:31 am
    por SkillmaX
    Funciones más utilizadas en la programación de un perl script

    Iniciado por Dragora

    Respuestas: 0
    Vistas: 4193
    Último mensaje Enero 06, 2019, 01:01:06 am
    por Dragora