Este es el code de mi programa player.pl
Using perl Syntax Highlighting
#Name program = Player Music
#Autor = Guason
#Alias = Guason el malvado
use Win32::MediaPlayer;
if(!$ARGV[0]) {
print "\n\n";
print "Player Music By Guason\n";
print "\n";
print "Modo de uso = player.pl <SONG>\n";
print "SONG = Puede ser una cancion o un video\n\n";
print "Written by Guason\n";
exit 1;
}
my $play = $ARGV[0];
$winmm = new Win32::MediaPlayer; # new an object
$winmm->load ($play) ; # Load music file disk, or an URL
$winmm->play; # Play the music
$winmm->volume(100); # Set volume after playing
$winmm->seek('00:00'); # seek to
#$winmm->pause; # Pause music playing
#$winmm->resume; # Resume music playing
print "\n";
print 'Total Length : '.$winmm->length(1),$/; # Show total time.
while(1) {
sleep 9;
print "\n";
print 'Now Position: '.$winmm->pos(1)."\r"; # Show now time.
};
#Autor = Guason
#Alias = Guason el malvado
use Win32::MediaPlayer;
if(!$ARGV[0]) {
print "\n\n";
print "Player Music By Guason\n";
print "\n";
print "Modo de uso = player.pl <SONG>\n";
print "SONG = Puede ser una cancion o un video\n\n";
print "Written by Guason\n";
exit 1;
}
my $play = $ARGV[0];
$winmm = new Win32::MediaPlayer; # new an object
$winmm->load ($play) ; # Load music file disk, or an URL
$winmm->play; # Play the music
$winmm->volume(100); # Set volume after playing
$winmm->seek('00:00'); # seek to
#$winmm->pause; # Pause music playing
#$winmm->resume; # Resume music playing
print "\n";
print 'Total Length : '.$winmm->length(1),$/; # Show total time.
while(1) {
sleep 9;
print "\n";
print 'Now Position: '.$winmm->pos(1)."\r"; # Show now time.
};
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Este programa lo hice con la ayuda del módulo Win32::MediaPlayer y viendo el ejemplo de CPAN del mismo.
Pero... tengo un problema: yo quiero que reproduzca una lista de canciones MP3 que están en formato playlist.m3u.
El problema empieza cuando quiero reproducirlo ya que reproduce solo una y, francamente, necesito que reproduzca todas las canciones, o sea: termina una, empieza otra, etc...
Agradecería cualquier ayuda.
