Net::Whois::ARIN - ARIN whois client
use Net::Whois::ARIN; my $w = Net::Whois::ARIN->new( host => 'whois.arin.net', port => 43, timeout => 30, ); # fetch raw whois output as a scalar my $result = $w->query( '207.173.0.0' ); # fetch raw whois output as a list my @results = $w->query( 'NET-207-173-0-0-1' ); # search for a network record my @output = $w->network( '207.173.0.0' ); foreach my $net (@output) { printf( "%s\t(%s)\t%s\n", $net->OrgName, $net->NetHandle, $net->NetRange, ); # display the network's contact information foreach my $cust ($net->contacts) { printf "Contact: %s (%s)\n", $cust->Name, $cust->Email; } } # lookup an autonomous system number my($asn) = $w->asn( 5650 ); printf "AS5650 was assigned to %s\n", $asn->OrgName; # search for a point-of-contact by handle my @contact = $w->contact('DM2339-ARIN'); my @contact_records = $w->domain('eli.net'); # search for an organization record by the OrgId my @org = $w->organization('FRTR'); # search for a customer record by Handle my @customers = $w->customer('C00823787');
This module provides a Perl interface to the ARIN Whois server. The module takes care of connecting to an ARIN whois server, sending your whois requests, and parsing the whois output. The whois records are returned as lists of Net::Whois::ARIN::* instances.
In the calling conventions below []'s represent optional parameters.
[]
my $o = Net::Whois::ARIN->new( [-hostname=> 'whois.arin.net',] [-port => 43,] [-timeout => 45,] [-retries => 3,] );
This is the constuctor for Net::Whois::ARIN. The object returned can be used to query the whois database.
my @output = $o->query('207.173.112.0');
my @records = $o->network('207.173.112.0');
This method requires a single argument. The argument indicates the network to use in the whois lookup. The method returns a list of Net::Whois::ARIN::Network records that matched your search criteria.
my @record = $o->asn(5650);
This method requires a single argument. The argument indicates the autonomous system number to use in the whois lookup. The method returns a list of Net::Whois::ARIN::AS objects.
my @record = $w->org('ELIX');
my @records = $w->customer('ELIX');
my @record = $w->contact('DM2339-ARIN');
@output = $w->domain('eli.net');
Net::Whois::ARIN::AS
Net::Whois::ARIN::Network
Net::Whois::ARIN::Contact
Net::Whois::ARIN::Organization
Net::Whois::ARIN::Customer
Todd Caine <todd.caine at gmail.com>
Copyright (c) 2004-2011 Todd Caine. All rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Net::Whois::ARIN, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Net::Whois::ARIN
CPAN shell
perl -MCPAN -e shell install Net::Whois::ARIN
For more information on module installation, please visit the detailed CPAN module installation guide.