Foro - Perl en Español

Saludos... Buenas tardes. Por favor, necesito migrar este programa de Python a Perl,
que realice exactamente lo mismo.

Desconozco mucho Python.


Si alguien puede ayudarme, por favor.

EMULAR EL BROWSER:

import mechanize
import cookielib

# Browser
br = mechanize.Browser()

# Cookie Jar
cj = cookielib.LWPCookieJar()
br.set_cookiejar(cj)

# Browser options
br.set_handle_equiv(True)
br.set_handle_gzip(True)
br.set_handle_redirect(True)
br.set_handle_referer(True)
br.set_handle_robots(False)

# Follows refresh 0 but not hangs on refresh > 0
br.set_handle_refresh(mechanize._http.HTTPRefreshProcessor(), max_time=1)

# Want debugging messages?
#br.set_debug_http(True)
#br.set_debug_redirects(True)
#br.set_debug_responses(True)

# User-Agent (this is cheating, ok?)
br.addheaders = [('User-agent', 'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.1) Gecko/2008071615 Fedora/3.0.1-1.fc9 Firefox/3.0.1')]


Nota:
# Cookie Jar
instancion un objeto del tipo cookie
cj = cookielib.LWPCookieJar()
asigno la cookie a br.
br.set_cookiejar(cj)


Este código, ¿cómo puedo traducirlo en Perl? Es decir,
lo que YO entiendo es que captura la cookie y la utiliza en una petición, sea GET o POST.

Opciones que no sé en Perl a qué equivaldrían.

# Browser options
br.set_handle_equiv(True)
br.set_handle_gzip(True)
br.set_handle_redirect(True)
br.set_handle_referer(True)
br.set_handle_robots(False)

Saludos...

Este código me gustaría comprenderlo y traducirlo a Perl.

cj = cookielib.LWPCookieJar()
asigno la cookie a br.
br.set_cookiejar(cj)

Dudas:

Cuando visitamos una web, generalmente éstas crean una cookie.

La intención es capturar la cookie y utilizarla en los GET, POST, ya que muchas veces en las cookies están los token y PHPSESSION.

La idea es poder registrarse en Facebook.

Intento que el script se registre con mi cuenta.

En Python algo similar. Por eso quiero hacerlo en Perl utilizando mechanize.

En la me pide buzón de correo y clave y tengo mis datos.

Intenté de esta manera pero NO funciona:

#!C:/Perl/bin/perl.exe

use strict;
use LWP::UserAgent;
use HTTP::Request;
use WWW::UserAgent::Random;



my $agente = rand_ua("browsers");

#definimos las entradas email,clave
my ($dfb)=@ARGV;
my ($cla)=@ARGV;
chop($dfb);
chop($cla);

if (not defined $dfb,$cla)
{

print "parametros no definidos";

}
#continuamos la ejecucion:

#definimos un objeto del tipo UserAgent llamdo obj_ua
my $obj_ua = LWP::UserAgent->new();
$obj_ua->timeout(20);
$obj_ua->agent($agente);

my $url = "https://www.facebook.com/login.php?login_attempt=1";
chop ($url);

#my $data = "lsd=AVpgD42H&display=&enable_profile_selector=&legacy_return=1&profile_selector_ids=&trynum=1&timezone=240&lgnrnd=092751_EV7b&lgnjs=1427214493&email=mi_email%40latinmail.com&pass=Passw00s3drd23&persistent=1&default_persistent=1&qsstamp=W1tbNywyMyw4NSwxMjAsMTM4LDE0OSwxNTMsMTc2LDE5OCwyMDcsMjA4LDIxMCwyMTYsMjE5LDIzMCwyMzIsMjM0LDI0MCwyNDIsMjUwLDI2OCwyNzAsMjc1LDI3NywyNzgsMjg0LDI5NSwzMzUsMzYwLDM4Niw0MDIsNDA0LDQ2Niw0NzksNDg1LDQ4Niw0ODcsNDkxLDUxNiw1NjUsNTgyLDcwMF1dLCJBWm5rbTQyUVpzekFHcl9oRmd0U2pWeDhrRkZfS0tmRGJNQ1RtS3pwMlU0VFZoc0Z6bEZJV3ZuVE9tdzVEWlRkUDRlQXlvQ21JMno4WHhBXzlGQVIzNWJKZ25uSF9GMjRpNDJ5UDBmbURvR3FlNmIwVXk0LTNPbU8zYVV4T3dRYk5HVXpHVmp0aTl0X0JVZnhxcmJfc3ZRbklRX1Q1bHR1elNjMU1CYmgwU0N2bUR5cGtYd1RmWjFpNjFSaWViUGdIaUFCVnM3ODlGazBTV2tMUjVYQktPX1JhTHl4cGZVYXB3aW92T1M3OExwQ3hPVlN1cVgzUmliZ0x0OGlrdmZCSm9vIl0%3D";
my $data = "email=mi_email%40hotmail.com&pass=Passw00s3drd23";
chop($data);


my $request = HTTP::Request->new(POST => $url);
$request->content_type('application/x-www-form-urlencoded');
$request->content($data);

my $response = $obj_ua->request($request);
my $content = $response->content();

print $content;
print $response->code();

Se supone que debería darme un 200 (Ok) en caso de que estuviese registrado si los datos son reales.

Saludos...

Ok, estimado, muchas gracias. Ya logré mi objetivo.

Muchas gracias por la ayuda prestada.

Saludos...