Esto es lo que tengo.
Using perl Syntax Highlighting
- 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 => 0, # this key is likely going to be removed in future LWP >6.04
- });
- #$ua->agent("Kidd 1.0 (http://perlenespanol.com/)");
- #utilizare https://hotmail.com para ejemplificar lo que quiero expresar
- my $url = "https://www.hotmail.com";
- #my $req = HTTP::Request->new(GET => $url);
- # puse login_username y login_password debido a que estos campos son los que utiliza la página a la que me deseo loguear
- my $req = POST 'https://www.hotmail.com',
- [ login_username => 'prueba', login_password => 'prueba', login => 'Login' ];
- my $response = $ua->request($req);
- my $content = $response->content();
- print "Content-type: text/html\n\n";
- print $content;
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Lo que necesito es registrarme y hacer un query hacia otra página vía URL (que ya tengo solucionado vía explorador), y el resultado HTML guardarlo en un archivo, para esto entiendo que necesito la cookie activa o estar registrado (que es lo mismo) pero no logro hacerlo, y luego el tema de escritura en archivo (que no representa problemas), pero no tengo la mas mínima idea de cómo hacerlo. Te agradeceré una mano, muchas gracias.
