我是perl的新手,刚遇到一个案例.
有人可以告诉为什么这会失败并出现错误
未定义的子程序& main :: color
$condition = 1;
use if ( $condition ),Term::ANSIColor;
print color('bold red');
print "hii";
print color('reset');@H_301_15@
这传递了
use if ( 1 ),Term::ANSIColor;
print color('bold red');
print "hii";
print color('reset');@H_301_15@
解决方法
这是因为use语句在编译时执行,而您的赋值在运行时执行但尚未执行
你可以通过使用BEGIN块在编译时进行分配来解决这个问题,就像这样.请注意,变量必须在块外声明,否则它将在块的本地,并在结束之前消失
my $condition;
BEGIN {
$condition = 1;
}
use if $condition,'Term::ANSIColor';
print color('bold red');
print "hii";
print color('reset');@H_301_15@
另请注意,您应始终使用strict并在每个Perl程序的顶部使用警告“all”.如果你有这些,你需要引用模块名称,如上所示