Foro - Perl en Español

por **BigBear** » 2012-11-24 12:44 @572

Estaba viendo la siguiente página: http://mp3skull.com/mp3/bones_now.html El problema es que yo quiero listar toda la tabla en la que están los nombres de las canciones, el peso y los otros datos. El tema de descargar lo solucioné usando una expresión regular para que capture todos los .mp3" pero el tema de los datos de las tablas no sé cómo hacerlo.

¿ Alguien tiene alguna idea ?

#!/usr/bin/perl
use v5.14;
use URI;
use Web::Scraper;
 
# Definimos cómo queremos rascar
my $cancionero = scraper {
    process 'div#song_html', 'canciones[]' => scraper {
        process 'div.left', 'pesos' => sub {
            my $elemento = shift;
            #$elemento->delete_ignorable_whitespace();
            my @info = grep { ref($_) eq '' } $elemento->content_list;
            return [ @info ];
        };
        process 'div[style="font-size:15px;"]', titulo => 'TEXT';
        process 'a[style="color:green;"]', enlace => '@href';
    };
};
 
# Rascamos
my $res = $cancionero->scrape( URI->new("http://mp3skull.com/mp3/bones_now.html") );
 
# Sacamos las canciones
for my $cancion (@{$res->{canciones}}) {
    say "$cancion->{titulo} => ";
    my @pesos = @{ $cancion->{pesos} };
    for my $peso (@pesos) {
        $peso =~ s/^\s+//;
        $peso =~ s/\s+$//;
 
        if ($peso =~ /kbps/i) {
            say "\t", "Velocidad: [$peso]";
        }
        elsif ($peso =~ /:/) {
            say "\t", "Duración:  [$peso]";
        }
        elsif ($peso =~ /[kmg]b/i) {
            say "\t", "Tamaño:    [$peso]";
        }
        else {
            say "\t", "xxxx:      [$peso]";
        }
    }
    say "\t", $cancion->{enlace};
}
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

explorer@joaquinferrero:~/Documentos/Desarrollo> ./kk.pl

Discovery Now - bionic bones mp3 => 

        Velocidad: [256 kbps]

        Duración:  [1:30]

        Tamaño:    [2.79 mb]

        http://www.whro.org/home/html/podcasts/discoverynow/041408.mp3

Sean Bones - 'Here Now' mp3 => 

        Velocidad: [128 kbps]

        Duración:  [3:28]

        Tamaño:    [3.19 mb]

        http://serve.castfire.com/audio/878039/sean-bones-here-now_2012-02-23-174939.128.mp3

Discovery Now - bionic bones mp3 => 

        Velocidad: [256 kbps]

        Duración:  [00:01:30]

        Tamaño:    [2.8 mb]

        http://whro.org/home/html/podcasts/discoverynow/041408.mp3

Sean Bones - Here Now mp3 => 

        Tamaño:    [5.02 mb]

        http://www.hulkshare.com/dl/4t42l4kxi811/sean_bones_-_here_now.mp3

Fuego Ft. Amara - Lo Que Quiero (Prod. By Bones, Now & Laterz) (http://Www.StiloCaro.Com) mp3 => 

        Tamaño:    [4.43 mb]

        http://www.hulkshare.com/dl/w86wxq8bl0n4/fuego_ft._amara_-_lo_que_quiero_%28prod._by_bones%2c_now_%26_laterz%29.mp3

Sean Bones - Here Now mp3 => 

        Velocidad: [160 kbps]

        Duración:  [3:27]

        Tamaño:    [3.95 mb]

        http://myspoonful.com/wp-content/uploads/Sean-Bones-Here-Now.mp3

Frankie Bones - Bonesbreaks Vol. 2 (B2) On The Beat Now-freestyle na veia mp3 => 

        Duración:  [4:40 mins]

        Tamaño:    [6.41 mb]

        http://dc203.4shared.com/img/564370108/97ff8470/dlink__2Fdownload_2FS4XeLchH_3Ftsid_3D20121124-21720-fad47fd0/preview.mp3Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Lo de sacar el enlace, gracias a que es de color verde... ha sido de pura chiripa...

por **BigBear** » 2012-11-24 15:20 @680

Gracias por la ayuda, explorer, pero quería preguntarte si no tendrías un ejemplo como este pero sin usar ese módulo porque tiene muchas dependencias. Lo digo para que sea más fácil de usar el programa para quien quiera usarlo, no porque me dé flojera instalarlos.

por **BigBear** » 2012-11-26 16:04 @711

Bueno, me vi forzado a usar mi limitado cerebro

, dejo mi improvisada solución para que me digas en qué puedo mejorarla; me refiero a ese raro espacio en la segunda expresión regular.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#http://mp3skull.com/mp3/bones_now.html
 
#!usr/bin/perl
 
use LWP::UserAgent;
 
my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);
 
my $code = toma("http://mp3skull.com/mp3/bones_now.html");
 
chomp $code;
 
my @nombres;
my @datas;
my @links;
 
while($code=~/<div style="font-size:15px;"><b>(.*)<\/b><\/div>/mig) {
my $nombre = $1;
#print "name : $nombre\n";
push(@nombres,$nombre);
}
 
while($code=~/<!-- info mp3 here -->
                                (.*)                    <\/div>/mig) {
my $data = $1;
$data=~s/<br \/>/ /;
$data=~s/<br \/>/ /;
#print "data : $data\n";
push(@datas,$data);
}
 
 
while($code=~/<a href=\"(.*)\.mp3\"/mig) {
my $link = $1.".mp3";
#print "link : $link\n";
push(@links,$link);
}
 
my $encontrados = int(@nombres) - 1;
 
for my $aca(0..$encontrados) {
print "[Names] : $nombres[$aca]\n";
print "[Data] : $datas[$aca]\n";
print "[Link] : $links[$aca]\n\n";
}
 
sub toma {
return $nave->get($_[0])->content;
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-11-26 17:49 @784

por **BigBear** » 2012-11-26 19:02 @835

Lo intenté aplicando de este forma y no devuelve nada:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while($code=~/<!-- info mp3 here -->(\s+)<\/div>/mig) {
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

también de esta y nada:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while($code=~/<!-- info mp3 here -->(.*)<\/div>/migs) {
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿ qué estoy haciendo mal ?

por **explorer** » 2012-11-26 20:16 @886

Prueba con esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    while ($code =~ /<!-- info mp3 here -->\s+(.*?)<\/div>/migs) {
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **BigBear** » 2012-11-27 09:52 @453

Listo, gracias por la ayuda.

Foro - Perl en Español

Pregunta sobre extraer información de una página

Pregunta sobre extraer información de una página

Publicidad

Re: Pregunta sobre extraer información de una página

Re: Pregunta sobre extraer información de una página

Re: Pregunta sobre extraer información de una página

Re: Pregunta sobre extraer información de una página

Re: Pregunta sobre extraer información de una página

Re: Pregunta sobre extraer información de una página

Re: Pregunta sobre extraer información de una página

¿Quién está conectado?