$port=80;
$proto=getprotobyname('tcp');
socket(SOCKET,AF_INET,SOCK_STREAM,$proto) or die "no socket";
setsockopt(SOCKET,SOL_SOCKET,SO_RCVTIMEO,pack("LL",1,0));
$iadr = inet_aton("127.0.0.1");
$padr=sockaddr_in($port,$iadr);
if(connect(SOCKET,$padr)){
print "connection ok";}
else{print "$!\n";}
It should correspond to something like:
$conn = IO::Socket::INET->new(
PeerAddr=>"127.0.0.1",
PeerPort=>80,
Proto=>'tcp',
Timeout=> 1,
Blocking=>1 );
So: a blocking socket with a 1 second timeout because now the standardtimeout is something like 10 seconds,making my applications run slower iso faster which was the general idea. |