Foro - Perl en Español

por **Dshellnoi_Unix** » 2013-03-20 20:37 @900

Soy nuevo programando en Perl y estoy haciendo un programa que consta de varios módulos y debo de estar tonto pero no consigo iterar un bucle y desplegar la información que me hace falta. A ver si alguien me puede echar un cabo si no es molestia, gracias.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

package EXPLOITS::SQLI::Prueba_nueva ;
use strict;
use vars qw($VERSION @ISA);
@ISA = qw(); 
$VERSION = '0.01';
sub new {
    my($class) = @_;
    
     my $self =  ( { Title        => "sqli-labs-master/Less-1",
                    Author        => "Dshellnoi Unix",
                    Platform      => "php",
                    Type          => "GET",
                    Os            => "NULL",
                    Date          => "16.03.2013", 
                    Ranking       => "Normal",
                    OSVDB         => "NULL",
                    CVE           => "NULL",
                    CWE           => "NULL",
                    Webauthor     => "http://templesec.org", 
                    Descrition    =>qq[Esto es solo un test
                                       ],
                    ARG           => [
                                      ##
                                      # INFO QUE DESEO DESPLEGAR 
                                      ##
                                      ["HOST"    ,"Set the target "," "],
                                      ["P"     ,"Set the path    ",  " "],
                                      ["UA"      ,"Set the ua      "," "],
                                      ["PROXY"   ,"Set the proxy   "," "],
                                      ["TIMEOUT" ,"Set the timeout" ," "]
                                     
                                      ##
                                      # FIN INFO QUE DESEO DESPLEGAR
                                      ##
                                      ]
                  
 
 
                 });
     
 
    bless($self, $class);
    return $self;
}
 
1;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

###
# EN MAIN
###
#!/usr/bin/perl
 
use EXPLOITS::SQLI::Prueba_nueva ;
$info = EXPLOITS::SQLI::Prueba_nueva->new();
 
@arg = \$info->{ARG} ; 
 
 
print "+---------------------------------+\n" ;
print "|   ::Arguments to configure::    |\n" ;
print "+---------------------------------+\n" ;
 
for(my $i = 0 ; $i <= @arg ; $i ++)
{
print "[$info->{ARG}->[$i]->[0]]::"."[$info->{ARG}->[$i]->[1]]". "\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Debo de ser tonto pero no entiendo por qué me despliega dos resultados en vez de los cinco esperados, gracias de antemano por la ayuda.

=^.^=

#!/usr/bin/perl
# MAIN
 
use EXPLOITS::SQLI::Prueba_nueva ;
 
my $info = EXPLOITS::SQLI::Prueba_nueva->new();
 
my @arg = @{$info->{ARG}};
 
#use Data::Dumper;
#print Dumper \@arg;
#exit;
 
 
print "+---------------------------------+\n" ;
print "|   ::Arguments to configure::    |\n" ;
print "+---------------------------------+\n" ;
 
for(my $i = 0 ; $i < @arg ; $i++) {
    print "[$arg[$i]->[0]]::[$arg[$i]->[1]]\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

En la línea 8, sabemos que $info->{ARG} es una referencia al array que engloba a todos los demás, así que escribiendo @{$info->{ARG}} accedemos a los elementos del array, que son todos los array interiores. Y los metemos en @arg.

En la línea 19 hay un cambio: usamos '<' en lugar de '<=', porque sino, entraríamos en un bucle infinito (la explicación se sale un poco de este subforo

) Baste decir que los índices de un array empieza en 0 y termina en uno menos que la longitud total del array. Y el operador '<=' estaba, justamente, comparando por un elemento más al final del array. Y el bucle entonces no paraba nunca.

En la línea 20, ya que @arg contiene los arrays que nos interesan, pues lo usamos para acceder a su contenido. Podemos, por tanto, escribirlo de todas estas maneras:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for (my $i = 0 ; $i < @arg ; $i++) {                   # la propuesta anterior, con la variable temporal @arg
    print "[$arg[$i]->[0]]::[$arg[$i]->[1]]\n";
}
 
for (my $i = 0 ; $i < @{$info->{ARG}} ; $i++) {        # sin usar @arg, accediendo directamente a la estructura
    print "[$info->{ARG}->[$i]->[0]]::[$info->{ARG}->[$i]->[1]]\n";
}
 
for (my $i = 0 ; $i < @{$info->{ARG}} ; $i++) {        # Perl nos permite abreviar código para facilitar la lectura
    print "[$info->{ARG}[$i][0]]::[$info->{ARG}[$i][1]]\n";
}
 
for my $arg (@{$info->{ARG}}) {                        # No necesitamos recorrer los índices para acceder a los elementos
    print "[$arg->[0]]::[$arg->[1]]\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El programa quedaría escrito así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
# MAIN
 
use EXPLOITS::SQLI::Prueba_nueva ;
 
my $info = EXPLOITS::SQLI::Prueba_nueva->new();
 
print <<CABEZA;
+---------------------------------+
|   ::Arguments to configure::    |
+---------------------------------+
CABEZA
 
for my $arg (@{$info->{ARG}}) {
    print "[$arg->[0]]::[$arg->[1]]", "\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Dshellnoi_Unix** » 2013-03-21 15:26 @684

Muchas gracias, explorer, por la acogida en el foro y sobre todo por tomar tu tiempo en darme una respuesta tan clara y rápida... Larga vida al foro y a Perl

por **Dshellnoi_Unix** » 2013-03-24 20:45 @906

Te escribo otra vez porque llevaba como una hora intentando pasar un array a una rutina de la clase como parámetro y no había manera por mucho que lo intentaba

.

Después me fijé que en la corrección que me hiciste el otro día en otro hilo, entre comentarios, se encontraba el módulo Data::Dumper el cual lo apliqué y pude solucionar el problema... Así que mil gracias otra vez por el cabo indirecto ya que con esta van dos veces que me salvas de una depresión, ¡ja,ja,ja,ja! Saludos

Foro - Perl en Español

Desplegar información de un módulo

Desplegar información de un módulo

Publicidad

Re: Desplegar información de un módulo

Re: Desplegar información de un módulo

Re: Desplegar información de un módulo

¿Quién está conectado?