I tried errorchecking but no error, doesn't even seem to matter what i write after pack().I have something like:
$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.
In reply to Re^2: built-in socket functions
by tenny1204
in thread built-in socket functions
by tenny1204
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |