Foro - Perl en Español

por **BigBear** » 2011-06-21 11:46 @532

Si ahora le pregunté un ejemplo a explorer de cómo usar los arrays para el tema de los datos. Sé que con Mechanize lo soluciono y evito usar formularios , pero mantengo una filosofía rara y poco práctica de aprender paso a paso como son las cosas , por eso no usé Mechanize para poder entender cómo listar formularios y usas cosas sabiendo que Mechanize resume considerablemente el código.

En vez de

@valores = ("nombre/test","submit/boton");

sería

@valores = ('nombre', 'test', 'submit', 'boton');

Es decir: vas agregando nombre/valor como elementos individuales al array.

También lo puedes escribir así, al utilizar la coma "gorda":

@valores = ('nombre' => 'test', 'submit' => 'boton');

Es igual que antes, pero más "visual".

En forma de hash queda aún mejor escrito:

%valores = ('nombre' => 'test', 'submit' => 'boton');

por **BigBear** » 2011-06-21 12:31 @563

Gracias por la ayuda, tengo una duda fuera del tema, quería saber si puede pasar que en un formulario se repita un input con el mismo nombre y valor. Quería saber para ver si es necesario hacer una función que lo detecte.

por **explorer** » 2011-06-21 13:06 @588

Sí que se puede pasar, pero, depende del programa que lo reciba, o solo tratará el primero que encuentre, o el último, o los dos. No hay garantía, porque el estándar dice que solo se debe pasar un valor por cada input, salvo los de tipo de selección múltiple.

por **BigBear** » 2011-06-21 13:11 @591

Pero que desgracia, explorer. Me quedó este código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!usr/bin/perl
 
use LWP::UserAgent;
use HTML::Form;
 
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);
 
scan("http://localhost/post.php");
 
#scan("http://localhost/test/a.php");
 
sub scan {
 
    my $page = shift;
 
    my @strings = ( "yeah", "fuck" );
    my @testar = HTML::Form->parse( toma($page), "/" );
    my @botones_names;
    my @botones_values;
    my @orden;
 
    my $valor = "doddyhackman";
 
    for my $test (@testar) {
        if ( $test->method eq "POST" ) {
            my @inputs = $test->inputs;
            for my $in (@inputs) {
                if ( $in->type eq "submit" ) {
                    if ( $in->name eq "" ) {
                        push( @botones_names, "submit" );
                    }
                    push( @botones_names,  $in->name );
                    push( @botones_values, $in->value );
                }
                else {
                    push( @orden, '"' . $in->name . '" => "' . $valor . '"' );
                }
            }
 
            for my $n ( 0 .. int(@botones_names) - 1 ) {
                my @pre = @orden;
                push( @pre,
                          '"'
                        . $botones_names[$n]
                        . '" => "'
                        . $botones_values[$n]
                        . '"' );
                print "\n";
                for (@pre) {
                    print $_. "\n";
                }
                print $nave->post( $page, \@pre )->content;
            }
        }
        else {                         #Fin de metodo POST
 
            my @inputs = $test->inputs;
            for my $in (@inputs) {
                if ( $in->type eq "submit" ) {
                    if ( $in->name eq "" ) {
                        push( @botones_names, "submit" );
                    }
                    push( @botones_names,  $in->name );
                    push( @botones_values, $in->value );
                }
                else {
 
                    #$orden.=''.$in->name.'='.$valor.'&';
                }
            }
            chop($orden);
            for my $n ( 0 .. int(@botones_names) - 1 ) {
                my $partedos
                    = "&" . $botones_names[$n] . "=" . $botones_values[$n];
                my $final = $orden . $partedos;
                for my $strin (@strings) {
                    $final =~ s/doddyhackman/$strin/;
                    print $page. "?" . $final . "\n";
                }
 
            }
        }                              # Fin de metodo GET agregar ?
    }                                  #Fin de bucle principal
 
    #{"query" => $_[0], "submit" => " Crack "}
 
}                                      # Fin de scan
 
sub reemplazararray {
    my @resultado;
    my @cambiares = ( "fuck", "this" );
    for (@_) {
        my $word = $_;
        for my $c (@cambiares) {
            chomp $c;
            my $copia = $word;
            if ( $copia =~ /doddyhackman/ ) {
                $copia =~ s/doddyhackman/$c/;
                push( @resultado, $copia );
            }
            else {
                push( @resultado, $copia );
            }
        }
    }
    return repes(@resultado);
}
 
sub repes {
    foreach my $palabra (@_) {
        next if $repety{$palabra}++;
        push @revisado, $palabra;
    }
    return @revisado;
}
 
sub toma {
    return $nave->get( $_[0] )->content;
}
 
# ¿ The End ?
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

El problema es que no se responde bien los formularios

El código del formulario es este

Sintáxis: [ Descargar ] [ Ocultar ]

Using php Syntax Highlighting

<form action='' method=POST>
<input type=text name=probar value=test>
<input type=submit name=con value=forear>
</form>
<br><br>
 
<?php 
if (isset($_POST['con'])) {
echo $_POST['probar']."<br>";
}
?> 
Coloreado en 0.020 segundos,  usando GeSHi 1.0.8.4

¿ Cuál es el error ?

por **explorer** » 2011-06-21 14:13 @634

No acabas de entenderlo... sigues creando el contenido de las variables como cadenas de caracteres.

Deberías usar el módulo Data::Dumper, para que te muestre el contenido de las variables que estás creando.

Por ejemplo, ¿qué sentido tiene la línea 40? ¿Por qué guardas en @orden un solo valor, que tiene la forma

"$in->name => $valor"

? (Observa que estás guardando los caracteres '=' y '>' junto con el nombre y valor, y todo ello, como una cadena de caracteres, que no es lo que espera el método post().)

Lo que se te ha dicho es que guardes la pareja nombre/valor como dos elementos:

push @orden, $in->name, $valor;

Lo mismo para el resto de arrays.

De forma correcta, pasas \@pre, como referencia, como segundo argumento de post(). Pero no creo que @pre contenga la información correcta. Usa el módulo Data::Dumper para ver su contenido.

Y tampoco sé dónde has visto que el resultado del método post() es un objeto al que puedes aplicar el método content().

¡Ánimo! que te queda muy poco...

por **BigBear** » 2011-06-21 14:25 @642

Al fin

Ya lo logré. Sí había entendido, solo lo apliqué mal, muy mal, es diferente

Gracias, explorer, por tu eterna paciencia y a kidd por crear este foro.

Foro - Perl en Español

Envío de hash con método POST

Re: Envío de hash con método POST

Publicidad

Re: Envío de hash con método POST

Re: Envío de hash con método POST

Re: Envío de hash con método POST

Re: Envío de hash con método POST

Re: Envío de hash con método POST

Re: Envío de hash con método POST

¿Quién está conectado?