Desplegar información de un módulo
Publicado: 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.
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.
=^.^=
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
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.
=^.^=