《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本意是写成$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[i];

}    

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

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";

}