Foro - Perl en Español

por **BigBear** » 2010-04-09 18:44 @822

Hola a todos.

Ando queriendo optimizar un método POST de la siguiente manera:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use LWP::UserAgent;
my $ua = new LWP::UserAgent;
 
$valor = '{ "html" => "value1",
"venga" =>"submit",
}';
 
my $response
= $ua->post('http://127.0.0.1/xss.php',$valor);
 
my $content = $response->content; 
print $content;
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

El código largo sería:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use LWP::UserAgent;
my $ua = new LWP::UserAgent;
 
my $response
= $ua->post('http://127.0.0.1/xss.php',
 { "html" => "value1",
"venga" =>"submit",
}
 
);
 
my $content = $response->content; 
print $content;
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

El problema radica en que el código optimizado o mal optimizado no me devuelve nada. ¿Alguien me podría corregir y ayudar a optimizar el valor de los datos del formulario para que quede grabado en una variable?

use LWP::UserAgent;
 
#Array que hacer  @paths
 
for my $variables(@paths) {
 
 
$page = "http://127.0.0.1/";
my $nave = LWP::UserAgent->new();
$nave->timeout(10);
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) 
 
Gecko/20080201Firefox/2.0.0.12");
print $nave->post($page,$variables)->content;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2010-04-10 05:45 @281

No estoy muy seguro de entender lo que quieres hacer. Es mejor que nos digas qué quieres hacer en el programa, ya que van saliendo dudas a cada paso.

Si lo que quieres es hacer peticiones POST a una URL, variando el valor de los parámetros, se puede hacer algo así (no probado):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use LWP::UserAgent;
 
my @rutas = qw(
    valor1    valor2    valor3
);
my $pagina = 'http://127.0.0.1/';
 
my $nave = LWP::UserAgent->new(
    timeout => 10,
    agent   => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12',
);
 
for my $ruta (@rutas) {
    print $nave->post($pagina,{ruta => $ruta})->content;
}
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Optimizar un método POST

Optimizar un método POST

Publicidad

Re: Optimizar un método POST

Re: Optimizar un método POST

Re: Optimizar un método POST

¿Quién está conectado?