Haskell Telnet回显服务器无法处理exit命令问题排查

问题根源 #

Telnet客户端的输入会包含特殊字符（比如回车\r、换行\n），且你输入的是exit （带空格），直接匹配"exit"、"exit\n"等字符串自然无法命中。另外，Telnet默认会将换行转换为CRLF（\r\n），加上输入末尾的空格，实际接收的内容可能是"exit \r\n"，而hGetLine这类函数会丢弃\n但保留\r，导致匹配失败。

解决方案 #

1. 先调试确认实际输入内容 #

在处理输入的代码中添加调试逻辑，打印原始输入的字符编码，明确实际接收的内容：

import Data.Char (ord)

handleClient :: Socket -> IO ()
handleClient sock = do
    input <- hGetLine sock
    -- 打印每个字符的ASCII码，查看实际输入
    print $ map ord input
    -- 后续处理逻辑
    ...

运行后输入exit 并回车，就能看到实际接收的字符编码（比如空格是32、回车是13、换行是10），为匹配提供准确依据。

2. 对输入做Trim处理 #

不管输入带空格、回车还是换行，先去掉前后所有空白字符再匹配"exit"：

import qualified Data.Text as T
import qualified Data.Text.IO as TIO
import System.IO (Handle, hClose, hPutStrLn)

trimInput :: String -> String
trimInput = T.unpack . T.strip . T.pack

handleClient :: Handle -> IO ()
handleClient h = do
    input <- hGetLine h
    let trimmed = trimInput input
    if trimmed == "exit"
        then hClose h  -- 匹配成功，关闭连接
        else do
            hPutStrLn h $ "You said: " ++ input
            handleClient h  -- 未匹配，继续处理

T.strip会自动去掉字符串前后的空格、\r、\n等空白字符，确保只要输入的核心内容是exit就能命中。

3. 使用Telnet专用库简化处理 #

手动处理Telnet的协议细节容易出错，推荐使用network-telnet库自动处理控制字符、CRLF转换等问题：

• 在cabal文件中添加依赖：network-telnet >= 0.1.0
• 示例代码：

import Network.Telnet
import qualified Data.Text as T

handleClient :: TelnetHandle -> IO ()
handleClient h = do
    input <- telnetGetLine h
    let trimmed = T.strip $ T.pack input
    if trimmed == T.pack "exit"
        then telnetClose h
        else do
            telnetPutStrLn h $ "You said: " ++ input
            handleClient h

main :: IO ()
main = telnetServer 2323 handleClient  -- 监听2323端口

该库会自动处理Telnet的选项协商和输入转换，让输入逻辑更可靠。

4. 检查循环终止逻辑 #

确保匹配到exit后直接关闭连接，不再递归调用客户端处理函数，避免关闭后继续等待输入的情况。

内容的提问来源于stack exchange，提问作者Erdel von Mises