use strict包含3个部分。其中之一(use strict "subs")负责禁止乱用的裸字。
这是什么意思呢?
如果没有这个限制,下面的代码也可以打印出"hello"。
my $x = hello; print "$x\n"; # hello
这样使用不符合我们平常把字符串放在引号里的习惯,但是Perl默认是允许(使用)裸字——没有引号的单词——来作为字符串。
上面的代码输出"hello"。
当然至少在脚本顶部默认添加"hello"函数之前(是这样):
sub hello { return "zzz"; } my $x = hello; print "$x\n"; # zzz
在新版本中,Perl看到了hello()函数,调用它(函数)并将结果赋值给$x。
之后,如果有人将这个函数放在文件的结尾(赋值之后),Perl在赋值的时候就看不到函数,又回到老样子了:把"hello"赋给$x。
是的,你肯定不想自己陷入麻烦。那么请在代码中使用use strict来禁止裸字hello出现在代码中,从而避免困惑。
use strict; my $x = hello; print "$x\n";
会给出如下错误:
Bareword "hello" not allowed while "strict subs" in use at script.pl line 3. Execution of script.pl aborted due to compilation errors.
裸字的正确使用
即便开启了use strict "subs"还是有些地方可以使用裸字。
首先,用户自定义的函数名就是裸字。
同样,在提取哈希表元素花括号里也使用了裸字,以及胖箭头=>的左边也可以没有引号。
use strict; use warnings; my %h = ( name => 'Foo' ); print $h{name}, "\n";
上面代码中的"name"都是裸字,它们在use strict的时候也是有效的。