perl 仅在可用时可选地加载模块

Question

我的 perl 脚本中有一些很少使用的代码需要默认未安装的模块(但它是标准的 cpan 部署模块)。

是否有一种方法可以选择性地加载模块(如果可用)并禁用某些功能(如果不可用)以使脚本在大多数默认 perl 发行版上运行(如果不需要此特殊功能)？

Answer 1

您可以在需要此模块时使用 try-catch block (在 Perl 中称为“eval”)。

例如:

my $zlib_available=0;
eval
{
    require Compress::Zlib;
    $zlib_available=1;
};

及以后:

if ($zlib_available) {
    $page = Compress::Zlib::memGzip($page);
}