Hola. Tengo el siguiente código:
#!usr/bin/perl
#https://developer.shodan.io/api
#http://www.eekboek.nl/dl/ppms/Crypt-SSLeay.ppd
#http://www.bribes.org/perl/ppm/JSON.ppd
use LWP::UserAgent;
my $nave = LWP::UserAgent->new(ssl_opts => { verify_hostname => 1 });
$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);
my $api_key = "test";
my $code = toma("https://api.shodan.io/shodan/host/5.135.178.142?key=".$api_key);
print $code;
sub toma {
return $nave->get( $_ )->content;
}
El gran tema es cómo leer esto con json porque no encuentro información sobre cómo leer los datos que me devuelve que ...