Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Answer: How can I distinguish between 'Connection refused' and 'Connection timed out?'

( #25662=categorized answer: print w/ replies, xml ) Need Help??

Q&A > network programming > How can I distinguish between a 'connection refused' and 'connection timed out?' contributed by tye

$!, of course. If you use Errno qw(ECONNREFUSED ETIMEDOUT); then you can do:

if( $! == ECONNREFUSED() ) { ...connection was refused... } elsif( $! == ETIMEDOUT() ) { ...connection timed out... } else { ...some other error... }

Under Win32, connect() is a "winsock" call, not an operating system call, so it doesn't set errno. However, the glue code inside perl.exe that calls connect() copies the value from WSAGetLastError() into errno.

Unfortunately, this doesn't work all that well. For example, "$!" will show as "", making you think that 0==$!. Also, the above code won't work since the error codes are not ECONNREFUSED and ETIMEDOUT but WSAECONNREFUSED and WSAETIMEDOUT so the code that builds the Errno module doesn't know to make those available.

So, if you want your code to port to Win32, you can add something like:

BEGIN { if( $^O =~ /Win32/i ) { eval ' sub() ECONNREFUSED { 10061; } sub() ETIMEDOUT { 10060; } 1;' or die $@; } }

Comment on Answer: How can I distinguish between 'Connection refused' and 'Connection timed out?'
Select or Download Code
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (5)
As of 2014-12-28 08:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (179 votes), past polls