Select Code to Download

VinsWorldcom@C:\Users\VinsWorldcom> ver

...

This is perl 5, version 12, subversion 3 (v5.12.3) built for MSWin32-x
+64-multi-thread
[...]

VinsWorldcom@C:\Users\VinsWorldcom> dig -v
DiG 9.8.1
...
;; SERVER: 8.8.8.8#53(8.8.8.8)
;; WHEN: Tue Nov 15 10:05:14 2011
;; MSG SIZE  rcvd: 82

#!/usr/bin/perl

...
=head1 SYNOPSIS

 program [--old|--new] IP[v6]_address | hostname

VinsWorldcom@C:\Users\VinsWorldcom\tmp> v4v6Lookup.pl www.google.com
OLD: inet_ntoa() Address = 72.14.204.105
...
VinsWorldcom@C:\Users\VinsWorldcom\tmp> v4v6Lookup.pl 72.14.204.105
OLD: inet_ntoa() Address = 72.14.204.105
NEW: inet_ntop() Address = 200:0:480e:cc69::

VinsWorldcom@C:\Users\VinsWorldcom\tmp> v4v6Lookup.pl ipv6.google.com
Usage: Socket::inet_ntoa(ip_address_sv) at C:\Users\VinsWorldcom\tmp\v
+4v6Lookup.pl line 29.
...

VinsWorldcom@C:\Users\VinsWorldcom\tmp> v4v6Lookup.pl --new 2001:4860:
+800f::63
Bad arg length for Socket6::inet_ntop, length is 28, should be 16 at C
+:\Users\VinsWorldcom\tmp\v4v6Lookup.pl line 40.

#!/usr/bin/perl

...
=head1 SYNOPSIS

 program [--old|--new] IP[v6]_address | hostname

VinsWorldcom@C:\Users\VinsWorldcom\tmp> v4v6Lookup.pl --new www.google
+.com
NEW: inet_ntop() Address = 72.14.204.147

VinsWorldcom@C:\Users\VinsWorldcom\tmp> v4v6Lookup.pl --new ipv6.googl
+e.com
NEW: inet_ntop() Address = 2001:4860:800f::93

if ($opt{new}) {
    my @getaddr = getaddrinfo($ARGV[0], 0);
...
#    printf "NEW: getaddrinfo()       = %s\n", $getaddr[3];
    print  "NEW: inet_ntop() Address = $host\n";
}