=for advent_year 2009 =for advent_day 15
=for advent_title POE =for advent_author Joe Jiang 做维护的人每天都需要和 ssh 打交道，可是往往会面对 ssh 断线的苦恼。在发现了 A< http://www.harding.motd.ca/autossh|autossh> 这个很酷的 ssh 断线自动重连工具之后，一个问题随之浮现出来，那就是如何才能找到它需要的 echo 服务（如果不希望在所有机器上启动 inetd 的 echo 服务）。想找个 A<http://search.cpan.org/dist/AnyEvent|AnyEvent> 框架的实现未果，不由得想起多年前用过的一个模块 A<http://search.cpan.org/dist/POE|POE>。 POE 虽然名叫 Perl Object Environment，但是和 OO 并无显著的关系，而是一个面向 Perl Event Driven Programming 的框架。在众多的事件驱动框架中，这是一个比较成熟的选择。 用 POE 实现 echo 服务的单行 perl 程序如下： =begin pre % echo install POE can be done with cpan or your favorate module package manager % perl -MPOE=Component::Server::TCP -e 'POE::Component::Server::TCP->new(Port=>3240, ClientInput=>sub {$_[HEAP]{client}->put($_[ARG0])});POE::Kernel->run' =end pre 然后你就可以在另外的 shell 中尝试 telnet localhost 3240，验证此 echo 脚本的工作（多个 client 应该也没有问题）。POE::Component::Server::TCP 这个模块确实是为此任务而设计的最佳解决方案，它通过 use POE qw(Component::Server::TCP) 来引入主程序（也就是这个单行脚本），因此成为命令行的第一个参数 -MPOE=...。 现在问题是如何部署这个脚本到所有需要监管的 Server，当然逐个机器安装 POE 模块不会是最佳的解决方案，否则还不如逐个打开 echo 服务。所以这时候就可以考虑使用 perl packer 工具 PAR::Packer，具体说就是 pp 这个命令行工具。 在经过一番尝试以后，这个 echo_server 在我的机器上生成了： =begin pre % echo install PAR::Packer can be done with cpan or your favorate module package manager % pp -M POE -e 'require POE::Filter; require POE::Component::Server::TCP; POE::Component::Server::TCP->new(Port=>3240, ClientInput=>sub {$_[HEAP]{client}->put($_[ARG0])});POE::Kernel->run;' -o /tmp/echod % /tmp/echod & sleep 1; lsof -i :3240 COMMAND PID USER FD TYPE DEVICE SIZE NODE NAME echod 14299 joe 6u IPv4 137293 TCP *:3240 (LISTEN) =end pre 在 /tmp 目录下生成了一个 echod 服务器程序，在后台启动它之后可以用 telnet 再次验证。这时程序已经成为自包含的，不再依赖于生养它的 Perl 母环境。可以用 unzip 来了解它的结构。 另外值得一提的是，由于 POE 模块自己用了一些算法来决定它载入的子模块，所以 pp 工具无法完全猜对，所以在命令行中出现了 require 语句，用来告知需要补充加载（到可执行 zip 中）的两个模块。 =begin pre $ unzip -l /tmp/echod | head Archive: /tmp/echod Length Date Time Name -------- ---- ---- ---- 0 12-15-09 11:10 lib/ 0 12-15-09 11:10 script/ 27145 12-15-09 11:10 MANIFEST 217 12-15-09 11:10 META.yml 5438 12-15-09 11:10 lib/AutoLoader.pm 7922 12-15-09 11:10 lib/B.pm 128602 12-15-09 11:10 lib/B/Deparse.pm ... =end pre 这样的程序只要 copy 到所有需要运行的机器并且启动就可以，完成这个工作的工具是第五天介绍的 SSH::Batch。 -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
