?????????? ????????? - ??????????????? - /home/.cpan/build/NetAddr-IP-4.079-0/t/rfc3021.t
???????
use NetAddr::IP; $| = 1; print '1..4', "\n"; my $test = 1; my $ip = new NetAddr::IP('192.168.1.8/31'); my @hosts = $ip->hostenum; print scalar(@hosts)," found where none expected\nnot " if @hosts; print "ok ",$test++,"\n"; NetAddr::IP::import qw(:rfc3021); @hosts = $ip->hostenum; print scalar(@hosts)," found where 2 expected\nnot " unless @hosts == 2; print "ok ",$test++,"\n"; print "got: $hosts[0], exp: 192.168.1.8/32\nnot " unless "$hosts[0]" eq '192.168.1.8/32'; print "ok ",$test++,"\n"; print "got: $hosts[1], exp: 192.168.1.9/32\nnot " unless "$hosts[1]" eq '192.168.1.9/32'; print "ok ",$test++,"\n";
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0.01 |
proxy
|
phpinfo
|
???????????