Repository List / virtm / trunk / inet_test.pl @ HEAD

#!/usr/bin/perl

use Socket;
use Socket6;
use Net::Interface;

my $ipv6 = 'fe80::21b:fcff:fece:6c34';
my $bin = inet_pton(AF_INET6, $ipv6);
my $ipv62 = inet_ntop(AF_INET6, $bin);

print "$ipv6\n";
print "$bin ".length($bin)."\n";
print "$ipv62\n";

my ($name,$aliases,$addrtype,$length,@addrs) = gethostbyname2("svn", AF_INET6);

print "name: $name ($length)\n";
for my $alias (@$aliases) {
	print "alias: $alias\n";
}

for my $addr (@addrs) {
	print "addr: (".length($addr).")".inet_ntop(AF_INET6, $addr)."\n";
}


my $addr = 'natasha';
my @arr = getaddrinfo($addr, '', AF_INET6);
while(scalar @arr) {
	my ($af, $st, $prot, $ip, $cannon) = splice(@arr, 0, 5);
	my @ip = unpack_sockaddr_in6($ip);
	$ip = inet_ntop(AF_INET6, $ip[1]);
	print join(', ', $af, $st, $prot, $ip, $cannon),"\n";
}