发布时间：2013-11-28 15:09:40

前段时间看到报道说，puppet 的作者本来是用 perl 完成的原型设计，后来改用的 ruby。所以我想，目前这个 puppet 的 DSL 设计，用 perl 来完成的话，应该如何做。这里碰到一个问题，就是 puppet 中 resource_type 的 title 后面有个冒号，这事儿比较麻烦，不过这时候我突然想到了 Perl6 ，稍微翻.........【阅读全文】

发布时间：2013-11-28 14:58:33

两个时间点字符串，像这样：2013-06-21，怎么计算相距多少天呢？有两种办法。DateTime 模块use DateTime;use List::MoreUtils qw(zip);use Data::Dumper;print Dumper(    DateTime->new( zip @{ [qw/year month day/] },        @{ [ split /-/, '2013-06-21' ] } )->subtract_.........【阅读全文】

发布时间：2013-11-28 14:57:24

在运维工作中我们经常需要检测用户访问是否正常，一般来说，直接通过 DNS 客户端获取 A 记录就可以满足需要。不过如果我们可以获得具体连接的 IP 地址，那么就可以缩小问题的判断范围，因为 DNS 的 A 记录通常是有多个的。AE::HTTP 模块可以返回 sock 给用户进行具体操作，我们可以通过 sock 接口很简单的获得对端的 IP .........【阅读全文】

发布时间：2013-11-26 09:51:02

本文纯属练习Template模块使用，是否可以运用到生产，是否有必要运用到生产，都是未知数…… 包括如下文件：[raocl@localhost tt2-test]$ tree.|-- config-cdcgame.net.yml|-- config-china.com.yml|-- config.tt|-- hostconfig.yml|-- squid.layout.tt`-- tt4squid.pl0 directories, 6 files其中tt4squi.........【阅读全文】

发布时间：2013-11-26 09:46:02

当你需要给一个集群的某项服务做简单的排他性管理的时候，强力推荐Veripool公司的一系列模块：IPC::Locker、Schedule::Load。今天先说IPC::Locker模块。部署很简单，直接在集群所有节点上运行cpanm IPC::Locker即可。该模块依赖几个都是perl的核心模块比如IO::Socket::INET、IO::Poll和POSIX。所以理论上你也可以把代.........【阅读全文】