⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.67
Server IP:
50.6.168.112
Server:
Linux server-617809.webnetzimbabwe.com 5.14.0-570.25.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 9 04:57:09 EDT 2025 x86_64
Server Software:
Apache
PHP Version:
8.4.10
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
home
/
.cpan
/
build
/
NetAddr-IP-4.079-0
/
Lite
/
t
/
View File Name :
v4-snew.t
use Test::More; use NetAddr::IP::Lite; my %w = ('broadcast' => [ '255.255.255.255', '255.255.255.255' ], 'default' => [ '0.0.0.0', '0.0.0.0' ], 'loopback' => [ '127.0.0.1', '255.0.0.0' ], '10.' => [ '10.0.0.0', '255.0.0.0' ], '10/8' => [ '10.0.0.0', '255.0.0.0' ], '127/8' => [ '127.0.0.0', '255.0.0.0' ], '11.11.' => [ '11.11.0.0', '255.255.0.0' ], '12.12.12.' => [ '12.12.12.0', '255.255.255.0' ], '13.13.13.13' => [ '13.13.13.13', '255.255.255.255' ], '0-127' => [ '0.0.0.0', '128.0.0.0' ], '128-255' => [ '128.0.0.0', '128.0.0.0' ], '0-63' => [ '0.0.0.0', '192.0.0.0' ], '128-191' => [ '128.0.0.0', '192.0.0.0' ], '10.128.0-127' => [ '10.128.0.0', '255.255.128.0' ], '10.10.10/24' => [ '10.10.10.0', '255.255.255.0' ], '10.10/16' => [ '10.10.0.0', '255.255.0.0' ], '10.10.10' => [ '10.10.0.10', '255.255.255.255' ], ); plan tests => 2 * scalar keys %w; for my $a (keys %w) { my $ip = new NetAddr::IP::Lite $a; is($ip->addr, $w{$a}->[0], "Matching ->addr()"); is($ip->mask, $w{$a}->[1], "Matching ->mask()"); }