13、Perl编程实用技巧与模块应用

Perl编程实用技巧与模块应用

1. 创建常量的Readonly模块

Perl的CPAN模块Readonly提供了一种简单的方式来创建常量，这些常量可以是标量、列表或哈希结构。示例代码如下：

#!perl
use Readonly;
Readonly $PI => 3.14159;
Readonly @names => ("Smith", "Jones", "Rothwell");
Readonly %cities => ("San Diego" => "CA", "Boston" => "MA");

Readonly创建的常量没有 use constant 创建常量的缺点，但它有一个性能方面的缺点。根据文档描述， Readonly.pm 会带来性能损失，速度较慢。可以运行随Readonly附带的 benchmark.pl 脚本来测试速度。在测试系统中， use constant 、类型全局常量和常规读写的Perl变量速度大致相同，而 Readonly.pm 常量的速度约为它们的1/20。

不过，有一个配套模块 Readonly::XS 可以缓解这个问题。如果系统中安装了该模块， Readonly.pm 会使用它来使只读标量的速度更快。使用 Readonly::XS 后，Readonly标量的速度与其他类型的变量相同，但