Desde hace unas semanas, e estado viendo un nuevo lenguaje de programacion, y me he encontrado en el grancioso y versatil PERL, practicando, leyendo y estudiando.
Desde hace un rato que escucho musica de GoEar, y desde Informatica-Practica encontre un post sobre como descargar canciones de ahi, y pues puse en practica lo que habia aprendido hasta ahorita y les traigo mi version de DownMusic escrita en PERL.
El autor no se responsabiliza del uso que le den. Esto es solo educativo, para el ejemplo del uso de perl, de su practicidad y Simpleza.
#!/usr/bin/perl
#llamamos a unos modulos
use XML::Simple;
use WWW::Mechanize;
#obtenemos el valor de v desde la url dada
$_ = shift @ARGV; s[http://|www\.|goear\.com/|listen|\.php\?|v=|][]g;
my $mech = WWW::Mechanize->new(); #crea un nuevo objeto
$mech->get(“http://www.goear.com/files/sst/secm$_.xml”, ‘:content_file’ => “temp.xml” ); # Descarga Temporalmente el archivo donde se encuentra la URL del MP3
my $listsong = XMLin(“temp.xml”); #Leemos (bueno no, nosotros no, el programa) el archivo temporal que bajamos
my $artist = $listsong->{song}->{artist};#definimos algunas variables
my $song = $listsong->{song}->{title};
my $url = $listsong->{song}->{path};
print “Downloading Song…\n”;#mostramos alguna informacion sobre la cancion
print “Artist:”.$artist.”\n”;
print “Song:”.$song.”\n”;
print “Url:”.$url.”\n”;
unlink ‘temp.xml’;#borramos el archivo temporal
$file=$song.” – “.$artist;#variable
$mech->get($url, ‘:content_file’ => $file.”.mp3″ ); # aqui descargamos el archivo
print “Successful…”;
P.D: Esta Totalmente Comentada, asi que ahi encuentras la informacion sobre el script, cualquier duda pregunen.
P.D2: Totalmente Permitido Golfear
Filed under: Informatica, PERL, Web | 2 Comentarios »