Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

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

by tye (Sage)
on Aug 02, 2000 at 07:34 UTC ( #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?' - Answer 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?

What's my password?
Create A New User
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (6)
As of 2017-04-30 14:50 GMT
Find Nodes?
    Voting Booth?
    I'm a fool:

    Results (540 votes). Check out past polls.