20 lines
407 B
Plaintext
20 lines
407 B
Plaintext
|
#!/usr/bin/env perl
|
||
|
|
#aslookup.pl - Looks up information on a given ASN or IP address
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use Net::Whois::RIPE;
|
||
|
|
|
||
|
|
my $default_as_server = "whois.radb.net";
|
||
|
|
my %whois_options = (
|
||
|
|
"hostname" => $default_as_server,
|
||
|
|
);
|
||
|
|
|
||
|
|
my $whois = Net::Whois::RIPE->new(%whois_options);
|
||
|
|
my $witerator = $whois->query('1.1.1.1');
|
||
|
|
while($witerator->isnt_exhausted()) {
|
||
|
|
my $wdata = $witerator->value()
|
||
|
|
|
||
|
|
}
|