- or download this
use NetAddr::IP;
my $ip = new NetAddr::IP '127.0.0.1';
- or download this
use NetAddr::IP;
my $loopback = new NetAddr::IP '127.0.0.1', '255.0.0.0';
my $rfc1918 = new NetAddr::IP '10.0.0.0/8';
my $another = new NetAddr::IP '1.2.0.0/255.255.0.0';
my $loopback2 = new NetAddr::IP 'loopback';
- or download this
use NetAddr::IP;
my $ip = new NetAddr::IP('10.0.0.0/30');
...
print "ip = $ip\n";
$ip ++;
}
- or download this
ip = 10.0.0.0/30
ip = 10.0.0.1/30
ip = 10.0.0.2/30
- or download this
use NetAddr::IP;
my $ip = new NetAddr::IP('10.0.0.0/30');
print join(' ', @$ip), "\n";
- or download this
10.0.0.1/32 10.0.0.2/32
- or download this
use NetAddr::IP;
...
10.0.64.0/18
10.0.192.0/18
10.0.160.0/19
- or download this
use NetAddr::IP;
print "My address space contains the following /24s:\n",
join("\n", NetAddr::IP->new('10.0.0.0/22')->split(24)), "\n";
- or download this
use NetAddr::IP;
print join(' ', NetAddr::IP->new('10.0.0.0/25')->wildcard());
- or download this
use NetAddr::IP;
...
10.128.0.41
10.128.0.17
10.128.0.19
- or download this
use NetAddr::IP;
...
__DATA__
10.0.0.0/16
172.16.0.0/24
- or download this
use NetAddr::IP;
...
__DATA__
10.0.0.0/16
172.16.0.0/24
- or download this
use NetAddr::IP;
...
__DATA__
10.0.0.0/16
172.16.0.0/24