Foro - Perl en Español

por **BigBear** » 2012-12-04 11:47 @533

Tengo el siguiente código :

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use LWP::UserAgent;
 
my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);
 
my $url = "http://www.portalhacker.net" . "/index.php?action=login2";
 
print $url;
 
my $user = "test";
my $pass = "test";
 
my $code = tomar( $url, { "user" => $user, "passwrd" => $pass, "cookielength" => "9000", "hash_passwrd" => "" } );
 
print $code;
 
if ( $code =~ /Hola <span>(.*?)<\/span>/ ) {
    my $name = $1;
    print "Bienvenido $name\n";
}
 
open( test, ">>test.html" );
print test $code;
close test;
 
sub toma {
    return $nave->get( $_[0] )->content;
}
 
sub tomar {
    my ( $web, $var ) = @_;
    return $nave->post( $web, [ %{$var} ] )->content;
}
 
#The End ?
 
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Lo peor de todo es que no me muestra nada en la variable $code , ¿ alguien me podría indicar qué estoy haciendo mal ?

#!usr/bin/perl
 
use LWP::UserAgent;
use warnings;
 
my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);
 
my $url = "http://www.portalhacker.net"."/index.php?action=login2";
 
my $usera = "test";
my $passa = "test";
 
my $final = $nave->post("http://www.portalhacker.net/index.php?action=login2",{"user"=>"test","passwrd"=>"test","cookielength"=>"60","hash_passwrd"=>"","submit"=>"Ingresar"});
my $code = $final->content;
 
print $code;
 
 
#The End ? 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **BigBear** » 2012-12-05 13:02 @584

Perdón por el doble mensaje, pero intenté en Ruby y el error sigue, pero encontré este script en Python que sí anda.

Sintáxis: [ Descargar ] [ Ocultar ]

Using python Syntax Highlighting

 
    import urllib2
    from urllib import urlencode
     
    diccionario={'user':'mr.blood','passwrd':'morbuntu','cookielength':'9000'}
     
    cookie = urllib2.HTTPCookieProcessor()
     
    opener = urllib2.build_opener(cookie)
    urllib2.install_opener(opener)
     
    datos = urlencode(diccionario)
     
    direc = urllib2.urlopen('http://foro.portalhacker.net/index.php?action=login2', datos)
     
    print direc.read()
    direc.close()
     
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

¿ Notas algo en el código de Python que falte en el código de Perl aparte de usar cookies ?

También intenté usando cookies, como el código de Python, pero nada.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use LWP::UserAgent;
#use warnings;
 
use HTTP::Cookies;
use HTTP::Request::Common;
 
my $nave = LWP::UserAgent->new(
cookie_jar => HTTP::Cookies->new(),
requests_redirectable => [ ],
timeout => 10, 
agent => "Mozilla/5.0 (Macintosh; Intel Mac OS X 10.7; rv:12.0) Gecko/20100101 Firefox/12.0"
);
 
 
#my $nave = LWP::UserAgent->new;
#$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
#$nave->timeout(5);
 
my $url = "http://www.portalhacker.net"."/index.php?action=login2";
 
print $url;
 
my $usera = "test";
my $passa = "test";
 
my $code = tomar($url,{"user"=>$usera,"passwrd"=>$passa,"cookielength"=>"9000","hash_passwrd"=>"","submit"=>"submit"});
 
print $code;
 
if($code=~/Hola <span>(.*?)<\/span>/) {
my $name = $1;
print "Bienvenido $name\n";
}
 
 
open(test,">>test.html");
print test $code;
close test;
 
sub toma {
return $nave->get($_[0])->content;
}
 
sub tomar {
my ($web,$var) = @_;
return $nave->post($web,[%{$var}])->content;
}
 
#The End ? 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-12-05 17:58 @790

Creo que ya sé lo que pasa: si haces esa petición y ves lo que te devuelve (insisto: dump), entonces ves que te ha devuelto un 302, que es una redirección, indicando que debes ir a una dirección de este estilo:

http://www.portalhacker.net/index.php?P ... mber=91147

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

