• Publicidad

Extraer variables de un formulario

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

Extraer variables de un formulario

Notapor BigBear » 2010-03-18 15:45 @698

Hola.

Ando teniendo un problema porque quería extraer las variables de un formulario web y no sé cómo.

Pues estoy usando WWW::Mechanize y tengo ya el siguiente código.

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
$web  = "http://127.0.0.1/libro.php";
my $mech = WWW::Mechanize->new();
$mech->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12");
$mech->get($web);
my $rta = $mech->dump_forms($fh);
 
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4


Devuelve
Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
POST http://127.0.0.1/libro.php
  html=                          (text)
  venga=Enviar                   (submit)
 
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


Este código me extrae toda la información sobre el formulario desde variables hasta otros datos pero lo que yo quiero es separarlos teniendo solo lo que necesito que serían las variables de las cajas de texto, en este caso "html".


¿Alguien me podría ayudar con mi problema?
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Publicidad

Re: Extraer variables de un formulario

Notapor explorer » 2010-03-18 16:30 @729

Con WWW::Mechanize, imitas el acceso a una página como si estuvieras navegando por ella.

Cuando obtienes la página, como respuesta al POST o al GET, puedes tener acceso a los formularios que haya dentro de la página por medio del método forms(), que devuelve una referencia a un arreglo, que cada elemento es un objeto del tipo HTML::Form. Luego, con el método find_input() puedes indicar que solo quieres tener acceso a las cajas de texto de tipo texto, por ejemplo.

Vamos, en 4 líneas sacas todas las cajas de tipo texto, de la página. Y con value(), saber el valor que almacenan.
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