{"id":202221,"date":"2025-05-10T11:25:43","date_gmt":"2025-05-10T03:25:43","guid":{"rendered":"https:\/\/server.hk\/cnblog\/202221\/"},"modified":"2025-05-10T11:25:43","modified_gmt":"2025-05-10T03:25:43","slug":"%e5%a6%82%e4%bd%95%e5%88%a9%e7%94%a8redis%e5%92%8cperl-6%e5%bc%80%e5%8f%91%e5%88%86%e5%b8%83%e5%bc%8f%e6%96%87%e4%bb%b6%e5%90%8c%e6%ad%a5%e5%8a%9f%e8%83%bd","status":"publish","type":"post","link":"https:\/\/server.hk\/cnblog\/202221\/","title":{"rendered":"\u5982\u4f55\u5229\u7528Redis\u548cPerl 6\u5f00\u53d1\u5206\u5e03\u5f0f\u6587\u4ef6\u540c\u6b65\u529f\u80fd"},"content":{"rendered":"

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

\u5982\u4f55\u5229\u7528Redis\u548cPerl 6\u5f00\u53d1\u5206\u5e03\u5f0f\u6587\u4ef6\u540c\u6b65\u529f\u80fd<\/h1>\n

\u4ece\u73b0\u5728\u5f00\u59cb\uff0c\u52aa\u529b\u5b66\u4e60\u5427\uff01\u672c\u6587\u300a\u5982\u4f55\u5229\u7528Redis\u548cPerl 6\u5f00\u53d1\u5206\u5e03\u5f0f\u6587\u4ef6\u540c\u6b65\u529f\u80fd\u300b<\/span>\u4e3b\u8981\u8bb2\u89e3\u4e86<\/span>\u7b49\u7b49\u76f8\u5173\u77e5\u8bc6\u70b9\uff0c\u6211\u4f1a\u5728golang\u5b66\u4e60\u7f51\u4e2d\u6301\u7eed\u66f4\u65b0\u76f8\u5173\u7684\u7cfb\u5217\u6587\u7ae0\uff0c\u6b22\u8fce\u5927\u5bb6\u5173\u6ce8\u5e76\u79ef\u6781\u7559\u8a00\u5efa\u8bae\u3002\u4e0b\u9762\u5c31\u5148\u4e00\u8d77\u6765\u770b\u4e00\u4e0b\u672c\u7bc7\u6b63\u6587\u5185\u5bb9\u5427\uff0c\u5e0c\u671b\u80fd\u5e2e\u5230\u4f60\uff01<\/p>\n

\u5982\u4f55\u5229\u7528Redis\u548cPerl 6\u5f00\u53d1\u5206\u5e03\u5f0f\u6587\u4ef6\u540c\u6b65\u529f\u80fd<\/p>\n

\u5f15\u8a00\uff1a
\u5206\u5e03\u5f0f\u7cfb\u7edf\u7684\u8bbe\u8ba1\u4e0e\u5f00\u53d1\u662f\u5f53\u524d\u4e92\u8054\u7f51\u6280\u672f\u9886\u57df\u7684\u70ed\u95e8\u8bdd\u9898\uff0c\u800c\u6587\u4ef6\u540c\u6b65\u4f5c\u4e3a\u4e00\u9879\u91cd\u8981\u7684\u5206\u5e03\u5f0f\u5e94\u7528\u4e4b\u4e00\uff0c\u4e5f\u8d8a\u6765\u8d8a\u53d7\u5230\u5f00\u53d1\u8005\u7684\u5173\u6ce8\u3002\u672c\u6587\u5c06\u4ecb\u7ecd\u5982\u4f55\u5229\u7528Redis\u548cPerl 6\u5f00\u53d1\u4e00\u4e2a\u5206\u5e03\u5f0f\u6587\u4ef6\u540c\u6b65\u529f\u80fd\uff0c\u5e76\u63d0\u4f9b\u5177\u4f53\u7684\u4ee3\u7801\u793a\u4f8b\u3002<\/p>\n

\u4e00\u3001Redis\u7b80\u4ecb
Redis\u662f\u4e00\u6b3e\u5f00\u6e90\u7684\u5185\u5b58\u7f13\u5b58\u6570\u636e\u5e93\uff0c\u662f\u76ee\u524d\u6d41\u884c\u7684\u7528\u4e8e\u6784\u5efa\u5206\u5e03\u5f0f\u5e94\u7528\u7684\u5173\u952e\u6280\u672f\u4e4b\u4e00\u3002\u5b83\u5177\u6709\u9ad8\u6027\u80fd\u3001\u9ad8\u53ef\u7528\u6027\u7b49\u7279\u70b9\uff0c\u5e76\u4e14\u652f\u6301\u591a\u79cd\u6570\u636e\u7ed3\u6784\uff0c\u5982\u5b57\u7b26\u4e32\u3001\u54c8\u5e0c\u8868\u3001\u5217\u8868\u3001\u96c6\u5408\u7b49\u3002\u5728\u5206\u5e03\u5f0f\u6587\u4ef6\u540c\u6b65\u529f\u80fd\u4e2d\uff0c\u6211\u4eec\u53ef\u4ee5\u5229\u7528Redis\u7684\u53d1\u5e03-\u8ba2\u9605\u6a21\u5f0f\u5b9e\u73b0\u6587\u4ef6\u53d8\u66f4\u6d88\u606f\u7684\u4f20\u9012\u548c\u540c\u6b65\u3002<\/p>\n

\u4e8c\u3001Perl 6\u7b80\u4ecb
Perl 6\u662fPerl\u8bed\u8a00\u7684\u4e0b\u4e00\u4ee3\u7248\u672c\uff0c\u5b83\u662f\u4e00\u79cd\u9ad8\u7ea7\u3001\u52a8\u6001\u3001\u89e3\u91ca\u6027\u7684\u811a\u672c\u8bed\u8a00\uff0c\u88ab\u5e7f\u6cdb\u5e94\u7528\u4e8e\u6587\u672c\u5904\u7406\u3001\u7f51\u7edc\u7f16\u7a0b\u3001\u7cfb\u7edf\u7ba1\u7406\u548cWeb\u5f00\u53d1\u7b49\u9886\u57df\u3002Perl 6\u5177\u6709\u5f3a\u5927\u7684\u5b57\u7b26\u4e32\u5904\u7406\u80fd\u529b\u548c\u6b63\u5219\u8868\u8fbe\u5f0f\u652f\u6301\uff0c\u975e\u5e38\u9002\u5408\u7528\u6765\u5904\u7406\u6587\u4ef6\u540c\u6b65\u4efb\u52a1\u3002<\/p>\n

\u4e09\u3001\u5206\u5e03\u5f0f\u6587\u4ef6\u540c\u6b65\u65b9\u6848\u8bbe\u8ba1<\/p>\n

    \n
  1. \u6587\u4ef6\u76d1\u542c\u4e0e\u53d8\u66f4\u68c0\u6d4b
    \u5229\u7528Perl 6\u7684IO\u6a21\u5757\uff0c\u6211\u4eec\u53ef\u4ee5\u76d1\u542c\u6587\u4ef6\u7cfb\u7edf\u7684\u6587\u4ef6\u53d8\u66f4\u4e8b\u4ef6\uff0c\u5e76\u901a\u8fc7Redis\u7684\u53d1\u5e03-\u8ba2\u9605\u6a21\u5f0f\u5c06\u53d8\u66f4\u6d88\u606f\u53d1\u9001\u7ed9\u5176\u4ed6\u8282\u70b9\u3002\u5b9e\u4f8b\u4ee3\u7801\u5982\u4e0b\uff1a<\/li>\n<\/ol>\n
    use Redis;\nuse File::ChangeNotify;\n\nmy $redis = Redis.new;\nmy $watcher = File::ChangeNotify.new;\n$watcher.watch('\/path\/to\/watch');\n\nreact {\n    whenever $watcher {\n        my $file = $_.path.absolute;\n        my $event = $_.event;\n        my $message = \"$event|$file\";\n        $redis.publish('file_change_channel', $message);\n    }\n}<\/pre>\n
      \n
    1. \u6587\u4ef6\u540c\u6b65
      \u6587\u4ef6\u540c\u6b65\u7684\u76ee\u6807\u662f\u5c06\u53d8\u66f4\u540e\u7684\u6587\u4ef6\u4f20\u9012\u7ed9\u5176\u4ed6\u8282\u70b9\uff0c\u5e76\u5b8c\u6210\u5bf9\u5e94\u7684\u64cd\u4f5c\u3002\u53ef\u4ee5\u4f7f\u7528Redis\u7684\u8ba2\u9605\u6a21\u5f0f\u63a5\u6536\u5230\u53d8\u66f4\u6d88\u606f\u540e\uff0c\u901a\u8fc7Perl 6\u7684Socket\u6a21\u5757\u5c06\u6587\u4ef6\u4f20\u9012\u7ed9\u5176\u4ed6\u8282\u70b9\u3002\u5b9e\u4f8b\u4ee3\u7801\u5982\u4e0b\uff1a<\/li>\n<\/ol>\n
      use Redis;\nuse IO::Socket::INET;\n\nmy $redis = Redis.new;\nmy $socket = IO::Socket::INET.new(\n    Listen => 5,\n    LocalPort => 9999,\n    ReuseAddr => True\n);\n\nreact {\n    start {\n        $redis.subscribe('file_change_channel');\n    }\n\n    whenever $redis {\n        my @message = $redis.get_message;\n\n        if @message[0] eq 'message' {\n            my $content = @message[2];\n            # \u89e3\u6790\u6d88\u606f\uff0c\u83b7\u53d6\u6587\u4ef6\u8def\u5f84\u548c\u64cd\u4f5c\u7c7b\u578b\n            my ($event, $file) = $content.split('|');\n            \n            # \u6839\u636e\u64cd\u4f5c\u7c7b\u578b\u6267\u884c\u76f8\u5e94\u7684\u64cd\u4f5c\n            if $event eq 'create' {\n                # \u5c06\u6587\u4ef6\u53d1\u9001\u7ed9\u5176\u4ed6\u8282\u70b9\n                my $destination = 'other.node.ip';\n                my $destination_port = 9999;\n                my $file_content = slurp $file;\n                my $client_socket = IO::Socket::INET.new(\n                    PeerHost => $destination,\n                    PeerPort => $destination_port,\n                    Proto => 'tcp'\n                );\n                $client_socket.print($file_content);\n                $client_socket.close;\n            }\n            elsif $event eq 'delete' {\n                # \u5220\u9664\u5176\u4ed6\u8282\u70b9\u4e0a\u5bf9\u5e94\u7684\u6587\u4ef6\n                # ...\n            }\n        }\n    }\n}<\/pre>\n
      \u56db\u3001\u603b\u7ed3
      \u672c\u6587\u4ecb\u7ecd\u4e86\u5982\u4f55\u5229\u7528Redis\u548cPerl 6\u5f00\u53d1\u4e00\u4e2a\u5206\u5e03\u5f0f\u6587\u4ef6\u540c\u6b65\u529f\u80fd\uff0c\u5e76\u63d0\u4f9b\u4e86\u5177\u4f53\u7684\u4ee3\u7801\u793a\u4f8b\u3002\u901a\u8fc7Redis\u7684\u53d1\u5e03-\u8ba2\u9605\u6a21\u5f0f\u548cPerl 6\u7684\u6587\u4ef6\u5904\u7406\u80fd\u529b\uff0c\u6211\u4eec\u53ef\u4ee5\u5b9e\u73b0\u6587\u4ef6\u53d8\u66f4\u7684\u76d1\u542c\u3001\u6d88\u606f\u7684\u4f20\u9012\u548c\u6587\u4ef6\u7684\u540c\u6b65\u3002\u8fd9\u6837\u7684\u5206\u5e03\u5f0f\u6587\u4ef6\u540c\u6b65\u65b9\u6848\uff0c\u53ef\u4ee5\u5e7f\u6cdb\u5e94\u7528\u4e8e\u4e91\u5b58\u50a8\u3001\u591a\u8282\u70b9\u6587\u4ef6\u5907\u4efd\u7b49\u9886\u57df\uff0c\u65b9\u4fbf\u5feb\u6377\u5730\u8fdb\u884c\u6587\u4ef6\u540c\u6b65\u548c\u5171\u4eab\u3002<\/p>\n
      \uff08\u6ce8\uff1a\u4ee5\u4e0a\u4ee3\u7801\u4ec5\u4e3a\u793a\u4f8b\uff0c\u5177\u4f53\u5b9e\u73b0\u9700\u8981\u6839\u636e\u5b9e\u9645\u73af\u5883\u548c\u9700\u6c42\u8fdb\u884c\u8c03\u6574\u3002\uff09<\/p>\n
      \n
      \n <\/dt>\n
      \n   \u5982\u4f55\u4f7f\u7528Redis\u548cPHP\u5f00\u53d1\u5206\u5e03\u5f0f\u641c\u7d22\u529f\u80fd\n <\/dd>\n<\/dl>\n
      \n
      \n <\/dt>\n
      \n   \u5982\u4f55\u4f7f\u7528MySQL\u548cRuby on Rails\u5f00\u53d1\u4e00\u4e2a\u7b80\u5355\u7684\u5728\u7ebf\u6295\u7968\u7cfb\u7edf\n <\/dd>\n<\/dl>\n","protected":false},"excerpt":{"rendered":"
      \u5982\u4f55\u5229\u7528Redis\u548cPerl 6...<\/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-202221","post","type-post","status-publish","format-standard","hentry","category-database"],"_links":{"self":[{"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/posts\/202221","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=202221"}],"version-history":[{"count":0,"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/posts\/202221\/revisions"}],"wp:attachment":[{"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/media?parent=202221"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/categories?post=202221"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/tags?post=202221"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}