Ich möchte überprüfen, ob ein bestimmter Port offen ist (Haskell)?

Question

Ich möchte überprüfen, ob ein bestimmter Port auf einem bestimmten Host geöffnet ist oder nicht. Wie kann ich das machen? Nachdem ich connectTo angerufen habe und was als nächstes, wie kann ich wirklich wissen, wenn ein Hafen geöffnet ist?

main = do 
    withSocketsDo $ do 
    h <- connectTo "some_host.com" $ PortNumber 1234 
    --- and....? 

Answer 1

Wenn connectTo zurückkehrt, ist der Port offen. Sonst wird es Ausnahmen wie

*** Exception: connect: failed (Connection timed out (WSAETIMEDOUT)) 

oder

*** Exception: connect: failed (Connection refused (WSAECONNREFUSED)) 

werfen So könnte man

import Network(connectTo, PortID(..), PortNumber(..)) 
import Control.Exception(try, SomeException) 
import System.IO(Handle) 

isPortOpen :: String -> PortNumber -> IO Bool 
isPortOpen host port = do 
    h <- try $ connectTo host (PortNumber port) :: IO (Either SomeException Handle) 
    return $ case h of 
    Left _ -> False 
    Right _ -> True