Net::Whois::ARIN::Network - ARIN whois Network record class
use Net::Whois::ARIN::Network;
my $net = Net::Whois::ARIN::Network->new(
OrgName => 'Electric Lightwave Inc',
OrgID => 'ELIX',
Address => '4400 NE 77th Ave',
City => 'Vancouver',
StateProv => 'WA',
PostalCode => '98662',
Country => 'US',
RegDate => '1995-07-25',
Updated => '2001-05-17',
NetRange => '207.173.0.0 - 207.173.255.255',
CIDR => '207.173.0.0/16',
NetName => 'ELI-NETBLK5',
NetHandle => 'NET-207-173-0-0-1',
Parent => 'NET-207-0-0-0-0',
NetType => 'Direct Allocation',
NameServer => 'NS.ELI.NET',
Comment => 'ADDRESSES WITHIN THIS BLOCK ARE NON-PORTABLE',
);
printf "%s was given a %s of %s by ARIN.\n",
$net->OrgName,
lc $net->NetType,
$net->CIDR;
The Net::Whois::ARIN::Network module is simple class which is used to store the
attributes of an Network record in ARIN's Whois server. Each attribute of the
Network record has an accessor/mutator of the same name.
- new - create a Net::Whois::ARIN::Network object
- contacts - get/set Net::Whois::ARIN::Contact records
- This method accepts a list of Net::Whois::ARIN::Contact instances and
associates these objects with the Network record. If no arguments are
specified, the method returns a list of Net::Whois::ARIN::Contact
objects.
- dump - return the current whois record
-
print $o->dump;
These methods are the accessors/mutators for the fields found in the Whois
record.
- OrgName - get/set the organization name
- OrgID - get/set the organization id
- Address - get/set the address
- City - get/set the city
- StateProv - get/set the state or province
- PostalCode - get/set the postal code
- Country - get/set the country
- RegDate - get/set the registration date
- Updated - get/set the last updated date
- NetRange - get/set the network range
- CIDR - get/set the CIDR netblock
- NetName - get/set the network name
- NetHandle - get/set the network handle
- Parent - get/set the parent network handle
- NetType - get/set the network type
- NameServer - get/set the name servers
- Comment - get/set the public comment
Todd Caine <todd.caine at gmail.com>
Copyright (c) 2004 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.