{"id":202218,"date":"2025-05-10T12:04:39","date_gmt":"2025-05-10T04:04:39","guid":{"rendered":"https:\/\/server.hk\/cnblog\/202218\/"},"modified":"2025-05-10T12:04:39","modified_gmt":"2025-05-10T04:04:39","slug":"%e5%a6%82%e4%bd%95%e5%88%a9%e7%94%a8redis%e5%92%8chaskell%e5%ae%9e%e7%8e%b0%e8%b5%84%e6%ba%90%e9%99%90%e5%88%b6%e5%8a%9f%e8%83%bd","status":"publish","type":"post","link":"https:\/\/server.hk\/cnblog\/202218\/","title":{"rendered":"\u5982\u4f55\u5229\u7528Redis\u548cHaskell\u5b9e\u73b0\u8d44\u6e90\u9650\u5236\u529f\u80fd"},"content":{"rendered":"

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

\u5982\u4f55\u5229\u7528Redis\u548cHaskell\u5b9e\u73b0\u8d44\u6e90\u9650\u5236\u529f\u80fd<\/h1>\n

\u600e\u4e48\u5165\u95e8\u6570\u636e\u5e93\u7f16\u7a0b\uff1f\u9700\u8981\u5b66\u4e60\u54ea\u4e9b\u77e5\u8bc6\u70b9\uff1f\u8fd9\u662f\u65b0\u624b\u4eec\u521a\u63a5\u89e6\u7f16\u7a0b\u65f6\u5e38\u89c1\u7684\u95ee\u9898\uff1b\u4e0b\u9762golang\u5b66\u4e60\u7f51\u5c31\u6765\u7ed9\u5927\u5bb6\u6574\u7406\u5206\u4eab\u4e00\u4e9b\u77e5\u8bc6\u70b9\uff0c\u5e0c\u671b\u80fd\u591f\u7ed9\u521d\u5b66\u8005\u4e00\u4e9b\u5e2e\u52a9\u3002\u672c\u7bc7\u6587\u7ae0\u5c31\u6765\u4ecb\u7ecd\u300a\u5982\u4f55\u5229\u7528Redis\u548cHaskell\u5b9e\u73b0\u8d44\u6e90\u9650\u5236\u529f\u80fd\u300b\uff0c\u6d89\u53ca\u5230\uff0c\u6709\u9700\u8981\u7684\u53ef\u4ee5\u6536\u85cf\u4e00\u4e0b<\/p>\n

\u5982\u4f55\u5229\u7528Redis\u548cHaskell\u5b9e\u73b0\u8d44\u6e90\u9650\u5236\u529f\u80fd<\/p>\n

\u5728\u73b0\u4ee3\u7684\u7f51\u7edc\u5e94\u7528\u4e2d\uff0c\u5bf9\u4e8e\u8d44\u6e90\u7684\u7ba1\u7406\u548c\u9650\u5236\u662f\u975e\u5e38\u91cd\u8981\u7684\u3002\u8d44\u6e90\u9650\u5236\u53ef\u4ee5\u786e\u4fdd\u670d\u52a1\u5668\u7684\u7a33\u5b9a\u6027\uff0c\u9632\u6b62\u6ee5\u7528\u548c\u6076\u610f\u884c\u4e3a\u3002\u672c\u6587\u5c06\u4ecb\u7ecd\u5982\u4f55\u5229\u7528Redis\u548cHaskell\u5b9e\u73b0\u8d44\u6e90\u9650\u5236\u529f\u80fd\uff0c\u5e76\u63d0\u4f9b\u5177\u4f53\u7684\u4ee3\u7801\u793a\u4f8b\u3002<\/p>\n

    \n
  1. Redis\u7b80\u4ecb<\/li>\n<\/ol>\n

    Redis\u662f\u4e00\u4e2a\u9ad8\u6027\u80fd\u7684\u952e\u503c\u5b58\u50a8\u6570\u636e\u5e93\uff0c\u652f\u6301\u591a\u79cd\u6570\u636e\u7ed3\u6784\u3002\u5b83\u63d0\u4f9b\u4e86\u4e30\u5bcc\u7684\u529f\u80fd\uff0c\u5305\u62ec\u5b58\u50a8\u3001\u8ba1\u6570\u3001\u8fc7\u671f\u7b49\u7b49\u3002\u5728\u8d44\u6e90\u9650\u5236\u529f\u80fd\u4e2d\uff0c\u6211\u4eec\u5c06\u4f7f\u7528Redis\u7684\u8ba1\u6570\u548c\u8fc7\u671f\u529f\u80fd\u3002<\/p>\n

      \n
    1. Haskell\u7b80\u4ecb<\/li>\n<\/ol>\n

      Haskell\u662f\u4e00\u79cd\u7eaf\u51fd\u6570\u5f0f\u7f16\u7a0b\u8bed\u8a00\uff0c\u5177\u6709\u5f3a\u5927\u7684\u7c7b\u578b\u7cfb\u7edf\u548c\u4e30\u5bcc\u7684\u51fd\u6570\u7ec4\u5408\u80fd\u529b\u3002\u6211\u4eec\u5c06\u4f7f\u7528Haskell\u7f16\u5199\u670d\u52a1\u5668\u7aef\u7684\u903b\u8f91\uff0c\u4e0eRedis\u8fdb\u884c\u4ea4\u4e92\u3002<\/p>\n

        \n
      1. \u8d44\u6e90\u9650\u5236\u529f\u80fd\u7684\u5b9e\u73b0<\/li>\n<\/ol>\n

        \u8d44\u6e90\u9650\u5236\u529f\u80fd\u7684\u5b9e\u73b0\u6709\u5f88\u591a\u79cd\u65b9\u5f0f\uff0c\u4e0b\u9762\u6211\u4eec\u5c06\u4ecb\u7ecd\u4e00\u79cd\u57fa\u4e8e\u8ba1\u6570\u5668\u548c\u65f6\u95f4\u7a97\u53e3\u7684\u65b9\u6cd5\u3002<\/p>\n

        3.1 \u8ba1\u6570\u5668<\/p>\n

        \u8ba1\u6570\u5668\u662f\u5b9e\u73b0\u8d44\u6e90\u9650\u5236\u7684\u57fa\u672c\u5de5\u5177\u3002\u6211\u4eec\u53ef\u4ee5\u4f7f\u7528Redis\u7684INCR\u547d\u4ee4\u5bf9\u4e00\u4e2a\u952e\u8fdb\u884c\u8ba1\u6570\u5668\u64cd\u4f5c\u3002\u4e0b\u9762\u662f\u4e00\u4e2a\u793a\u4f8b\u4ee3\u7801\uff1a<\/p>\n

        import Database.Redis\n\nincrementCounter :: Connection -> ByteString -> IO Integer\nincrementCounter conn key = runRedis conn $ do\n    res <- incr key\n    case res of\n        Right n -> return n\n        Left _ -> return 0<\/pre>\n
        \u8fd9\u6bb5\u4ee3\u7801\u9996\u5148\u8fde\u63a5\u5230Redis\u670d\u52a1\u5668\uff0c\u7136\u540e\u4f7f\u7528incr\u547d\u4ee4\u5bf9\u6307\u5b9a\u7684\u952e\u8fdb\u884c\u9012\u589e\u64cd\u4f5c\u3002\u5982\u679c\u952e\u4e0d\u5b58\u5728\uff0c\u4f1a\u81ea\u52a8\u521b\u5efa\u5e76\u5c06\u503c\u521d\u59cb\u5316\u4e3a0\u3002<\/p>\n
        3.2 \u65f6\u95f4\u7a97\u53e3<\/p>\n
        \u65f6\u95f4\u7a97\u53e3\u662f\u9650\u5236\u8d44\u6e90\u4f7f\u7528\u7684\u65f6\u95f4\u8303\u56f4\u3002\u4f8b\u5982\uff0c\u6211\u4eec\u53ef\u4ee5\u5c06\u65f6\u95f4\u7a97\u53e3\u8bbe\u7f6e\u4e3a1\u5206\u949f\uff0c\u8868\u793a\u4e00\u4e2a\u7528\u6237\u57281\u5206\u949f\u5185\u53ea\u80fd\u8bbf\u95ee\u7279\u5b9a\u7684\u8d44\u6e90\u4e00\u5b9a\u6570\u91cf\u7684\u6b21\u6570\u3002\u4e0b\u9762\u662f\u4e00\u4e2a\u793a\u4f8b\u4ee3\u7801\uff1a<\/p>\n
        import Data.Time.Clock.POSIX\nimport Database.Redis\n\nwithinTimeWindow :: Connection -> ByteString -> Integer -> Integer -> IO Bool\nwithinTimeWindow conn key limit window = do\n    timestamp <- round . (* 1000) <$> getPOSIXTime\n    runRedis conn $ do\n        res <- zadd key [(fromIntegral timestamp, \"\")] -- Add a timestamp to the sorted set\n        case res of\n            Right _ -> do\n                _ <- zremrangebyscore key 0 (fromIntegral (timestamp - window * 1000)) -- Remove old timestamps\n                x <- zcount key (fromIntegral timestamp) (fromIntegral (timestamp + 1)) -- Count the number of timestamps within the window\n                return (x <= limit)\n            Left _ -> return False<\/pre>\n
        \u8fd9\u6bb5\u4ee3\u7801\u9996\u5148\u83b7\u53d6\u5f53\u524d\u7684\u65f6\u95f4\u6233\uff0c\u5e76\u5c06\u5176\u8f6c\u6362\u4e3a\u6beb\u79d2\u7ea7\u522b\u3002\u7136\u540e\u4f7f\u7528zadd\u547d\u4ee4\u5c06\u65f6\u95f4\u6233\u6dfb\u52a0\u5230\u6709\u5e8f\u96c6\u5408\u4e2d\uff0c\u4f7f\u7528zremrangebyscore\u547d\u4ee4\u5220\u9664\u65e7\u7684\u65f6\u95f4\u6233\uff0c\u4f7f\u7528zcount\u547d\u4ee4\u8ba1\u7b97\u7a97\u53e3\u5185\u7684\u65f6\u95f4\u6233\u6570\u91cf\u3002\u6700\u540e\u68c0\u67e5\u65f6\u95f4\u6233\u6570\u91cf\u662f\u5426\u5c0f\u4e8e\u7b49\u4e8e\u9650\u5236\u6570\u91cf\u3002<\/p>\n
          \n
        1. \u793a\u4f8b\u5e94\u7528<\/li>\n<\/ol>\n
          \u73b0\u5728\u6211\u4eec\u53ef\u4ee5\u4f7f\u7528\u4e0a\u8ff0\u4e24\u4e2a\u51fd\u6570\u6765\u5b9e\u73b0\u4e00\u4e2a\u7b80\u5355\u7684\u8d44\u6e90\u9650\u5236\u5e94\u7528\u3002<\/p>\n
          \u5047\u8bbe\u6211\u4eec\u8981\u9650\u5236\u67d0\u4e2a\u7528\u6237\u57281\u5206\u949f\u5185\u53ea\u80fd\u53d1\u9001100\u6761\u6d88\u606f\u3002\u53ef\u4ee5\u4f7f\u7528\u5982\u4e0b\u4ee3\u7801\uff1a<\/p>\n
          import Control.Monad\nimport Data.ByteString.Char8 (pack)\nimport Database.Redis\n\nmain :: IO ()\nmain = do\n    conn <- connect defaultConnectInfo\n    replicateM_ 200 $ do\n        count <- incrementCounter conn \"user1\"\n        within <- withinTimeWindow conn \"user1\" 100 60\n        if count <= 100 && within\n            then putStrLn \"Allow\"\n            else putStrLn \"Reject\"<\/pre>\n
          \u8fd9\u6bb5\u4ee3\u7801\u9996\u5148\u8fde\u63a5\u5230Redis\u670d\u52a1\u5668\uff0c\u7136\u540e\u4f7f\u7528replicateM_\u51fd\u6570\u6a21\u62df\u7528\u6237\u53d1\u9001200\u6761\u6d88\u606f\u3002\u6bcf\u6b21\u53d1\u9001\u6d88\u606f\u65f6\uff0c\u9996\u5148\u9012\u589e\u8ba1\u6570\u5668\uff0c\u7136\u540e\u5224\u65ad\u662f\u5426\u5728\u65f6\u95f4\u7a97\u53e3\u5185\u5e76\u4e14\u672a\u8d85\u8fc7\u9650\u5236\u6570\u91cf\uff0c\u5982\u679c\u662f\uff0c\u5219\u5141\u8bb8\u53d1\u9001\u6d88\u606f\uff0c\u5426\u5219\u62d2\u7edd\u53d1\u9001\u3002<\/p>\n
            \n
          1. \u603b\u7ed3<\/li>\n<\/ol>\n
            \u672c\u6587\u4ecb\u7ecd\u4e86\u5982\u4f55\u5229\u7528Redis\u548cHaskell\u5b9e\u73b0\u8d44\u6e90\u9650\u5236\u529f\u80fd\u3002\u901a\u8fc7\u8ba1\u6570\u5668\u548c\u65f6\u95f4\u7a97\u53e3\u7684\u65b9\u6cd5\uff0c\u53ef\u4ee5\u6709\u6548\u63a7\u5236\u8d44\u6e90\u7684\u4f7f\u7528\uff0c\u4fdd\u8bc1\u670d\u52a1\u5668\u7684\u7a33\u5b9a\u6027\u3002\u5728\u5b9e\u9645\u5e94\u7528\u4e2d\uff0c\u53ef\u4ee5\u6839\u636e\u5177\u4f53\u9700\u6c42\u8fdb\u884c\u7075\u6d3b\u8c03\u6574\u548c\u6269\u5c55\u3002<\/p>\n
            \n
            \n <\/dt>\n
            \n   \u5982\u4f55\u5229\u7528Redis\u548cGroovy\u5f00\u53d1\u5206\u5e03\u5f0f\u4f1a\u8bdd\u5b58\u50a8\u529f\u80fd\n <\/dd>\n<\/dl>\n
            \n
            \n <\/dt>\n
            \n   \u5982\u4f55\u4f7f\u7528MySQL\u548cJavaScript\u5b9e\u73b0\u4e00\u4e2a\u7b80\u5355\u7684\u5373\u65f6\u804a\u5929\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-202218","post","type-post","status-publish","format-standard","hentry","category-database"],"_links":{"self":[{"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/posts\/202218","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=202218"}],"version-history":[{"count":0,"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/posts\/202218\/revisions"}],"wp:attachment":[{"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/media?parent=202218"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/categories?post=202218"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/tags?post=202218"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}