perl – -CONSTANT的不明确使用解析为 – &CONSTANT()

我正试图在我的Perl脚本中将魔术数字声明为常量,如perlsub中所述.但是,我收到警告：

$cat foo.perl
use warnings ; use strict ;
sub CONSTANT() { 5 }
print 7-CONSTANT,"\n" ;
$perl foo.perl
Ambiguous use of -CONSTANT resolved as -&CONSTANT() at foo.perl line 3.
2
$

如果我在减号和常量之间插入一个空格,警告就会消失.它使表达式比我想要的更通风,但它有效.

不过我很好奇：它警告我的含糊之处是什么？我不知道可以解析任何其他方式.

(来自Debian的Perl 5.10.1“挤压”).

解决方法

首先,一些背景.让我们看一下以下内容：

$_ = -foo;

-foo是一个字符串文字[1].

$perl -Mstrict -wE'say -foo;'
-foo

除非声明了名为foo的子命令.

$perl -Mstrict -wE'sub foo { 123 } say -foo;'
Ambiguous use of -foo resolved as -&foo() at -e line 1.
-123

现在回到你的问题.警告是错误的. TERM(7)不能跟随另一个TERM,因此 – 不能是字符串文字或一元减号运算符的开头.它必须是减法运算符,因此没有歧义.

该警告仍在5.20.0 [2]中发布.我已经提交了bug report.

>看马！没有报价！

system(grep => ( -R,$pat,$qfn ));

>好吧,5.20.0还没有出来,但我们正处于冻结代码冻结状态.这不会在5.20.0中修复.