Bienvenido a Tecnohackers

Tecnohackers » General del foro » Area de Programacion » Scripting. VBS, Batch, Bash, JavaSript. (Moderador: Doddy)
 » 

[Perl] Musikeiro 0.1


Páginas: [1]   Ir Abajo

Autor Tema: [Perl] Musikeiro 0.1  (Leído 15 veces)

Desconectado Doddy

  • Moderator
  • Veterano
  • *****
  • Mensajes: 267
  • Slow Mind
[Perl] Musikeiro 0.1
« en: Diciembre 01, 2011, 06:56:47 pm »
Un reproductor de musica que hice hace dos años en el verano.

Código: No puedes ver links Registrate o Login
#!usr/bin/perl
#Musikeiro 0.1
#Simple music player
#Written by Doddy H in the summer of 2009
#ppm install http://www.bribes.org/perl/ppm/Win32-Console-ANSI.ppd
#ppm install http://www.bribes.org/perl/ppm/Win32-MediaPlayer.ppd

use Win32::Console::ANSI;
use Win32::MediaPlayer;

print "\n\e[;32m Bienvenido a Musikeiro\e[0m\n\n\n";

print "\e[33;45;1m Inserta la URL a reproducir: \e[0m";
chomp(my $play = <stdin>);
print "\n\e[42m Playing $play \e[0m\n";
print "\n\e[31mPresiona Control + c para detener cancion\e[0m\n\n";

$nave = new Win32::MediaPlayer;
$nave->load($play);     
$nave->play;     

while(1) { }

# The End ?
En línea
No puedes ver links Registrate o Login
Páginas: [1]   Ir Arriba
Tags:

 

Related Topics

  Asunto / Iniciado por Respuestas Último mensaje
0 Respuestas
113 Vistas 		Último mensaje Julio 12, 2009, 03:50:31 pm
por alma_triste
0 Respuestas
476 Vistas 		Último mensaje Enero 24, 2010, 12:26:44 am
por Necrófero
2 Respuestas
442 Vistas 		Último mensaje Mayo 09, 2011, 10:18:35 am
por scout
0 Respuestas
219 Vistas 		Último mensaje Noviembre 03, 2010, 04:15:45 am
por zolo


SMF 2.0.2 | SMF © 2011, Simple Machines
Paginas Afiliadas
InfraBios - i-hacker - Twitter - FaceBook - Troyanosyvirus - LaWebDeGoku - daraxblog
Designed by Smf Personal