Ver Tema

Doddy · 2011-06-18 20:22 @890

Tengo un problema con este módulo porque no puedo usarlo para parsear un archivo, porque lo que quiero es abrir el contenido de un archivo html local y guardarlo en una variable para después usar este módulo, pero este modulo requiere combinar el uso de LWP:UserAgent y no es lo quiero.

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

use HTML::Form;
 
$texto = "<form> bla bla bla"; # contenido de algún archivo
 
my @test = HTML::Form->parse($texto);
 
print $test->method."\n";

¿ Alguien me podría ayudar ?

explorer · 2011-06-19 04:17 @220

La documentación dice que la función parse() necesita dos argumentos: el texto a analizar, y el URI base con el que se resuelven las URI relativas que se encuentre en el formulario.

No dice que LWP::UserAgent vaya a usarse para "recuperar" el texto desde Internet, sino que el segundo parámetro se utiliza para la resolución de las direcciones relativas.

Doddy · 2011-06-19 09:47 @449

Gracias por la explicación, explorer, pero, entonces ¿qué debería poner como segundo parámetro en la función parse()? ¿Me podrías dar un ejemplo con un archivo de texto?

explorer · 2011-06-19 10:13 @467

Pues, por ejemplo: 'http://localhost/'

Doddy · 2011-06-19 12:25 @559

Gracias por la ayuda, explorer, pero tengo otra duda con el módulo, porque he logrado cargar el formulario mostrando values, names y otra cosas, pero el problema es que al haber dos formularios el módulo solo detecta el primero y al segundo ni lo ve.

El código queda así:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

    use HTML::Form;
     
    $texto = "<form> bla bla bla</form><form>bla1 bla2></form>"; # contenido de algún archivo
     
    my $test = HTML::Form->parse($texto,"/");
     
    print $test->method."\n";

En realidad la variable $texto solo es un ejemplo, porque lo estoy probando con formularios completos no con "bla bla"

¿ No sabes cómo obtener todos los formularios ?

Birei · 2011-06-19 13:35 @607

Hola,

Prueba con una variable de array. Algo así:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

my @test = HTML::Form->parse($texto,"/");

Saludos,
Birei

Doddy · 2011-06-19 14:08 @630

Ya lo intenté y nada

Birei · 2011-06-19 15:58 @707

Este ejemplo funciona para mí. Obtiene la página de búsqueda avanzada de Google, que contiene 3 formularios y recupera el atributo "name" de cada uno de ellos.

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

use strict;
use warnings;
use LWP::UserAgent;
use HTML::Form;
 
my $ua = LWP::UserAgent->new;
 
my $resp = $ua->get("http://www.google.es/advanced_search?hl=es");
die "Cannot get Google Advanced Search page\n" unless defined $resp;
 
my @forms = HTML::Form->parse(
    $resp->decoded_content,
    base    => $resp->base,
    charset => $resp->content_charset
);
die "Cannot find any forms\n" unless @forms;
 
foreach my $form (@forms) {
    print $form->attr("name"), "\n";
}
 

Por su parte, en tu código, si intento almacenar el resultado en una variable de array y lo recorro, me recupera los dos formularios:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

use strict;
use warnings;
use HTML::Form;
 
my $texto = qq(<form name="a"> bla bla bla</form><form name="b">bla1 bla2></form>); 
my @test = HTML::Form->parse($texto,"/");
 
foreach my $form ( @test ) {
        print $form->attr( "name" ), "\n";
}
 

Saludos,
Birei

Doddy · 2011-06-19 16:11 @716

Perfecto, birei. Sigue así y pronto serás el nuevo explorer

Doddy · 2011-06-20 11:09 @506

Hola, necesito saber cómo cargar cierto formulario (habiendo varios) usando HTML::Form

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

        use HTML::Form;
         
        $texto = "<form> bla bla bla</form><form>bla1 bla2></form><form>dasdsads</form>"; # contenido de algún archivo
         
        my $test = HTML::Form->parse($texto,"/");
         
        print $test->method."\n";

Los formularios que tengo no tienen "name" por eso requiero acceder a ellos usando número de existencia; lo que necesito es conocer solo el segundo.

¿ Alguien me podría ayudar ?

explorer · 2011-06-20 11:19 @513

No lo he probado, pero mirando la respuesta de Birei, sería algo así:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

my $test = ( HTML::Form->parse($texto,"/") )[1]; # segundo formulario del $texto

Doddy · 2011-06-20 11:53 @536

Hecho, funciona como quería.

Publicidad

Socializa