有条件地在perl中包含一个模块

Question

我是perl的新手,刚遇到一个案例.

有人可以告诉为什么这会失败,错误是Undefined subroutine&main :: color

$condition = 1;
use if ( $condition ), Term::ANSIColor;
print color('bold red');
print "hii";
print color('reset');

这传递了

use if ( 1 ), Term::ANSIColor;
print color('bold red');
print "hii";
print color('reset');

Answer 1

这是因为use语句在编译时执行,而您的赋值在运行时执行但尚未执行

您可以通过使用BEGIN块在编译时进行分配来解决这个问题,就像这样.请注意,变量必须在块外声明,否则它将在块的本地,并在结束之前消失

my $condition;
BEGIN {
    $condition = 1;
}

use if $condition, 'Term::ANSIColor';

print color('bold red');
print "hii";
print color('reset');

另请注意,您应始终拥有use strict并use warnings 'all'位于每个Perl程序的顶部.如果你有这些,你需要引用模块名称,如上所示