• Publicidad

Optimizar un método POST

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Optimizar un método POST

Notapor 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
  1. use LWP::UserAgent;
  2. my $ua = new LWP::UserAgent;
  3.  
  4. $valor = '{ "html" => "value1",
  5. "venga" =>"submit",
  6. }';
  7.  
  8. my $response
  9. = $ua->post('http://127.0.0.1/xss.php',$valor);
  10.  
  11. my $content = $response->content;
  12. print $content;
  13.  
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4


El código largo sería:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. use LWP::UserAgent;
  2. my $ua = new LWP::UserAgent;
  3.  
  4. my $response
  5. = $ua->post('http://127.0.0.1/xss.php',
  6.  { "html" => "value1",
  7. "venga" =>"submit",
  8. }
  9.  
  10. );
  11.  
  12. my $content = $response->content;
  13. print $content;
  14.  
Coloreado en 0.001 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?
Última edición por explorer el 2010-04-09 18:49 @825, editado 1 vez en total
Razón: Ortografía
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Publicidad

Re: Optimizar un método POST

Notapor explorer » 2010-04-09 20:01 @875

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. $valor = {
  2.     html  => 'value1',
  3.     venga => 'submit',
  4. };
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Optimizar un método POST

Notapor BigBear » 2010-04-09 20:23 @891

Gracias explorer. Otra duda: para guardarlo en un array junto a otros iguales repetidos, ¿cómo sería para que el método post me ande bien?

Aquí el código:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. use LWP::UserAgent;
  2.  
  3. #Array que hacer  @paths
  4.  
  5. for my $variables(@paths) {
  6.  
  7.  
  8. $page = "http://127.0.0.1/";
  9. my $nave = LWP::UserAgent->new();
  10. $nave->timeout(10);
  11. $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12)
  12.  
  13. Gecko/20080201Firefox/2.0.0.12");
  14. print $nave->post($page,$variables)->content;
  15. }
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Re: Optimizar un método POST

Notapor 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
  1. #!/usr/bin/perl
  2. use LWP::UserAgent;
  3.  
  4. my @rutas = qw(
  5.     valor1    valor2    valor3
  6. );
  7. my $pagina = 'http://127.0.0.1/';
  8.  
  9. my $nave = LWP::UserAgent->new(
  10.     timeout => 10,
  11.     agent   => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12',
  12. );
  13.  
  14. for my $ruta (@rutas) {
  15.     print $nave->post($pagina,{ruta => $ruta})->content;
  16. }
  17.  
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados

cron