Newer
Older
NetAddr-IP / Lite / t / v4-basem.t
@Luis Muñoz Luis Muñoz on 21 Oct 2014 590 bytes Import of LUISMUNOZ/NetAddr-IP-4.001 from CPAN.
  1. use NetAddr::IP::Lite;
  2.  
  3. my $nets = {
  4. '10.0.0.16' => [ 24, '10.0.0.255', '10.0.0.0' ],
  5. '127.0.0.1' => [ 8, '127.255.255.255', '127.0.0.0' ],
  6. '192.168.0.10' => [ 17, '192.168.127.255', '192.168.0.0' ],
  7. };
  8.  
  9. $| = 1;
  10. print "1..", (2 * scalar keys %$nets), "\n";
  11.  
  12. my $count = 1;
  13.  
  14. for my $a (keys %$nets) {
  15. my $ip = new NetAddr::IP::Lite $a, $nets->{$a}->[0];
  16. print '', (($ip->broadcast->addr ne $nets->{$a}->[1] ?
  17. 'not ' : ''),
  18. "ok ", $count++, "\n");
  19. print '', (($ip->network->addr ne $nets->{$a}->[2] ?
  20. 'not ' : ''),
  21. "ok ", $count++, "\n");
  22. }
  23.  
  24.