Foro - Perl en Español

por **lis** » 2015-04-08 16:29 @728

Hola a todos, tanto tiempo.

Les pido su ayuda: necesito descargar de una página los promedios mensuales de la temperatura máxima, media y mínima pero no lo consigo. Lo más cercano es esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
 
use LWP::Simple;
 
my $xls  = 'salida.xls';
 
my $URL= 'http://164.77.222.61/climatologia/php/temperaturaMensual.php?IdEstacion=330030&FechaIni=01-02-2000';
 
getstore($URL, $xls);
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Me genera un excel, pero con todos los datos. Probé con los módulos Text::CSV, HTML::TableExtract y Text::Table y no he conseguido nada.

Les agradezco de antemano su ayuda.

#!/usr/bin/perl
use strict;
use warnings;
 
use LWP::Simple;
use HTML::TableExtract;
 
open(OUT, ">salida.txt") or die "$!\n";
 
my $url = get('http://164.77.222.61/climatologia/php/temperaturaMensual.php?IdEstacion=330030&FechaIni=01-02-2000');
 
my $te = HTML::TableExtract->new();
$te->parse($url);
 
my $pm="Promedio Mensual"; 
 
foreach my $ts ($te->tables) {
foreach  my $row ($ts->rows) {
if($$row[0]=~/$pm/) {
print OUT "$$row[1]  $$row[2]  $$row[4]\n" ;       
}}}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Extraer tabla de temperatura en página web

Extraer tabla de temperatura en página web

Publicidad

Re: Extraer tabla de temperatura en página web

Re: Extraer tabla de temperatura en página web

¿Quién está conectado?