代码之家 › 专栏 › 技术社区 › petersohn

如何在Perl中有条件地导入包?

module import perl

petersohn · 技术社区 · 14 年前

我有一个Perl脚本,它使用了一个不太常见的模块,我希望它可以在没有安装该模块的情况下使用,尽管功能有限。有可能吗?

我想到了这样的事情:

my $has_foobar;
if (has_module "foobar") {
    << use it >>
    $has_foobar = true;
} else {
    print STDERR "Warning: foobar not found. Not using it.\n";
    $has_foobar = false;
}

4 回复 | 直到 7 年前

Eugene Yarmash 14 年前

你可以使用 require 在运行时加载模块,以及 eval 要捕获可能的异常:

eval {
    require Foobar;
    Foobar->import();
};  
if ($@) {
    warn "Error including Foobar: $@";
}

另请参见Perldoc use .

Sinan Ünür 14 年前

考虑一下 if 语用学

use if CONDITION, MODULE => ARGUMENTS;

daxim e.dan 7 年前

我建议雇用 Module::Load 以便 intention is made clear .

编辑:忽略注释, Module::Load is in core .

mfollett 14 年前

另一种方法是使用class::mop的load_类方法。你可以像这样使用它:

class::mop::load_class(“foobar”,$some_选项)

它抛出了一个异常,所以你必须抓住它。更多信息 here .

此外,虽然这不一定适用于每个系统类,但MOP对于拥有驼鹿非常有用,而且随着驼鹿越来越普遍,它很可能出现在您的系统中。

推荐文章

Manny · 如何比较Perl中的字符串?

2 年前

BioRod · 我不能用Perl打印键和值

2 年前

user17227456 · Perl CLI代码无法追加字符串行

2 年前

LearnToBeBetter · 读取文件,搜索字符串,打印字符串

2 年前

KJ7LNW · 一些波斯语文本的宽字符印刷,但其他文本则没有

2 年前

Amit M · 如何用FFI:Platypus替换cpan Perl实用程序P5NCI

2 年前

con · 如何搜索大型数据结构并返回一系列给出特定值的键/数组?

2 年前

rohithguptha potti · 在LINUX操作系统上执行一些Perl命令时,这些模块可以在LINUX中使用,也可以不在LINUX中使用

2 年前

Tonys AnsonÄ« Misirgis · 当“网站”选项卡关闭时,服务器如何知道关闭websocket的连接

6 年前

Pranay Nanda · 使用regex解析许可证文件

6 年前