1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
use NetAddr::IP::Lite;
my %w = ('default' => [ '255.255.255.254', '0.0.0.0' ],
'loopback' => [ '127.255.255.254', '255.0.0.0' ],
'127.0.0.1/8' => [ '127.255.255.254', '255.0.0.0' ],
'10.' => [ '10.255.255.254', '255.0.0.0' ],
'10.10.10/24' => [ '10.10.10.254', '255.255.255.0' ],
);
$| = 1;
print '1..', (2 * scalar keys %w), "\n";
my $count = 1;
for my $a (keys %w) {
my $ip = NetAddr::IP::Lite->new($a)->last;
if ($ip->addr eq $w{$a}->[0]) {
print "ok ", $count++, "\n";
}
else {
print "not ok ", $count++, "\n";
}
if ($ip->mask eq $w{$a}->[1]) {
print "ok ", $count++, "\n";
}
else {
print "not ok ", $count++, "\n";
}
}
|
