use IO::Socket::IP;
my $sock = IO::Socket::IP->new(
PeerHost => "www.google.com",
PeerPort => "http",
Type => SOCK_STREAM,
) or die "Cannot construct socket - $@";
my $familyname = ( $sock->sockdomain == PF_INET6 ) ? "IPv6" :
( $sock->sockdomain == PF_INET ) ? "IPv4" :
"unknown";
printf "Connected to google via %s\n", $familyname;
It uses the getaddrinfo(3) function to convert hostnames and service names or port numbers into sets of possible addresses to connect to or listen on. This allows it to work for IPv6 where the system supports it, while still falling back to IPv4-only on systems which don't.
Changing "IO::Socket"'s default behaviour means that calling the "IO::Socket" constructor with either "PF_INET" or "PF_INET6" as the "Domain" parameter will yield an "IO::Socket::IP" object.
use IO::Socket::IP -register;
my $sock = IO::Socket->new(
Domain => PF_INET6,
LocalHost => "::1",
Listen => 1,
) or die "Cannot create socket - $@\n";
print "Created a socket of type " . ref($sock) . "\n";
Note that "-register" is a global setting that applies to the entire program; it cannot be applied only for certain callers, removed, or limited by lexical scope.
This parameter takes precedence over the "Peer*", "Family", "Type" and "Proto" arguments.
This parameter takes precedence over the "Local*", "Family", "Type" and "Proto" arguments.
These flags will be combined with "AI_PASSIVE" if the "Listen" argument is given. For more information see the documentation about "getaddrinfo()" in the Socket module.
For example, both options given below are equivalent to setting "ReuseAddr".
Sockopts => [
[ SOL_SOCKET, SO_REUSEADDR ],
[ SOL_SOCKET, SO_REUSEADDR, pack( "i", 1 ) ],
]
If not defined, the socket option will not be changed, and default value set by the operating system will apply. For repeatable behaviour across platforms it is recommended this value always be defined for listening-mode sockets.
Note that not all platforms support disabling this option. Some, at least OpenBSD and MirBSD, will fail with "EINVAL" if you attempt to disable it. To determine whether it is possible to disable, you may use the class method
if( IO::Socket::IP->CAN_DISABLE_V6ONLY ) {
...
}
else {
...
}
If your platform does not support disabling this option but you still want to listen for both "AF_INET" and "AF_INET6" connections you will have to create two listening sockets, one bound to each protocol.
However, the behaviour it enables is always performed by "IO::Socket::IP".
Note that if the hostname resolves to multiple address candidates, the same timeout will apply to each connection attempt individually, rather than to the operation as a whole. Further note that the timeout does not apply to the initial hostname resolve operation, if connecting by hostname.
This behviour is copied inspired by "IO::Socket::INET"; for more fine grained control over connection timeouts, consider performing a nonblocking connect directly.
If neither "Type" nor "Proto" hints are provided, a default of "SOCK_STREAM" and "IPPROTO_TCP" respectively will be set, to maintain compatibility with "IO::Socket::INET". Other named arguments that are not recognised are ignored.
If neither "Family" nor any hosts or addresses are passed, nor any *AddrInfo, then the constructor has no information on which to decide a socket family to create. In this case, it performs a "getaddinfo" call with the "AI_ADDRCONFIG" flag, no host name, and a service name of "0", and uses the family of the first returned result.
If the constructor fails, it will set $@ to an appropriate error message; this may be from $! or it may be some other string; not every failure necessarily has an associated "errno" value.
If $numeric is true, these will be given in numeric form rather than being resolved into names.
The following four convenience wrappers may be used to obtain one of the two values returned here. If both host and service names are required, this method is preferable to the following wrappers, because it will call getnameinfo(3) only once.
The following four convenience wrappers may be used to obtain one of the two values returned here. If both host and service names are required, this method is preferable to the following wrappers, because it will call getnameinfo(3) only once.
This method checks that the socket domain is "PF_INET" and will throw an exception if it isn't.
The non-blocking behaviour is an extension of the "IO::Socket::INET" API, unique to "IO::Socket::IP", because the former does not support multi-homed non-blocking connect.
When using non-blocking mode, the caller must repeatedly check for writeability on the filehandle (for instance using "select" or "IO::Poll"). Each time the filehandle is ready to write, the "connect" method must be called, with no arguments. Note that some operating systems, most notably "MSWin32" do not report a "connect()" failure using write-ready; so you must also "select()" for exceptional status.
While "connect" returns false, the value of $! indicates whether it should be tried again (by being set to the value "EINPROGRESS", or "EWOULDBLOCK" on MSWin32), or whether a permanent error has occurred (e.g. "ECONNREFUSED").
Once the socket has been connected to the peer, "connect" will return true and the socket will now be ready to use.
Note that calls to the platform's underlying getaddrinfo(3) function may block. If "IO::Socket::IP" has to perform this lookup, the constructor will block even when in non-blocking mode.
To avoid this blocking behaviour, the caller should pass in the result of such a lookup using the "PeerAddrInfo" or "LocalAddrInfo" arguments. This can be achieved by using Net::LibAsyncNS, or the getaddrinfo(3) function can be called in a child process.
use IO::Socket::IP;
use Errno qw( EINPROGRESS EWOULDBLOCK );
my @peeraddrinfo = ... # Caller must obtain the getaddinfo result here
my $socket = IO::Socket::IP->new(
PeerAddrInfo => \@peeraddrinfo,
Blocking => 0,
) or die "Cannot construct socket - $@";
while( !$socket->connect and ( $! == EINPROGRESS || $! == EWOULDBLOCK ) ) {
my $wvec = '';
vec( $wvec, fileno $socket, 1 ) = 1;
my $evec = '';
vec( $evec, fileno $socket, 1 ) = 1;
select( undef, $wvec, $evec, undef ) or die "Cannot select - $!";
}
die "Cannot connect - $!" if $!;
...
The example above uses "select()", but any similar mechanism should work analogously. "IO::Socket::IP" takes care when creating new socket filehandles to preserve the actual file descriptor number, so such techniques as "poll" or "epoll" should be transparent to its reallocation of a different socket underneath, perhaps in order to switch protocol family between "PF_INET" and "PF_INET6".
For another example using "IO::Poll" and "Net::LibAsyncNS", see the examples/nonblocking_libasyncns.pl file in the module distribution.
If either "LocalHost" or "PeerHost" (or their "...Addr" synonyms) have any of the following special forms then special parsing is applied.
The value of the "...Host" argument will be split to give both the hostname and port (or service name):
hostname.example.org:http # Host name 192.0.2.1:80 # IPv4 address [2001:db8::1]:80 # IPv6 address
In each case, the port or service name (e.g. 80) is passed as the "LocalService" or "PeerService" argument.
Either of "LocalService" or "PeerService" (or their "...Port" synonyms) can be either a service name, a decimal number, or a string containing both a service name and number, in a form such as
http(80)
In this case, the name ("http") will be tried first, but if the resolver does not understand it then the port number (80) will be used instead.
If the "...Host" argument is in this special form and the corresponding "...Service" or "...Port" argument is also defined, the one parsed from the "...Host" argument will take precedence and the other will be ignored.
IO::Socket::IP->split_addr( "hostname:http" )
# ( "hostname", "http" )
IO::Socket::IP->split_addr( "192.0.2.1:80" )
# ( "192.0.2.1", "80" )
IO::Socket::IP->split_addr( "[2001:db8::1]:80" )
# ( "2001:db8::1", "80" )
IO::Socket::IP->split_addr( "something.else" )
# ( "something.else", undef )
This can be especially useful when combined with the "sockhost_service" or "peerhost_service" methods.
say "Connected to ", IO::Socket::IP->join_addr( $sock->peerhost_service );
In "::INET", supplying a timeout overrides the non-blocking behaviour, meaning that the "connect()" operation will still block despite that the caller asked for a non-blocking socket. This is not explicitly specified in its documentation, nor does this author believe that is a useful behaviour - it appears to come from a quirk of implementation.
In "::IP" therefore, the "Blocking" parameter takes precedence - if a non-blocking socket is requested, no operation will block. The "Timeout" parameter here simply defines the maximum time that a blocking "connect()" call will wait, if it blocks at all.
In order to specifically obtain the ``blocking connect then non-blocking send and receive'' behaviour of specifying this combination of options to "::INET" when using "::IP", perform first a blocking connect, then afterwards turn the socket into nonblocking mode.
my $sock = IO::Socket::IP->new(
PeerHost => $peer,
Timeout => 20,
) or die "Cannot connect - $@";
$sock->blocking( 0 );
This code will behave identically under both "IO::Socket::INET" and "IO::Socket::IP".