• Publicidad

Leer una página web

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Monitoreo de una página web

Notapor alejandrolea » 2008-01-18 18:25 @809

Hola a todos. Tengo un problema. No sé cómo hacer get para monitorear una página y que me regrese los códigos 400 o 500 según la página está arriba (disponible ) o está abajo. Gracias, soy nuevo en esto.
alejandrolea
Perlero nuevo
Perlero nuevo
 
Mensajes: 7
Registrado: 2008-01-18 18:14 @801

Publicidad

Notapor explorer » 2008-01-18 21:21 @931

Con el siguiente programa se obtiene la línea de estado del resultado de la petición.

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
#!/usr/bin/perl -l
use LWP::UserAgent;

my $ua       = LWP::UserAgent->new;
my $response = $ua->get('http://mi.dominiosuperperfecto.com/ip1.txt');
print $response->status_line;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor alejandrolea » 2008-01-22 14:35 @649

Si funciona, muchas gracias, aunque la página de la que quiero obtener los códigos es https y me dice que no está soportada SSleavy y sí está instalada. He buscado por ahí y me encontré con esto:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
use IO::All;

    $content < io('https://example.org');   # GET webpage
 
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Lo voy a probar a ver qué pasa o ustedes saben de otra forma.

Y gracias otra vez.
alejandrolea
Perlero nuevo
Perlero nuevo
 
Mensajes: 7
Registrado: 2008-01-18 18:14 @801

Notapor explorer » 2008-01-22 15:06 @671

En este foro hay algunos hilos dedicados al SSL. Usa el sistema de búsqueda. Hay uno específico a la instalación (problemas en la).

Y no uses IO::All salvo que sea ABSOLUTAMENTE necesario. Algo así como en el último minuto antes del fin del mundo.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor alejandrolea » 2008-01-22 18:33 @815

No, este es mi error:

Código: Seleccionar todo
501 Protocol scheme 'https' is not supported (Crypt::SSLeay not installed)


cuando ejecuto con https.

He tratado de buscar Crypt::SSLeay pero no lo encuentro. Estoy usando el programa "PERL PACKAGE MANAGER". Instalé todos los que empezaban con Crypt y ninguno jaló. ¿Tengo que poner algún otro repositorio? Tengo estos:
Código: Seleccionar todo
ppm4.activestate.com
http://www.cpan.org/
alejandrolea
Perlero nuevo
Perlero nuevo
 
Mensajes: 7
Registrado: 2008-01-18 18:14 @801

Notapor explorer » 2008-01-22 19:56 @872

Creo recordar que los módulos SSL estaban compilados para Windows en la Universidad de Winnipeg.

En el Win32 Wiki tienes la lista de los repositorios que puedes utilizar. Busca el que te digo, y si además añades el de trouchelle.com, tendrás la mayoría de módulos Perl a tu disposición, aunque el PPM tardará mucho para manejar más de 16.000 módulos, pero merece la pena.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor alejandrolea » 2008-01-24 19:32 @855

He resuelto el problema. Solo reinstalé Crypt::SSLeay y funciona muy bien para páginas https. También he probado el código que utilizas para el bancocentral.cl y es otra buena opción de hacer el get a las paginas https. Solo hay que ver qué tabla te sirve aunque me voy a probar juntando los dos y que me dé los códigos 200, 400, etc. y el pedazo de tabla que seleccione; por otro lado hay una forma de solo obtener solo una parte de esa tabla, por decir, en tu ejemplo, solo obtener el "Euro, 727,92".

Gracias nuevamente.
alejandrolea
Perlero nuevo
Perlero nuevo
 
Mensajes: 7
Registrado: 2008-01-18 18:14 @801

Notapor explorer » 2008-01-24 19:40 @861

¿Es una pregunta la última frase del párrafo? Es que sin interrogantes...

Recuerdo que ESTO ES un FORO. NO ES un TELÉFONO MÓVIL NI un CHAT.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor alejandrolea » 2008-01-25 12:12 @550

Ok, hice mal mi pregunta. En tu código hago referencia:
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.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.
alejandrolea
Perlero nuevo
Perlero nuevo
 
Mensajes: 7
Registrado: 2008-01-18 18:14 @801

Notapor explorer » 2008-01-26 07:42 @363

Sigues sin hacer ninguna pregunta: mientras no pongas los '¿?' no sabemos si estás preguntando o no.

Si suponemos que la última frase es una pregunta, la respuesta es:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
@tablas = $te->tables();        # Lista de tablas que coinciden con la búsqueda
@filas  = $tablas[0]->rows();   # Filas de la primera tabla
@celdas = @{$filas[0]};         # Celdas de la primera fila

print "@celdas\n";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Anterior

Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado