Foro - Perl en Español

por **BigBear** » 2013-11-23 14:14 @635

Hola, tengo el siguiente código.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Shodan::WebAPI;
 
$your_key = "test";
 
$shell_shodan = new Shodan::WebAPI($your_key);
$resultados = $shell_shodan->search("probando");
 
@matches = @{$resultados->{'matches'}};
 
<stdin>; # por cada enter
 
# acá sería la cosa 
 
for ( $i = 0; $i < $#matches; $i++ ) {
        print "IP: $matches[$i]->{ip}\n";
        print "$matches[$i]->{data}\n\n";
}
 
# acá termina xD
 
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Mi plan es mostrar cada valor cada 5, o sea, que por cada <stdin> se muestren 5 informaciones nuevas hasta terminar el array, que se vayan sumando hasta terminar de mostrar todo para después terminar. El plan que tengo en mente no me parece efectivo por eso quería preguntarles cuál es la mejor forma de hacer esto.

{

        total => 8669969,

        countries => [

                {

                        code => 'US',

                        count => 4165703,

                        name => 'United States'

                },

                {code => 'DE', count => 610270, name => 'Germany'},

                {code => 'JP', count => 496556, name => 'Japan'},

                {code => 'RO', count => 486107, name => 'Romania'},

                {code => 'GB', count => 273948, name => 'United Kingdom'}

        ],

        matches => [

                {

                        country => 'DE',

                        data => 'HTTP/1.0 200 OK\r\nDate: Mon, 08 Nov 2010 05:09:59 GMT\r\nSer...',

                        hostnames => ['pl4t1n.de'],

                        ip => '89.110.147.239',

                        os => 'FreeBSD 4.4',

                        port => 80,

                        updated => '08.11.2010'

                },

                ...

        ]

}Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿ Qué estoy haciendo mal ?

por **explorer** » 2013-11-24 14:04 @627

Algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

        print "[+] Hostnames: ", join("\t", @{ $matches[$i]->{hostnames} } ), "\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El 'cast' @{} debe rodear a todo el valor devuelto por el hash, porque es una referencia a un array, y queremos desreferenciarlo.

por **BigBear** » 2013-11-24 15:23 @682

Anda genial. Gracias por la ayuda, explorer.

Foro - Perl en Español

Mostrar array cada 5

Mostrar array cada 5

Publicidad

Re: Mostrar array cada 5

Re: Mostrar array cada 5

Re: Mostrar array cada 5

Re: Mostrar array cada 5

Re: Mostrar array cada 5

Re: Mostrar array cada 5

Re: Mostrar array cada 5

Re: Mostrar array cada 5

¿Quién está conectado?