?????????? ????????? - ??????????????? - /home/.cpan/build/NetAddr-IP-4.079-0/Lite/t/v4-basem.t
???????
use NetAddr::IP::Lite; my $nets = { '10.0.0.16' => [ 24, '10.0.0.255', '10.0.0.0' ], '127.0.0.1' => [ 8, '127.255.255.255', '127.0.0.0' ], '192.168.0.10' => [ 17, '192.168.127.255', '192.168.0.0' ], }; $| = 1; print "1..", (2 * scalar keys %$nets), "\n"; my $count = 1; for my $a (keys %$nets) { my $ip = new NetAddr::IP::Lite $a, $nets->{$a}->[0]; print '', (($ip->broadcast->addr ne $nets->{$a}->[1] ? 'not ' : ''), "ok ", $count++, "\n"); print '', (($ip->network->addr ne $nets->{$a}->[2] ? 'not ' : ''), "ok ", $count++, "\n"); }
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0 |
proxy
|
phpinfo
|
???????????