Program :
use IO::Socket;
use IO::Socket::INET6;
use Socket qw(inet_ntoa);
use Socket6 (
qw(AI_PASSIVE inet_ntop inet_pton getaddrinfo
sockaddr_in6 pack_sockaddr_in6 unpack_sockaddr_in6
unpack_sockaddr_in6_all pack_sockaddr_in6_all)
);
my $client1 = new IO::Socket
(
Domain => AF_INET6,
Proto => 'udp'
);
my $src1 = sockaddr_in6(0,inet_pton(AF_INET6,'fed0::87'));
my $retVal1 = bind $client1,$src1;
print "Failed to bind\n" if !$retVal;
In reply to Using sockaddr_in6 (bind) by saru
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |