IPsonar is a Perl module that wraps the IPsonar RESTful API. It handles the paging and https stuff so you can concentrate on extracting information from reports.
Code snippet.
my $rsn = IPsonar->new('rsn_address_or_name','username','password');
my $test_report = 23;
my @ip_list;
my $results = $rsn->query('detail.devices',
{
'q.f.report.id' => $test_report,
'q.f.servicediscovery.ports' => 23,
}) or die "Problem ".$rsn->error;
while (my $x = $rsn->next_result) {
push @ip_list,$x->{ip};
}
Product's homepage
Requirements:
· Perl