{"id":202225,"date":"2025-05-10T09:23:14","date_gmt":"2025-05-10T01:23:14","guid":{"rendered":"https:\/\/server.hk\/cnblog\/202225\/"},"modified":"2025-05-10T09:23:14","modified_gmt":"2025-05-10T01:23:14","slug":"%e5%a6%82%e4%bd%95%e5%88%a9%e7%94%a8redis%e5%92%8chaskell%e5%bc%80%e5%8f%91%e9%99%90%e6%b5%81%e5%99%a8%e5%8a%9f%e8%83%bd","status":"publish","type":"post","link":"https:\/\/server.hk\/cnblog\/202225\/","title":{"rendered":"\u5982\u4f55\u5229\u7528Redis\u548cHaskell\u5f00\u53d1\u9650\u6d41\u5668\u529f\u80fd"},"content":{"rendered":"

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

\u5982\u4f55\u5229\u7528Redis\u548cHaskell\u5f00\u53d1\u9650\u6d41\u5668\u529f\u80fd<\/h1>\n

\u4eca\u65e5\u4e0d\u80af\u57cb\u5934\uff0c\u660e\u65e5\u4f55\u4ee5\u62ac\u5934\uff01\u6bcf\u65e5\u4e00\u53e5\u52aa\u529b\u81ea\u5df1\u7684\u8bdd\u54c8\u54c8~\u54c8\u55bd\uff0c\u4eca\u5929\u6211\u5c06\u7ed9\u5927\u5bb6\u5e26\u6765\u4e00\u7bc7\u300a\u5982\u4f55\u5229\u7528Redis\u548cHaskell\u5f00\u53d1\u9650\u6d41\u5668\u529f\u80fd\u300b<\/span>\uff0c\u4e3b\u8981\u5185\u5bb9\u662f\u8bb2\u89e3<\/span>\u7b49\u7b49\uff0c\u611f\u5174\u8da3\u7684\u670b\u53cb\u53ef\u4ee5\u6536\u85cf\u6216\u8005\u6709\u66f4\u597d\u7684\u5efa\u8bae\u5728\u8bc4\u8bba\u63d0\u51fa\uff0c\u6211\u90fd\u4f1a\u8ba4\u771f\u770b\u7684\uff01\u5927\u5bb6\u4e00\u8d77\u8fdb\u6b65\uff0c\u4e00\u8d77\u5b66\u4e60\uff01<\/p>\n

\u5982\u4f55\u5229\u7528Redis\u548cHaskell\u5f00\u53d1\u9650\u6d41\u5668\u529f\u80fd<\/p>\n

\u5f15\u8a00\uff1a
\u5728\u7f51\u7edc\u5f00\u53d1\u4e2d\uff0c\u9650\u6d41\u5668\u662f\u4e00\u79cd\u5e38\u7528\u7684\u529f\u80fd\uff0c\u7528\u4e8e\u63a7\u5236\u63a5\u53e3\u8bf7\u6c42\u7684\u9891\u7387\u548c\u5e76\u53d1\u6570\u91cf\u3002\u672c\u6587\u5c06\u4ecb\u7ecd\u5982\u4f55\u5229\u7528Redis\u548cHaskell\u6765\u5b9e\u73b0\u4e00\u4e2a\u7b80\u5355\u7684\u9650\u6d41\u5668\uff0c\u5e76\u63d0\u4f9b\u4e86\u5177\u4f53\u7684\u4ee3\u7801\u793a\u4f8b\u3002<\/p>\n

\u4e00\u3001\u9650\u6d41\u5668\u7684\u539f\u7406
\u9650\u6d41\u5668\u7684\u539f\u7406\u5c31\u662f\u901a\u8fc7\u5bf9\u8bf7\u6c42\u8fdb\u884c\u8ba1\u6570\u548c\u63a7\u5236\uff0c\u6765\u9650\u5236\u8bf7\u6c42\u7684\u9891\u7387\u548c\u5e76\u53d1\u6570\u3002\u5177\u4f53\u5b9e\u73b0\u65b9\u6cd5\u5982\u4e0b\uff1a<\/p>\n

    \n
  1. \u4f7f\u7528Redis\u5b58\u50a8\u8ba1\u6570\u5668\uff1a\u5728Redis\u4e2d\u53ef\u4ee5\u4f7f\u7528\u8ba1\u6570\u5668\u6765\u8bb0\u5f55\u6bcf\u4e2a\u8bf7\u6c42\u7684\u6b21\u6570\u3002\u53ef\u4ee5\u4f7f\u7528\u4e00\u4e2a\u6709\u5e8f\u96c6\u5408\uff08sorted set\uff09\u6765\u5b58\u50a8\u8ba1\u6570\u5668\u7684\u4fe1\u606f\uff0c\u96c6\u5408\u4e2d\u7684\u6210\u5458\u8868\u793a\u8bf7\u6c42\u7684\u552f\u4e00\u6807\u8bc6\uff0c\u5206\u503c\u8868\u793a\u8bf7\u6c42\u53d1\u751f\u7684\u65f6\u95f4\u6233\u3002\u6bcf\u6b21\u8bf7\u6c42\u65f6\uff0c\u53ef\u4ee5\u901a\u8fc7Redis\u7684INCR\u547d\u4ee4\u589e\u52a0\u8ba1\u6570\u5668\u7684\u503c\u3002<\/li>\n
  2. \u63a7\u5236\u8bf7\u6c42\u9891\u7387\uff1a\u53ef\u4ee5\u901a\u8fc7\u8bbe\u7f6e\u4e00\u4e2a\u65f6\u95f4\u7a97\u53e3\uff0c\u5728\u8be5\u65f6\u95f4\u7a97\u53e3\u5185\u9650\u5236\u8bf7\u6c42\u7684\u6b21\u6570\u3002\u6bd4\u5982\u53ef\u4ee5\u8bbe\u7f6e\u4e00\u5206\u949f\u5185\u6700\u591a\u5141\u8bb8100\u6b21\u8bf7\u6c42\u3002\u5bf9\u4e8e\u8d85\u8fc7\u9650\u5236\u6b21\u6570\u7684\u8bf7\u6c42\uff0c\u53ef\u4ee5\u62d2\u7edd\u6216\u8005\u8fdb\u884c\u5ef6\u65f6\u5904\u7406\u3002<\/li>\n
  3. \u63a7\u5236\u5e76\u53d1\u6570\u91cf\uff1a\u53ef\u4ee5\u901a\u8fc7\u8bbe\u7f6e\u4e00\u4e2a\u65f6\u95f4\u7a97\u53e3\u5185\u7684\u5e76\u53d1\u8bf7\u6c42\u6570\u91cf\u7684\u6700\u5927\u503c\uff0c\u6765\u9650\u5236\u5e76\u53d1\u8bf7\u6c42\u6570\u3002\u5bf9\u4e8e\u8d85\u8fc7\u6700\u5927\u5e76\u53d1\u6570\u7684\u8bf7\u6c42\uff0c\u53ef\u4ee5\u8fdb\u884c\u6392\u961f\u6216\u8005\u62d2\u7edd\u5904\u7406\u3002<\/li>\n<\/ol>\n

    \u4e8c\u3001Redis\u548cHaskell\u7684\u5e94\u7528
    Redis\u662f\u4e00\u4e2a\u9ad8\u6027\u80fd\u7684\u5185\u5b58\u6570\u636e\u5e93\uff0c\u53ef\u4ee5\u65b9\u4fbf\u5730\u7528\u6765\u5b58\u50a8\u8ba1\u6570\u5668\u548c\u9650\u5236\u4fe1\u606f\u3002Haskell\u662f\u4e00\u79cd\u51fd\u6570\u5f0f\u7f16\u7a0b\u8bed\u8a00\uff0c\u62e5\u6709\u5f3a\u5927\u7684\u7c7b\u578b\u7cfb\u7edf\u548c\u9ad8\u6027\u80fd\u7684\u5e76\u53d1\u5904\u7406\u80fd\u529b\u3002<\/p>\n

    \u4e0b\u9762\u6211\u4eec\u5c06\u4f7f\u7528Haskell\u6765\u5b9e\u73b0\u4e00\u4e2a\u7b80\u5355\u7684\u9650\u6d41\u5668\uff0c\u4ee3\u7801\u5982\u4e0b\uff08\u4f9d\u8d56hedis\u5e93\uff09\uff1a<\/p>\n

    import qualified Database.Redis as R\nimport Control.Monad.Trans (liftIO)\nimport Control.Concurrent (threadDelay)\n\n-- \u8fde\u63a5Redis\u6570\u636e\u5e93\nconnectRedis :: IO R.Connection\nconnectRedis = R.checkedConnect R.defaultConnectInfo\n\n-- \u589e\u52a0\u8ba1\u6570\u5668\u7684\u503c\nincrCounter :: R.Connection -> String -> IO Integer\nincrCounter conn key = liftIO $ R.incr conn key\n\n-- \u83b7\u53d6\u8ba1\u6570\u5668\u7684\u503c\ngetCounter :: R.Connection -> String -> IO Integer\ngetCounter conn key = liftIO $ do\n   counter <- R.get conn key\n   case counter of\n     Right (Just val) -> return $ read val\n     _ -> return 0\n\n-- \u9650\u5236\u5904\u7406\u51fd\u6570\nlimitHandler :: R.Connection -> Integer -> Integer -> IO ()\nlimitHandler conn limit interval = do\n   counter <- getCounter conn \"requestCounter\"\n   putStrLn $ \"Counter: \" ++ show counter\n   if counter >= limit\n     then putStrLn \"Request limit exceeded\"\n     else do\n       _ <- incrCounter conn \"requestCounter\"\n       -- \u6267\u884c\u8bf7\u6c42\u7684\u4ee3\u7801\n       putStrLn \"Processing request\"\n       -- \u6a21\u62df\u5ef6\u65f6\u5904\u7406\n       liftIO $ threadDelay 1000000\n       _ <- R.decr conn \"requestCounter\"\n       putStrLn \"Request processed\"\n\n-- \u4e3b\u51fd\u6570\nmain :: IO ()\nmain = do\n   conn <- connectRedis\n   -- \u521d\u59cb\u5316\u8ba1\u6570\u5668\n   _ <- R.set conn \"requestCounter\" \"0\"\n   -- \u6267\u884c\u9650\u6d41\u5904\u7406\n   limitHandler conn 3 10<\/pre>\n
    \u5728\u4ee5\u4e0a\u4ee3\u7801\u4e2d\uff0c\u9996\u5148\u901a\u8fc7connectRedis<\/code>\u51fd\u6570\u8fde\u63a5\u5230Redis\u6570\u636e\u5e93\u3002\u7136\u540e\u4f7f\u7528incrCounter<\/code>\u548cgetCounter<\/code>\u51fd\u6570\u5206\u522b\u589e\u52a0\u548c\u83b7\u53d6\u8ba1\u6570\u5668\u7684\u503c\u3002\u5728limitHandler<\/code>\u51fd\u6570\u4e2d\uff0c\u6211\u4eec\u5b9a\u4e49\u4e86\u4e00\u4e2a\u7b80\u5355\u7684\u9650\u5236\u903b\u8f91\uff0c\u5982\u679c\u8ba1\u6570\u5668\u7684\u503c\u8d85\u8fc7limit<\/code>\u6307\u5b9a\u7684\u503c\uff0c\u5c31\u62d2\u7edd\u5904\u7406\u8bf7\u6c42\uff1b\u5426\u5219\u5bf9\u8ba1\u6570\u5668\u8fdb\u884c\u589e\u52a0\u548c\u51cf\u5c11\u64cd\u4f5c\uff0c\u5e76\u6267\u884c\u8bf7\u6c42\u7684\u5904\u7406\u4ee3\u7801\u3002<\/p>\n
    \u6700\u540e\uff0c\u5728main<\/code>\u51fd\u6570\u4e2d\uff0c\u6211\u4eec\u521d\u59cb\u5316\u8ba1\u6570\u5668\uff0c\u5e76\u8c03\u7528limitHandler<\/code>\u51fd\u6570\u6765\u8fdb\u884c\u9650\u6d41\u5904\u7406\u3002<\/p>\n
    \u4e09\u3001\u603b\u7ed3
    \u672c\u6587\u4ecb\u7ecd\u4e86\u5982\u4f55\u5229\u7528Redis\u548cHaskell\u6765\u5b9e\u73b0\u4e00\u4e2a\u7b80\u5355\u7684\u9650\u6d41\u5668\uff0c\u5e76\u63d0\u4f9b\u4e86\u5177\u4f53\u7684\u4ee3\u7801\u793a\u4f8b\u3002\u901a\u8fc7\u4f7f\u7528Redis\u5b58\u50a8\u8ba1\u6570\u5668\u548cHaskell\u5b9e\u73b0\u4e1a\u52a1\u903b\u8f91\uff0c\u6211\u4eec\u53ef\u4ee5\u65b9\u4fbf\u5730\u5b9e\u73b0\u4e00\u4e2a\u9ad8\u6548\u4e14\u53ef\u9760\u7684\u9650\u6d41\u5668\u3002<\/p>\n
    \u4ee5\u4e0a\u793a\u4f8b\u4ee3\u7801\u53ea\u662f\u4e00\u4e2a\u7b80\u5355\u7684\u6f14\u793a\uff0c\u5b9e\u9645\u5e94\u7528\u4e2d\u9700\u8981\u6839\u636e\u5177\u4f53\u60c5\u51b5\u8fdb\u884c\u6269\u5c55\u548c\u4f18\u5316\u3002\u5e0c\u671b\u672c\u6587\u80fd\u5bf9\u60a8\u7406\u89e3\u5982\u4f55\u5728Redis\u548cHaskell\u4e2d\u5f00\u53d1\u9650\u6d41\u5668\u529f\u80fd\u6709\u6240\u5e2e\u52a9\u3002<\/p>\n
    \n
    \n <\/dt>\n
    \n   \u5982\u4f55\u5229\u7528Redis\u548cC++\u5b9e\u73b0\u6d88\u606f\u8ba2\u9605\u529f\u80fd\n <\/dd>\n<\/dl>\n
    \n
    \n <\/dt>\n
    \n   \u5982\u4f55\u5728MySQL\u4e2d\u4f7f\u7528PHP\u7f16\u5199\u89e6\u53d1\u5668\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-202225","post","type-post","status-publish","format-standard","hentry","category-database"],"_links":{"self":[{"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/posts\/202225","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=202225"}],"version-history":[{"count":0,"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/posts\/202225\/revisions"}],"wp:attachment":[{"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/media?parent=202225"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/categories?post=202225"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/tags?post=202225"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}