Je veux vérifier si un certain port est ouvert (Haskell) ou non?

Question

Je veux vérifier si un certain port est ouvert sur un hôte donné. Comment puis je faire ça? Après avoir appelé connectTo et quelle est la prochaine étape, comment puis-je savoir si un port est ouvert?

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

Answer 1

Si connectTo renvoie, le port est ouvert. Sinon, il lancer des exceptions comme

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

ou

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

Vous pouvez faire

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