Foro - Perl en Español

por **Fegna** » 2008-01-08 10:07 @463

Soy nuevo en Perl y estoy buscando la forma de abrir una página web para rescatar un valor.

Me explico:
En la página web del Banco Central de Chile despliegan ciertos valores (dolar, Euro y otros) que son el cambio oficial.

Yo requiero obtener esos valores y pensé en abrir la página web, buscar el valor necesitado y rescatarlo, luego cerrar el archivo y continuar realizando lo que necesito.

Supongo que para abrir un archivo se debe utilizar OPEN, lo que no se es si puedo abrir como archivo una página web.

Gracias

Bienvenido a los foros de Perl en Español, Fegna.

Se puede abrir si lo permite el sistema operativo.

Por ejemplo, en Linux y con el entorno KDE es posible usar las funcionalidades de su gestor de ficheros, el Konqueror, y abrir, bajar o editar un fichero utilizando alguno de los protocolos que Konqueror reconoce.

De todas formas, una solución mucho más cómoda es hacer una petición web, bajar la página y extraer el dato.

Ejemplo:

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.004 segundos,  usando GeSHi 1.0.8.4

Sale:

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

Quizás veas algunas cosas raras en la sintaxis, pero eso se aprende poco a poco. Y aquí te resolveremos todas las dudas que podamos.

Y, naturalmente, esa no es la única solución. Hay muchas más. ¡Encuentra la tuya!

por **Fegna** » 2008-01-08 12:50 @576

Muchas gracias, la sintaxis me quedó clara.

Como duda, ¿para qué se define LWP? o, dicho de otra manera, ¿dónde se utiliza?

Intentaré hacerlo de otra manera cuando tenga tiempo para poder aprender un poco más.

Gracias

por **explorer** » 2008-01-08 14:14 @634

El módulo LWP::Simple se usa para la definición de la función get() (recuperar un recurso o página desde Internet).

por **Jenda** » 2008-01-13 13:03 @585

Fegna escribiste:Como duda, ¿para qué se define LWP? o, dicho de otra manera, ¿dónde se utiliza?

LWP = libwww-perl

Es un grupo de módulos para bajar páginas de web, mandar datos por HTTP y otras cosas en relación con web.

por **natxo** » 2008-01-13 15:17 @679

wow. No sabía de este módulo, HTML::TableExtract.

Siempre ando con expresiones regulares reinventando la rueda.

Lo he probado con un fichero HTML que tengo en el disco duro y no me funciona, en cambio si lo subo al servidor web y lo hago como indicas en tu ejemplo, funciona perfecto.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use HTML::TableExtract;

my$pagina='/tmp/archivo.html';

my$te= HTML::TableExtract->new( attribs =>{ class =>'callstable'});
$te->parse($pagina);
foreach$tabla($te->tables){
foreach$fila($tabla->rows){
print" ",join(', ',@$fila),"\n";
}
}Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Pregunta: ¿es posible usar este módulo desde el sistema de archivos y no sólo desde la web?

por **explorer** » 2008-01-13 16:07 @713

No, no lo estás usando bien. $pagina no contiene el nombre del fichero o la dirección URL de la página a analizar. $pagina contiene el contenido real de la página.

En el ejemplo ves que se hace un get(), y de esa manera obtenemos la página. En tu caso, deberás hacer un open(), y luego leer la página para guardarla en $pagina.

por **natxo** » 2008-01-13 16:20 @722

Tienes razón, he metido todo el archivo en la variable $pagina con un slurp y ahora funciona.

Mola, gracias.

por **explorer** » 2008-01-13 16:29 @728

Humm.... ¿y qué pasa si en el programa original, cambiamos, en el get(), el protocolo 'http://' por el 'file:///' junto con el camino completo al fichero?

Sería interesante, pero apuesto a que solo tiene soporte para 'http:'.

por **natxo** » 2008-01-14 00:47 @074

explorer escribiste:Humm.... ¿y qué pasa si en el programa original, cambiamos, en el get(), el protocolo 'http://' por el 'file:///' junto con el camino completo al fichero?

Sería interesante, pero apuesto a que solo tiene soporte para 'http:'.

El get('file:///) también funciona y es mucho más rápido de escribir que el hacer un slurp del archivo. :-)

Foro - Perl en Español

Leer una página web

Leer una página web

Publicidad

¿Quién está conectado?