Ошибка при отправке (или получении) данных в сокет (Haskell) - PullRequest
Новая
       36

Ошибка при отправке (или получении) данных в сокет (Haskell)

1 голос
/ 09 апреля 2011

Я возиться с эхо-сервером, который я нашел в сети, пытаюсь понять сетевое программирование на Haskell, и я сталкиваюсь с камнем преткновения.Я не могу понять, как отправить данные на сервер (с помощью другой программы или любым другим способом).Моя текущая попытка выглядит следующим образом: 

import Network (connectTo, Socket, PortID(..))
import System.IO (hPutStrLn, hClose, hSetBuffering, BufferMode(..))

main :: IO ()
main = do
  handle <- connectTo "127.0.0.1" (PortNumber 5555)
  hSetBuffering handle LineBuffering
  hPutStrLn handle "echo hello, world!"
  hPutStrLn handle "add 1 2"
  hClose handle

Когда я запускаю main, я получаю ошибку «Server.hs:: hPutChar: ресурс исчез (сломанный канал)» в терминале, в котором работает сервер.Код сервера выглядит следующим образом: 

import Network   (listenOn, accept, withSocketsDo, PortID(..), Socket)
import System    (getArgs)
import System.IO (hSetBuffering, hGetLine, hPutStrLn, BufferMode(..), Handle)
import Control.Concurrent (forkIO)

main :: IO ()
main = withSocketsDo $ do 
  args <- getArgs
  let port = fromIntegral (read $ head args :: Int)
  sock <- listenOn $ PortNumber port
  putStrLn $ "Listening on " ++ show port
  sockHandler sock

sockHandler :: Socket -> IO ()
sockHandler sock = do
  (handle, _, _) <- accept sock
  hSetBuffering handle NoBuffering
  forkIO $ commandProcessor handle
  sockHandler sock

commandProcessor :: Handle -> IO ()
commandProcessor handle = do
  line <- hGetLine handle
  let cmd = words line
  case (head cmd) of
    ("echo") -> echoCommand handle cmd
    ("add")  -> addCommand handle cmd
    _        -> do hPutStrLn handle "Unknown command."
  commandProcessor handle

echoCommand :: Handle -> [String] -> IO ()
echoCommand handle cmd = do
  hPutStrLn handle (unwords $ tail cmd)

addCommand :: Handle -> [String] -> IO ()
addCommand handle cmd = do
  hPutStrLn handle $ show $ (read $ cmd !! 1) + (read $ cmd !! 2)

Как мне исправить это?Я хочу расширить сервер, чтобы узнать больше.Спасибо!

1 Ответ

4 голосов
/ 09 апреля 2011

В этом случае проблема проста. Вы пишете на сервер команду echo, затем команду add, а затем отключаетесь. Затем сервер пытается обработать команду echo, а затем пытается выполнить обратную запись для клиента, но клиент уже отключен! следовательно, вы получаете исключение.

Клиент не может отключиться, пока не прочитает достаточно данных с сервера - и сервер должен обработать исключения, чтобы отключение клиента не убило его.

...