Ok, hice mal mi pregunta. En tu código hago referencia:
Ejemplo:
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.001 segundos, usando
GeSHi 1.0.8.4
Tu aquí jalas de la tabla
summary => 'Indicadores diarios' } ); donde contiene estos datos:
- Código: Seleccionar todo
UF, 19.663,05
UTM (Enero), 34.496,00
Dólar Observado, 495,64
Euro, 727,92
TCM (02/01/1998=100), 103,43
Se puede obtener una parte de esta tabla, por ejemplo, (UF, 19.663,05). Gracias.