首页 > 其他 > 详细

perl学习之裸字

时间:2015-01-21 21:54:54      阅读:265      评论:0      收藏:0      [点我收藏+]

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的时候也是有效的。

perl学习之裸字

原文:http://www.cnblogs.com/chip/p/4239893.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!