$VAR1 = bless( {

                 '_protocol' => 'HTTP/1.1',

                 '_content' => '',

                 '_rc' => '302',

                 '_headers' => bless( {

                                        'connection' => 'close',

                                        'x-powered-by' => 'PHP/5.2.14',

                                        'client-response-num' => 1,

                                        'location' => 'http://www.portalhacker.net/index.php?PHPSESSID=ded1aaea5d1c7ed43e760f4531aff959;action=login2;sa=check;member=91147',

                                        'cache-control' => 'private',

                                        'set-cookie' => [

                                                          'PHPSESSID=5dcdc80181de5b4db8ca143378f31afc; path=/; domain=.portalhacker.net',

                                                          'Cphcookies=a%3A4%3A%7Bi%3A0%3Bs%3A5%3A%2291147%22%3Bi%3A1%3Bs%3A40%3A%2299e1dff4dc1c583fa3cf5b2ed9b873219c431c87%22%

                                                          'PHPSESSID=8a9d107fbf7fb566b28ffb152bae71df; path=/; domain=.portalhacker.net',

                                                          'PHPSESSID=ded1aaea5d1c7ed43e760f4531aff959; path=/; domain=.portalhacker.net'

                                                        ],

                                        'date' => 'Wed, 05 Dec 2012 22:43:02 GMT',

                                        'client-peer' => '63.246.133.74:80',

                                        'content-length' => '0',

                                        'client-date' => 'Wed, 05 Dec 2012 22:43:03 GMT',

                                        'content-type' => 'text/html',

                                        'pragma' => 'no-cache',

                                        'server' => 'Apache',

                                        'expires' => 'Thu, 19 Nov 1981 08:52:00 GMT'

                                      }, 'HTTP::Headers' ),

                 '_msg' => 'Found',

                 '_request' => bless( {

                                        '_content' => 'cookielength=60&passwrd=test&submit=Ingresar&user=test&hash_passwrd=',

                                        '_uri' => bless( do{\(my $o = 'http://www.portalhacker.net/index.php?action=login2')}, 'URI::http' ),

                                        '_headers' => bless( {

                                                               'user-agent' => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12',

                                                               'content-type' => 'application/x-www-form-urlencoded',

                                                               'content-length' => 68

                                                             }, 'HTTP::Headers' ),

                                        '_method' => 'POST',

                                        '_uri_canonical' => $VAR1->{'_request'}{'_uri'}

                                      }, 'HTTP::Request' )

               }, 'HTTP::Response' );Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

en donde vemos que ha insertado una variable de sesión (PHPSESSID).

Curiosamente, nos envían, no una, sino TRES cookies iguales en nombre (PHPSESSID), pero de contenido distinto (¿quién ha hecho esta página?) y ni siquiera coinciden con la que nos dan en la URL... ¡Vaya desastre!

Entonces... hay que modificar el programa para que lea esa nueva URL, e intentar entrar de nuevo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if ($final->is_redirect) {
    print $final->header('location'), "\n";
}
elsif ($final->is_success) {
    print $final->as_string, "\n";
}
else {
    print STDERR $final->status_line, "\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **BigBear** » 2012-12-06 14:10 @632

Eso explica muchas cosas

Pero tengo otra duda con una expresión regular porque quiero sacar todo los subforos de un foro para después mostrarlos por pantalla.

Intenté con esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while($code=~/<strong>Subforos<\/strong>: <strong><a href="(.*)" class="new_posts" title="(.*)">(.*)<\/a> <a href="(.*)" title="(.*)"><img src="(.*)" class="new_posts" alt=""><\/a><\/strong>/mig) {
print $2."\n";
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

pero nada, acá te dejo el texto del problema.

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<strong>Subforos</strong>: <a href="http://www.portalhacker.net/index.php/board,6.0.html" title="No hay nuevos Mensajes (Temas: 5,502, Mensajes: 17,430)">Noticias de la red</a>, <strong><a href="http://www.portalhacker.net/index.php/board,9.0.html" class="new_posts" title="Nuevos Mensajes (Temas: 1,539, Mensajes: 40,426)">Off Topic</a>
 
<strong>Subforos</strong>: <a href="http://www.portalhacker.net/index.php/board,113.0.html" title="No hay nuevos Mensajes (Temas: 257, Mensajes: 950)">Código Abierto Python</a>
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Mi idea es sacar el nombre y el enlace del tablero de cada uno.

¿ Cómo puedo mejorar mi expresión regular ?

por **explorer** » 2012-12-06 16:51 @743

Creo que esos foros usan el software de PHPbb, y en CPAN hay unos cuántos módulos que facilitan la extracción y publicación de mensajes.

por **BigBear** » 2012-12-07 13:09 @590

En realidad es SMF y al parecer no encontré módulos en CPAN para SMF, así que lo dejo terminado así. Lo publico en la sección de proyectos de este foro.

Foro - Perl en Español

Duda con formulario

Duda con formulario

Publicidad

Re: Duda con formulario

Re: Duda con formulario

Re: Duda con formulario

Re: Duda con formulario

Re: Duda con formulario

Re: Duda con formulario

Re: Duda con formulario

Re: Duda con formulario

Re: Duda con formulario

¿Quién está conectado?