Net::IP::Minimal (3pm)

version 0.06

  use Net::IP::Minimal qw[:PROC];

  my $ip = '172.16.0.216';

  ip_is_ipv4( $ip ) and print "$ip is IPv4";

  $ip = 'dead:beef:89ab:cdef:0123:4567:89ab:cdef';

  ip_is_ipv6( $ip ) and print "$ip is IPv6";

  print ip_get_version( $ip );

Net::IP is very feature complete, but I found I was only using three of its functions and it uses quite a bit of memory <https://rt.cpan.org/Public/Bug/Display.html?id=24525>.

This module only provides the minimal number of functions that I use in my modules.

The same as Net::IP these functions are not exported by default. You may import them explicitly or use \*(C`:PROC\*(C' to import them all. Try to guess the \s-1IP\s0 version of an \s-1IP\s0 address. Params : IP address Returns : 4, 6, undef(unable to determine) \*(C`$version = ip_get_version ($ip)\*(C' Check if an \s-1IP\s0 address is of type 4. Params : IP address Returns : 1 (yes) or 0 (no) \*(C`ip_is_ipv4($ip) and print "$ip is IPv4";\*(C' Check if an \s-1IP\s0 address is of type 6. Params : IP address Returns : 1 (yes) or 0 (no) \*(C`ip_is_ipv6($ip) and print "$ip is IPv6";\*(C'

Net::IP

Chris Williams <[email protected]>

This software is copyright (c) 2012 by Chris Williams and RIPE-NCC.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.