Foro - Perl en Español

... cómo capturar la cookie de otra.com y realizar una petición GET y enviarla en la petición la cookie ⋅  tengo entendido que con Mechanize es posible ⋅  ¿¿Necesito capturar las cookies ?? ¿O crear las cookies con esos valores? ⋅  generalmente las peticiones ...

... La Herencia ⋅  LWP::Simple: Obtener contenido de sitios web ⋅  LWP::Simple: Encontrar-rastrear emails en la web ⋅  Mechanize: Obtener links e imágenes de la web ⋅  Mechanize: hack Wordpress login (fuerza bruta) ⋅  Mechanize hack Joomla login (fuerza ...

... (usando el comando cpan o cpanp). Voy a poner como ejemplo mi propio sistema: Linux Mint (un derivado de Debian). Lo primero, miro a ver si WWW::Mechanize::Firefox (WMF) está disponible para su instalación directa: [bash lines=geshi-n]su - # (me hago root) apt-cache search libwww-mechanize|fgrep ...

... Por eso hay que esperar unos pocos segundos a que le de tiempo a presentar la nueva pestaña. A continuación, y con la ayuda del módulo WWW::Mechanize::Firefox , se puede indicar que vaya a la página, rellene el formulario y que ingrese. Para otros navegadores, sistemas, consultar WWW::Mechanize::Firefox::FAQ ...

... que hacer clic en la imagen para usar el servicio. El problema es que no sé cómo seguir la péticion POST con este módulo porque no quiero usar Mechanize. ¿ Alguien me puede ayudar ?

Hola, explorer. ¡Gracias por la respuesta! Efectivamente: la página tenía algo de JavaScript, no sé si habrá sido ese el motivo, ya que cambié varias cosas y se solucionó. xD Al final usé WWW::Mechanize en vez de LWP y mandé una petición POST en vez de agregar los parámetros en la url.

Saludos

... igual puedes mejorarlo... Ahora, si necesitas que el programa vaya a la página web y saque esta información tienes que sacar el código con el WWW::Mechanize y la dejas en la variable $ContentPage. Saludos...

... su propia función de decodificación, así que tampoco necesitas llamar a esa función: [perl lines=geshi-n] my ($json_url) = @_; my $browser = WWW::Mechanize->new(); eval{ # descargar la página json: print "Obteniendo json $json_url\n"; $browser->get( $json_url ); my $contenido = $browser->content(); ...

... use HTTP::Request::Common qw(POST); use strict; use warnings; use LWP::UserAgent; use HTTP::Request; use IO::Socket::SSL qw(); use WWW::Mechanize qw(); my $ua = LWP::UserAgent->new(ssl_opts => { SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE, verify_hostname => 0, # this key is ...

... es lo que tengo. [perl lines=geshi-n]use LWP::UserAgent; use HTTP::Cookies; use HTTP::Request::Common qw(POST); use IO::Socket::SSL qw(); use WWW::Mechanize qw(); #my $ua = LWP::UserAgent->new; my $ua = WWW::Mechanize ->new(ssl_opts => { SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE, verify_hostname ...