perl – 如果使用REGEX_COND则使用Bug

发布时间：2020-12-15 21:43:24 所属栏目：大数据来源：网络整理

导读：如果程序名是以.t结尾的测试脚本,我想条件加载包. 但是,当条件是正则表达式时,我遇到了use if失败的错误.我在Perl 5.10和5.16中对此进行了测试. 以下是以.t结尾的测试脚本： #!/usr/bin/env perluse v5.10;BEGIN { say "$0 is '$0'" }use if $0 =~ /.tz/,

如果程序名是以.t结尾的测试脚本,我想条件加载包.

但是,当条件是正则表达式时,我遇到了use if失败的错误.我在Perl 5.10和5.16中对此进行了测试.

以下是以.t结尾的测试脚本：

#!/usr/bin/env perl

use v5.10;

BEGIN { say "$0 is '$0'" }

use if $0 =~ /.tz/,'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 =~ /.tz/ ),('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" =~ /.tz/,('pairmap');

相当于

use if (),('pairmap');

(匹配失败,因此返回一个空列表.)

,在列表上下文中是列表连接运算符,因此这给出：

use if 'List::Util','pairmap';

‘List :: Util’是一个真值,所以这最终会加载pairmap.pm：

use pairmap;

修复是给出匹配标量上下文：

use if scalar($0 =~ /.tz/),'pairmap';

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!