?????????? ????????? - ??????????????? - /home/.cpan/build/NetAddr-IP-4.079-0/Lite/t/v4-cidr.t
???????
use NetAddr::IP::Lite; $| = 1; my @addr = (qw( 0.0.0.0/0 1.0.0.0/1 2.0.0.0/2 10.0.0.0/8 10.0.120.0/24 161.196.66.0/25 255.255.255.255/32 )); print '1..', scalar @addr, "\n"; my $count = 1; for my $a (@addr) { my $ip = new NetAddr::IP::Lite $a; if ($ip->cidr eq $a) { print "ok ", $count ++, "\n"; } else { print "not ok ", $count ++, "\n"; print "$a -> ", $ip->cidr, " [", $ip->mask, "]\n"; } }
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0.01 |
proxy
|
phpinfo
|
???????????