{"id":202200,"date":"2025-05-10T10:28:43","date_gmt":"2025-05-10T02:28:43","guid":{"rendered":"https:\/\/server.hk\/cnblog\/202200\/"},"modified":"2025-05-10T10:28:43","modified_gmt":"2025-05-10T02:28:43","slug":"%e5%a6%82%e4%bd%95%e5%88%a9%e7%94%a8redis%e5%92%8chaskell%e5%ae%9e%e7%8e%b0%e4%ba%8b%e4%bb%b6%e9%a9%b1%e5%8a%a8%e7%9a%84%e5%ba%94%e7%94%a8%e5%8a%9f%e8%83%bd","status":"publish","type":"post","link":"https:\/\/server.hk\/cnblog\/202200\/","title":{"rendered":"\u5982\u4f55\u5229\u7528Redis\u548cHaskell\u5b9e\u73b0\u4e8b\u4ef6\u9a71\u52a8\u7684\u5e94\u7528\u529f\u80fd"},"content":{"rendered":"

<\/b> <\/p>\n

\u5982\u4f55\u5229\u7528Redis\u548cHaskell\u5b9e\u73b0\u4e8b\u4ef6\u9a71\u52a8\u7684\u5e94\u7528\u529f\u80fd<\/h1>\n

\u4f60\u5728\u5b66\u4e60\u6570\u636e\u5e93<\/span>\u76f8\u5173\u7684\u77e5\u8bc6\u5417\uff1f\u672c\u6587\u300a\u5982\u4f55\u5229\u7528Redis\u548cHaskell\u5b9e\u73b0\u4e8b\u4ef6\u9a71\u52a8\u7684\u5e94\u7528\u529f\u80fd\u300b<\/span>\uff0c\u4e3b\u8981\u4ecb\u7ecd\u7684\u5185\u5bb9\u5c31\u6d89\u53ca\u5230<\/span>\uff0c\u5982\u679c\u4f60\u60f3\u63d0\u5347\u81ea\u5df1\u7684\u5f00\u53d1\u80fd\u529b\uff0c\u5c31\u4e0d\u8981\u9519\u8fc7\u8fd9\u7bc7\u6587\u7ae0\uff0c\u5927\u5bb6\u8981\u77e5\u9053\u7f16\u7a0b\u7406\u8bba\u57fa\u7840\u548c\u5b9e\u6218\u64cd\u4f5c\u90fd\u662f\u4e0d\u53ef\u6216\u7f3a\u7684\u54e6\uff01<\/p>\n

\u5982\u4f55\u5229\u7528Redis\u548cHaskell\u5b9e\u73b0\u4e8b\u4ef6\u9a71\u52a8\u7684\u5e94\u7528\u529f\u80fd<\/p>\n

\u5f15\u8a00:
Redis\u662f\u4e00\u4e2a\u9ad8\u6027\u80fd\u7684\u952e\u503c\u5b58\u50a8\u7cfb\u7edf\uff0c\u5e38\u7528\u4e8e\u7f13\u5b58\u3001\u6d88\u606f\u961f\u5217\u3001\u5b9e\u65f6\u8ba1\u7b97\u7b49\u573a\u666f\u3002Haskell\u662f\u4e00\u79cd\u5f3a\u7c7b\u578b\u7684\u51fd\u6570\u5f0f\u7f16\u7a0b\u8bed\u8a00\uff0c\u62e5\u6709\u9ad8\u5ea6\u7684\u8868\u8fbe\u80fd\u529b\u548c\u5f3a\u5927\u7684\u7c7b\u578b\u7cfb\u7edf\u3002Redis\u548cHaskell\u7684\u7ed3\u5408\u53ef\u4ee5\u63d0\u4f9b\u4e00\u79cd\u9ad8\u6548\u3001\u53ef\u9760\u7684\u4e8b\u4ef6\u9a71\u52a8\u7f16\u7a0b\u6a21\u578b\uff0c\u8be5\u6a21\u578b\u5728\u5f00\u53d1\u5b9e\u65f6\u5e94\u7528\u3001\u6d88\u606f\u7cfb\u7edf\u7b49\u9886\u57df\u6709\u5e7f\u6cdb\u7684\u5e94\u7528\u3002<\/p>\n

\u672c\u6587\u5c06\u4ecb\u7ecd\u5982\u4f55\u5229\u7528Redis\u548cHaskell\u6765\u5b9e\u73b0\u4e00\u4e2a\u7b80\u5355\u7684\u4e8b\u4ef6\u9a71\u52a8\u7684\u5e94\u7528\u529f\u80fd\u3002\u6211\u4eec\u4f1a\u4f7f\u7528Hedis\u4f5c\u4e3aRedis\u7684Haskell\u5ba2\u6237\u7aef\u5e93\uff0c\u5e76\u5229\u7528Haskell\u7684\u534f\u7a0b\u5e93stm-conduit<\/code>\u5b9e\u73b0\u4e8b\u4ef6\u7684\u8ba2\u9605\u548c\u53d1\u5e03\u3002<\/p>\n

\u6b65\u9aa4\u4e00\uff1a\u5b89\u88c5\u4f9d\u8d56
\u9996\u5148\uff0c\u6211\u4eec\u9700\u8981\u5b89\u88c5Hedis\u5e93\u548cstm-conduit\u5e93\u3002\u53ef\u4ee5\u901a\u8fc7Haskell\u7684\u5305\u7ba1\u7406\u5de5\u5177stack\u6765\u8fdb\u884c\u5b89\u88c5:<\/p>\n

$ stack install hedis stm-conduit<\/pre>\n
\u6b65\u9aa4\u4e8c\uff1a\u8fde\u63a5Redis
\u5c06\u4ee5\u4e0b\u4ee3\u7801\u4fdd\u5b58\u4e3aMain.hs<\/code>\uff1a<\/p>\n
module Main where\n\nimport Database.Redis\nimport Control.Monad.Trans (liftIO)\n\nmain :: IO ()\nmain = do\n    conn <- connect defaultConnectInfo\n    runRedis conn $ do\n        -- \u6267\u884cRedis\u547d\u4ee4\n        set \"key\" \"value\"\n        get \"key\" >>= liftIO . print<\/pre>\n
\u4ee3\u7801\u89e3\u91ca:
\u6211\u4eec\u9996\u5148\u5bfc\u5165\u4e86Database.Redis<\/code>\u6a21\u5757\u548cControl.Monad.Trans<\/code>\u6a21\u5757\uff0c\u5e76\u5b9a\u4e49\u4e86main<\/code>\u51fd\u6570\u3002
\u5728main<\/code>\u51fd\u6570\u4e2d\uff0c\u6211\u4eec\u9996\u5148\u4f7f\u7528connect<\/code>\u51fd\u6570\u6765\u8fde\u63a5\u5230\u672c\u5730\u7684Redis\u670d\u52a1\u5668\u3002defaultConnectInfo<\/code>\u4e3a\u8fde\u63a5\u4fe1\u606f\u7684\u9ed8\u8ba4\u503c\uff0c\u53ef\u4ee5\u6839\u636e\u5b9e\u9645\u60c5\u51b5\u8fdb\u884c\u4fee\u6539\u3002
\u7136\u540e\uff0c\u6211\u4eec\u901a\u8fc7runRedis<\/code>\u51fd\u6570\u6765\u6267\u884cRedis\u547d\u4ee4\u3002\u5728\u8fd9\u4e2a\u4f8b\u5b50\u4e2d\uff0c\u6211\u4eec\u9996\u5148\u4f7f\u7528set<\/code>\u547d\u4ee4\u5c06\u4e00\u4e2a\u952e\u503c\u5bf9\u5b58\u50a8\u5230Redis\u4e2d\uff0c\u7136\u540e\u4f7f\u7528get<\/code>\u547d\u4ee4\u83b7\u53d6\u8be5\u952e\u5bf9\u5e94\u7684\u503c\uff0c\u5e76\u901a\u8fc7liftIO<\/code>\u51fd\u6570\u5c06\u7ed3\u679c\u6253\u5370\u51fa\u6765\u3002<\/p>\n
\u6b65\u9aa4\u4e09\uff1a\u5b9e\u73b0\u4e8b\u4ef6\u8ba2\u9605\u548c\u53d1\u5e03
\u63a5\u4e0b\u6765\uff0c\u6211\u4eec\u5c06\u5b9e\u73b0\u4e8b\u4ef6\u7684\u8ba2\u9605\u548c\u53d1\u5e03\u529f\u80fd\u3002\u6211\u4eec\u5c06\u4f7f\u7528stm-conduit<\/code>\u5e93\u6765\u521b\u5efa\u4e00\u4e2a\u7528\u4e8e\u53d1\u5e03\u4e8b\u4ef6\u7684channel\u3002<\/p>\n
\u521b\u5efa\u4e00\u4e2a\u65b0\u7684\u6587\u4ef6Event.hs<\/code>\uff0c\u5c06\u4ee5\u4e0b\u4ee3\u7801\u4fdd\u5b58\u5728\u5176\u4e2d\uff1a<\/p>\n
module Event where\n\nimport Control.Concurrent.STM\nimport Control.Monad.IO.Class (liftIO)\nimport Conduit\nimport Database.Redis\n\nchannelName :: ByteString\nchannelName = \"mychannel\"\n\npublishEvent :: Connection -> ByteString -> IO ()\npublishEvent conn event = runRedis conn $ publish channelName event\n\nsubscribeEvent :: Connection -> TChan ByteString -> IO ()\nsubscribeEvent conn chan = do\n    pubsub <- pubSubState (pubSubConn conn)\n    forkConduit $ runRedis conn $ do\n        subscribe [channelName]\n        loop pubsub\n  where\n    loop pubsub = do\n        message@(Message _ (Just msg)) <- liftIO $ atomically $ readTChan chan\n        case msg of\n            \"quit\" -> return ()\n            _ -> do\n                publishEvent conn msg\n                loop pubsub<\/pre>\n
\u4ee3\u7801\u89e3\u91ca:
\u6211\u4eec\u9996\u5148\u5bfc\u5165\u4e86\u5fc5\u8981\u7684\u6a21\u5757\uff0c\u4ee5\u53caDatabase.Redis<\/code>\u5e93\u6765\u6267\u884cRedis\u547d\u4ee4\u3002
\u5728Event.hs<\/code>\u6a21\u5757\u4e2d\uff0c\u6211\u4eec\u5b9a\u4e49\u4e86\u4e00\u4e2a\u540d\u4e3achannelName<\/code>\u7684\u5e38\u91cf\uff0c\u7528\u4e8e\u8868\u793a\u8981\u53d1\u5e03\u548c\u8ba2\u9605\u7684\u4e8b\u4ef6\u901a\u9053\u7684\u540d\u79f0\u3002
publishEvent<\/code>\u51fd\u6570\u7528\u4e8e\u53d1\u5e03\u4e00\u4e2a\u4e8b\u4ef6\uff0c\u63a5\u53d7\u4e00\u4e2a\u8fde\u63a5\u548c\u4e00\u4e2a\u88ab\u53d1\u5e03\u7684\u4e8b\u4ef6\u4f5c\u4e3a\u53c2\u6570\u3002\u6211\u4eec\u4f7f\u7528runRedis<\/code>\u51fd\u6570\u6765\u6267\u884cpublish<\/code>\u547d\u4ee4\uff0c\u5c06\u4e8b\u4ef6\u53d1\u5e03\u5230\u6307\u5b9a\u7684\u901a\u9053\u4e2d\u3002
subscribeEvent<\/code>\u51fd\u6570\u7528\u4e8e\u8ba2\u9605\u4e8b\u4ef6\uff0c\u63a5\u53d7\u4e00\u4e2a\u8fde\u63a5\u548c\u4e00\u4e2a\u7528\u4e8e\u63a5\u6536\u4e8b\u4ef6\u7684TChan<\/code>\u4f5c\u4e3a\u53c2\u6570\u3002\u5728\u8be5\u51fd\u6570\u4e2d\uff0c\u6211\u4eec\u9996\u5148\u83b7\u53d6Redis\u7684Pub\/Sub\u72b6\u6001\uff0c\u5e76\u4f7f\u7528forkConduit<\/code>\u51fd\u6570\u6765\u521b\u5efa\u4e00\u4e2a\u65b0\u7684\u534f\u7a0b\u3002
\u5728\u534f\u7a0b\u4e2d\uff0c\u6211\u4eec\u4f7f\u7528runRedis<\/code>\u51fd\u6570\u6765\u6267\u884csubscribe<\/code>\u547d\u4ee4\uff0c\u8ba2\u9605\u6307\u5b9a\u7684\u901a\u9053\u3002\u7136\u540e\uff0c\u6211\u4eec\u8fdb\u5165\u4e00\u4e2a\u5faa\u73af\uff0c\u4e0d\u65ad\u8bfb\u53d6TChan<\/code>\u4e2d\u7684\u4e8b\u4ef6\uff0c\u5e76\u5c06\u5176\u901a\u8fc7publishEvent<\/code>\u51fd\u6570\u53d1\u5e03\u5230Redis\u4e2d\u3002<\/p>\n
\u6b65\u9aa4\u56db\uff1a\u4f7f\u7528\u4e8b\u4ef6\u9a71\u52a8\u7684\u529f\u80fd
\u6700\u540e\uff0c\u6211\u4eec\u5728Main.hs<\/code>\u4e2d\u4f7f\u7528\u4ee5\u4e0a\u5b9e\u73b0\u7684\u4e8b\u4ef6\u9a71\u52a8\u7684\u529f\u80fd\u3002\u5c06\u4ee5\u4e0b\u4ee3\u7801\u6dfb\u52a0\u5230main<\/code>\u51fd\u6570\u4e2d\uff1a<\/p>\n
channel <- liftIO newBroadcastTChanIO\nforkIO $ subscribeEvent conn channel\nliftIO $ atomically $ writeTChan channel \"event1\"\nliftIO $ atomically $ writeTChan channel \"event2\"\nliftIO $ atomically $ writeTChan channel \"quit\"<\/pre>\n
\u4ee3\u7801\u89e3\u91ca:
\u6211\u4eec\u9996\u5148\u4f7f\u7528newBroadcastTChanIO<\/code>\u51fd\u6570\u521b\u5efa\u4e00\u4e2a\u65b0\u7684\u5e7f\u64adTChan<\/code>\uff0c\u7528\u4e8e\u63a5\u6536\u4e8b\u4ef6\u3002
\u7136\u540e\uff0c\u6211\u4eec\u4f7f\u7528forkIO<\/code>\u51fd\u6570\u6765\u521b\u5efa\u4e00\u4e2a\u65b0\u7684\u7ebf\u7a0b\uff0c\u6267\u884csubscribeEvent<\/code>\u51fd\u6570\u6765\u8ba2\u9605\u4e8b\u4ef6\uff0c\u5e76\u5c06\u63a5\u6536\u5230\u7684\u4e8b\u4ef6\u653e\u5165channel<\/code>\u4e2d\u3002
\u63a5\u4e0b\u6765\uff0c\u6211\u4eec\u4f7f\u7528liftIO<\/code>\u51fd\u6570\u5c06\u8981\u53d1\u5e03\u7684\u4e8b\u4ef6\u5199\u5165channel<\/code>\u4e2d\u3002\u5728\u8fd9\u4e2a\u4f8b\u5b50\u4e2d\uff0c\u6211\u4eec\u4f9d\u6b21\u5c06”event1″\u3001”event2″\u548c”quit”\u5199\u5165channel<\/code>\u4e2d\u3002
\u6700\u540e\uff0c\u6211\u4eec\u901a\u8fc7Redis\u7684Pub\/Sub\u673a\u5236\uff0c\u5c06\u8fd9\u4e9b\u4e8b\u4ef6\u53d1\u5e03\u5230\u6307\u5b9a\u7684\u901a\u9053\u4e2d\u3002<\/p>\n
\u603b\u7ed3:
\u901a\u8fc7Redis\u548cHaskell\u7684\u7ed3\u5408\uff0c\u6211\u4eec\u53ef\u4ee5\u5b9e\u73b0\u4e00\u4e2a\u7b80\u5355\u800c\u9ad8\u6548\u7684\u4e8b\u4ef6\u9a71\u52a8\u7684\u5e94\u7528\u529f\u80fd\u3002\u5728\u8fd9\u4e2a\u4f8b\u5b50\u4e2d\uff0c\u6211\u4eec\u901a\u8fc7Redis\u7684Pub\/Sub\u673a\u5236\u6765\u5b9e\u73b0\u4e8b\u4ef6\u7684\u8ba2\u9605\u548c\u53d1\u5e03\uff0c\u5e76\u5229\u7528Haskell\u7684\u534f\u7a0b\u5e93stm-conduit<\/code>\u6765\u5904\u7406\u4e8b\u4ef6\u7684\u4f20\u9012\u3002\u8fd9\u79cd\u4e8b\u4ef6\u9a71\u52a8\u7684\u7f16\u7a0b\u6a21\u578b\u53ef\u4ee5\u5e94\u7528\u4e8e\u5b9e\u65f6\u5e94\u7528\u3001\u6d88\u606f\u7cfb\u7edf\u7b49\u573a\u666f\uff0c\u5e76\u80fd\u591f\u63d0\u4f9b\u9ad8\u541e\u5410\u91cf\u3001\u4f4e\u5ef6\u8fdf\u7684\u6027\u80fd\u3002<\/p>\n
\u4ee3\u7801\u793a\u4f8b:
\u4ee5\u4e0b\u4e3a\u5b8c\u6574\u7684Main.hs<\/code>\u4ee3\u7801\uff1a<\/p>\n
module Main where\n\nimport Database.Redis\nimport Control.Monad.Trans (liftIO)\nimport Control.Concurrent (forkIO)\nimport Control.Concurrent.STM\nimport Conduit\nimport Event\n\nmain :: IO ()\nmain = do\n    conn <- connect defaultConnectInfo\n    runRedis conn $ do\n        -- \u6267\u884cRedis\u547d\u4ee4\n        set \"key\" \"value\"\n        get \"key\" >>= liftIO . print\n\n    channel <- liftIO newBroadcastTChanIO\n    forkIO $ subscribeEvent conn channel\n    liftIO $ atomically $ writeTChan channel \"event1\"\n    liftIO $ atomically $ writeTChan channel \"event2\"\n    liftIO $ atomically $ writeTChan channel \"quit\"<\/pre>\n
\u4ee5\u4e0b\u4e3a\u5b8c\u6574\u7684Event.hs<\/code>\u4ee3\u7801:<\/p>\n
module Event where\n\nimport Control.Concurrent.STM\nimport Control.Monad.IO.Class (liftIO)\nimport Conduit\nimport Database.Redis\n\nchannelName :: ByteString\nchannelName = \"mychannel\"\n\npublishEvent :: Connection -> ByteString -> IO ()\npublishEvent conn event = runRedis conn $ publish channelName event\n\nsubscribeEvent :: Connection -> TChan ByteString -> IO ()\nsubscribeEvent conn chan = do\n    pubsub <- pubSubState (pubSubConn conn)\n    forkConduit $ runRedis conn $ do\n        subscribe [channelName]\n        loop pubsub\n  where\n    loop pubsub = do\n        message@(Message _ (Just msg)) <- liftIO $ atomically $ readTChan chan\n        case msg of\n            \"quit\" -> return ()\n            _ -> do\n                publishEvent conn msg\n                loop pubsub<\/pre>\n
\u4ee5\u4e0a\u4ee3\u7801\u793a\u4f8b\u4e86\u5982\u4f55\u5229\u7528Redis\u548cHaskell\u5b9e\u73b0\u4e00\u4e2a\u57fa\u4e8e\u4e8b\u4ef6\u9a71\u52a8\u7684\u5e94\u7528\u529f\u80fd\u3002\u901a\u8fc7\u8fd9\u4e2a\u4f8b\u5b50\uff0c\u4f60\u53ef\u4ee5\u66f4\u597d\u5730\u7406\u89e3\u5982\u4f55\u5229\u7528Redis\u548cHaskell\u8fdb\u884c\u4e8b\u4ef6\u9a71\u52a8\u7684\u7f16\u7a0b\uff0c\u5e76\u638c\u63e1\u76f8\u5e94\u7684\u4ee3\u7801\u5b9e\u73b0\u6280\u5de7\u3002\u5e0c\u671b\u672c\u6587\u5bf9\u4f60\u6709\u6240\u5e2e\u52a9\uff01<\/p>\n
\n
\n <\/dt>\n
\n   Golang\u5f00\u53d1\uff1a\u638c\u63e1\u57fa\u4e8e\u6d88\u606f\u4f20\u9012\u7684\u5e76\u53d1\u7f16\u7a0b\n <\/dd>\n<\/dl>\n
\n
\n <\/dt>\n
\n   \u5982\u4f55\u5229\u7528Redis\u548cJulia\u8bed\u8a00\u5b9e\u73b0\u9ad8\u6027\u80fd\u8ba1\u7b97\u529f\u80fd\n <\/dd>\n<\/dl>\n","protected":false},"excerpt":{"rendered":"
\u5982\u4f55\u5229\u7528Redis\u548cHaskel...<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[101],"tags":[],"class_list":["post-202200","post","type-post","status-publish","format-standard","hentry","category-database"],"_links":{"self":[{"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/posts\/202200","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/comments?post=202200"}],"version-history":[{"count":0,"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/posts\/202200\/revisions"}],"wp:attachment":[{"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/media?parent=202200"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/categories?post=202200"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/tags?post=202200"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}