Foro - Perl en Español

por **panterozo** » 2011-05-09 16:49 @742

Estimados..

Estoy tratando de obtener la información de una tabla HTML con el módulo HTML::TableExtract, pero no funciona nada de nada...

He probado un ejemplo dado por explorer link, pero no me muestra absolutamente nada :s

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use LWP::Simple;
use HTML::TableExtract;
 
my $pagina = get('http://www.bcentral.cl/');
 
my $te = HTML::TableExtract->new( attribs => { summary => 'Indicadores diarios' } );
$te->parse($pagina);
 
foreach $tabla ($te->tables) {
    foreach $fila ($tabla->rows) {
        print " ", join(', ', @$fila), "\n";
    }
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

¿Alguna idea de qué pueda estar sucediendo?

No funciona con ninguna tabla HTML :S

#!/usr/bin/perl
 
use HTML::TableExtract;
 
my $fh = undef;
open($fh,"<test.html");
my $aux = '';
foreach(<$fh>){
        $aux .= $_;
}
 
my $te = HTML::TableExtract->new();
$te->parse($aux);
 
foreach $tabla ($te->tables) {
    foreach $fila ($tabla->rows) {
        print " ", join(', ', @$fila), "\n";
    }
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y ahí todo bien...

¡¡¡Gracias!!!

Foro - Perl en Español

Problemas con HTML::TableExtract

Problemas con HTML::TableExtract

Publicidad

Re: Problemas con HTML::TableExtract

Re: Problemas con HTML::TableExtract

¿Quién está conectado?