-
- Publicidad
Leer una página web
20 mensajes
• Página 2 de 2 • 1, 2
Monitoreo de una página web
por 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
- Mensajes: 7
- Registrado: 2008-01-18 18:14 @801
Publicidad
por explorer » 2008-01-18 21:21 @931
Con el siguiente programa se obtiene la línea de estado del resultado de la petición.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por 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:
Lo voy a probar a ver qué pasa o ustedes saben de otra forma.
Y gracias otra vez.
Using perl Syntax Highlighting
use IO::All;
$content < io('https://example.org'); # GET webpage
$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
- Mensajes: 7
- Registrado: 2008-01-18 18:14 @801
por 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.
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
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por alejandrolea » 2008-01-22 18:33 @815
No, este es mi error:
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
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
- Mensajes: 7
- Registrado: 2008-01-18 18:14 @801
por 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.
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
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por 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.
Gracias nuevamente.
- alejandrolea
- Perlero nuevo
- Mensajes: 7
- Registrado: 2008-01-18 18:14 @801
por 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.
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
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por alejandrolea » 2008-01-25 12:12 @550
Ok, hice mal mi pregunta. En tu código hago referencia:
Ejemplo:
Tu aquí jalas de la tabla summary => 'Indicadores diarios' } ); donde contiene estos datos:
Se puede obtener una parte de esta tabla, por ejemplo, (UF, 19.663,05). Gracias.
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";
}
}
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.002 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
- Mensajes: 7
- Registrado: 2008-01-18 18:14 @801
por 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:
Si suponemos que la última frase es una pregunta, la respuesta es:
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";
@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
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
20 mensajes
• Página 2 de 2 • 1, 2
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado