如果程序名是以.t结尾的测试脚本,我想条件加载包.
但是,当条件是正则表达式时,我遇到了use if失败的错误.我在Perl 5.10和5.16中对此进行了测试.
以下是以.t结尾的测试脚本：
#!/usr/bin/env perl
use v5.10;
BEGIN { say "\$0 is '$0'" }
use if $0 =~ /\.t\z/,'List::Util',('pairmap');
say "List::Util is " . ( $INC{"List/Util.pm"} ? '' : 'NOT ' ) . 'included';
输出：
$./test.t $0 is './test.t' List::Util is included
但是,具有.pl扩展名的同一文件将失败：
$./test.pl $0 is './test.pl' Can't locate pairmap.pm in @INC (@INC contains: /usr/lib64/perl5/5.10.0 /usr/lib64/perl5 /usr/local/share/perl5/x86_64-linux-thread-multi /usr/local/share/perl5 /usr/local/lib64/perl5 /usr/share/perl5 /usr/local/lib64/perl5 /usr/local/share/perl5 /usr/lib64/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/lib64/perl5 /usr/share/perl5 .) at /usr/share/perl5/if.pm line 13. BEGIN Failed--compilation aborted at ./test.pl line 7.
如果我对正则表达式进行双重修改或将其更改为substr比较,我可以强制执行代码：
use if !!( $0 =~ /\.t\z/ ),('pairmap');
use if substr( $0,-2 ) eq '.t',('pairmap');
输出：
$./test.pl $0 is './test.pl' List::Util is NOT included
这是一个已知的错误？如果是这样,它修复了什么版本？
解决方法
这是您的代码中的错误.
使用MODULE后的参数列表就是列表上下文.
如果成功,则m //在列表上下文中返回捕获的字符串列表(如果正则表达式不包含捕获组,则返回1),或者失败时返回空列表.
从而：
use if "test.pl" =~ /\.t\z/,('pairmap');
相当于
use if (),('pairmap');
(匹配失败,因此返回一个空列表.)
,在列表上下文中是列表连接运算符,因此这给出：
use if 'List::Util','pairmap';
‘List :: Util’是一个真值,所以这最终会加载pairmap.pm：
use pairmap;
修复是给出匹配标量上下文：
use if scalar($0 =~ /\.t\z/),'pairmap';
(！还为其操作数提供标量上下文,因此!!具有相同的效果.)