perl – 如果使用REGEX_COND则使用Bug

如果程序名是以.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';

(！还为其操作数提供标量上下文,因此!!具有相同的效果.)