Yes, use Net::IP instead.
#!/pro/bin/perl
use 5.018003;
use warnings;
use Net::IP;
use Socket qw(AF_INET AF_INET6 inet_ntop inet_pton);
use Data::Validate::IP qw(is_ipv4 is_ipv6);
my $ip = $ARGV[0] or die "usage: $0 IP\n";
say "Using Net::IP";
if (my $nip = Net::IP->new ($ip)) {
say "IP*";
my $bip = pack "B*" => $nip->binip ();
if (length ($bip) == 4) {
say join "." => unpack "C*" => inet_pton (AF_INET, $ip);
}
else {
say join ":" => map { sprintf "%04x", $_ }
unpack "S>*" => inet_pton (AF_INET6, $ip);
}
}
say "";
say "Using Data::Validate::IP";
if (is_ipv4 ($ip)) {
say "IPv4!";
say join "." => unpack "C*" => inet_pton (AF_INET, $ip);
}
elsif (is_ipv6 ($ip)) {
say "IPv6!";
say join ":" => map { sprintf "%04x", $_ }
unpack "S>*" => inet_pton (AF_INET6, $ip);
}
else {
die "Not a valid ip: $ip\n";
}
->
$ test.pl 192.168.14.5
Using Net::IP
IP*
192.168.14.5
Using Data::Validate::IP
IPv4!
192.168.14.5
$ test.pl 0203:3564:a5a5:0001:1234:4321:abcd:fdba
Using Net::IP
IP*
0203:3564:a5a5:0001:1234:4321:abcd:fdba
Using Data::Validate::IP
IPv6!
0203:3564:a5a5:0001:1234:4321:abcd:fdba
Enjoy, Have FUN! H.Merijn