戯術者の日記

use NetAddr::IP ;
 
my $ip = new NetAddr::IP "192.168.175.4/255.255.255.128" ;
 
print "The address is ", $ip->addr, " with mask ", $ip->mask, "\n" ;
print "nw    is ", $ip->network,     "\n" ;
print "bc    is ", $ip->broadcast,   "\n" ;
print "range is ", $ip->range,       "\n" ;
print "first is ", $ip->first->addr, "\n" ;
print "last  is ", $ip->last->addr,  "\n" ;
print "mask  is ", $ip->masklen,     "\n" ;
print "num   is ", $ip->num,         "\n" ;