第二七章：Socket 及 Syslog.pdf

第⼆七章：Socket 和 Syslog 第⼆七章：Socket 和 Syslog 基本⽹络 本书的前⼏张，我们讨论了在⽹络上进⾏操作的服务。其中两个例⼦是数 库客户端/ 服务器和 web 服务。当需要设计新的协议，或者使⽤没有现成 Haskell 库的协议通信 时，将需要使⽤ Haskell 库函数提供的底层⽹络⼯具。 本章中，我们将讨论这些底层⼯具。⽹络通讯是个⼤题⽬，可以⽤⼀整本书来讨论。 本章中，我们将展⽰如何使⽤ Haskell 应⽤你已经掌握的底层⽹络知识。 Haskell 的⽹络函数⼏乎始终与常见的 C 函数调⽤相符。像其他在 C 上层的语⾔⼀ 样，你将发现其接⼜很眼熟。 使⽤ UDP 通信 UDP 将数 拆散为数 包。其不保证数 到达⽬的地，也不确保同⼀个数 包到达的 次数。其⽤校验和的⽅式确保到达的数 包没有损坏。 UDP 适合⽤在对性能和延迟 敏感的应⽤中，此类场景中系统的整体性能⽐单个数 包更重要。也可以⽤在 TCP 表 现性能不⾼的场景，⽐如发送互不相关的短消息。适合使⽤ UDP 的系统的例⼦包括 ⾳频和视频会议、时间同步、⽹络⽂件系统、以及⽇志系统。 UDP 客户端例⼦：syslog 传统 Unix syslog 服务允许程序通过⽹络向某个负责记录的中央服务器发送⽇志信息。 某些程序对性能⾮常敏感，⽽且可能会⽣成⼤量⽇志消息。这样的程序，将⽇志的开 销最⼩化⽐确保每条⽇志被记录更重要。此外，在⽇志服务器⽆法访问时，使程序依 旧可以操作或许是⼀种可取的设计。因此，UDP 是⼀种 syslog ⽀持的⽇志传输协议。 这种协议⽐较简单，这⾥有⼀个 Haskell 实现的客户端： -- file: ch27/syslogclient.hs import Data.Bits import Network.Socket import Network.BSD import Data.List import SyslogTypes ata SyslogHan le = SyslogHan le {slSocket :: Socket, slProgram :: String, slA ress :: SockA r} openlog :: HostName -- ^ Remote hostname, or localhost - String -- ^ Port number or name; 514 is - String -- ^ Name to log un er - IO SyslogHan le -- ^ Han le to use for logging openlog hostname port progname = o -- Look up the hostname an port. Either raises an excepti -- or returns a nonempty list. First element in that list -- is suppose to be the best option. a rinfos - getA rInfo Nothing (Just hostname) (Just port let servera r = hea a rinfos -- Establish a socket for communication sock - socket (a rFamily servera r) Datagram efaultProt -- Save off the socket, program name, an server a ress in return $ SyslogHan le sock progname (a rA ress servera r syslog :: SyslogHan le - Facility - Priority - String - IO () syslog syslogh fac pri msg