|
Deseja expor aqui seu código/script/função do Perl comentado?
Mande um e-mail para contato@cgiclube.net
• Trabalhando com músicas (pegando informações).
O conjunto de módulos MP3 pode lhe ser muito útil para captar informações de músicas no formado MP3, como os tradicionais dados nome da música, autor, duração...
Eis um pequeno exemplo do módulo MP3::Tag:
(bem comentado)
#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
# caso haja falhas, você verá em seu brownser
print "Content-type: text/html\n\n";
# cabeçalho espeficicando que a resposta será em texto ou html
my $filename = "50 Cent - Candy Shop.mp3";
# declara o nome do arquivo da música que será "estudada"
use MP3::Tag;
# carrega o módulo
$mp3 = MP3::Tag->new($filename);
# carrega a música
# capta informações (titulo, número da faixa, artista, album, comentarios, ano e genero - respectivamente) da música
($title, $track, $artist, $album, $comment, $year, $genre) =
$mp3->autoinfo();
$comment = $mp3->comment();
# joga os comentários na variavel $coment
print qq~
Título: $title<br>
Artísta: $artist
~;
# mostra dados como título e artísta
$mp3->close();
# fecha conexão módulo/música |
Esse é um exemplo bem simples e de certa forma útil. Agora é só usar a criatividade para criar playlists, scripts...
3145 visualizações.
Postado por João Gabriel em 28/07/2005.
<< Voltar
|
