《PERL高效编程》学习笔记(1)【关于裸字处理】

网中网

• 裸字处理
  

　　PERL的诗歌模式会将不产生歧义的标识符当做字符串对待。



use 5.010;
use strict 'vars';
my @array = qw(a b c d e f);
for(my $i = 0; $i < 10; $i++)
{
say $array;    #这里i本意是写成$i
}
　　结果：

　　只需启用约束，即可防止此类错误。



use 5.010;
use strict 'vars';
use strict 'subs';    #启用约束
my @array = qw(a b c d e f);
for(my $i = 0; $i < 10; $i++)
{
say $array;
}   

　　但裸字在关闭诗歌模式下仍然适用于散列。



use 5.010;
use strict 'vars';
use strict 'subs';
my %h = (
first => 'Hello',
last => 'World');
say $h{first};
say $h{last};
　　结果：

　　
　　附：对PERL函数做一次备忘



use 5.010;
say hi("world");
say $main::a;
sub hi{
say @_;
$a = shift;
return "hi, $a";
}