"my" 隐藏同作用域下之前的声明

"my" variable ... masks earlier declaration in same scope at ... line ...

来看下面几个例子的不同之处：

普通的脚本

use strict;
use warnings;

my $x = 'this';
my $z = rand();
my $x = 'that';
print "OK\n";

此例会产生如下编译时警告：

"my" variable $x masks earlier declaration in same scope at ... line 7. )

因为这个脚本也会打印"OK"，所以这仅是一个警告。

条件语句的代码块

use strict;
use warnings;

my $z = 1;
if (1) {
    my $x = 'this';
    my $z = rand();
    my $x = 'that';
}

这次产生如下警告：

"my" variable $x masks earlier declaration in same scope at ... line 7.

在这两个例子中，我们都在同一个作用域中声明了两次$x，并且都产生了编译时警告。

在第二个例子里，我们也对$z进行了两次声明，但是没有产生任何警告。这是因为$z所在的代码块是一个独立的作用域。

函数的作用域

相同的代码，但这次是在函数里：

use strict;
use warnings;

sub f {
    my $x = 'this';
    my $z = rand();
    my $x = 'that';
}
f(1);
f(2);

这里也会产生一次针对$x的编译时警告。即使变量$z重复地在每次调用中出现也是没有问题的。变量$z不会触发警告，这是因为Perl可以两次创建同一个变量，只是你不应该这么做。不然，至少不能在同一个作用域里面这样做。

for循环的作用域

同样的代码，循环中：

use strict;
use warnings;

for (1 .. 10) {
    my $x = 'this';
    my $z = rand();
    my $x = 'that';
}

这也会针对$x产生一次警告，对于$z则不会。

在这个代码中，每次迭代Perl都会为$z变量开辟内存。

"my"有什么意义?

my $x的意思是告诉Perl，尤其是strict，你要在当前作用域使用一个私有变量$x。如果没有这个，Perl会在上层的作用域中寻找声明，如果没有找到的话会给出一个编译时错误Global symbol requires explicit package name。代码块的每一项，每次调用函数，每个循环的迭代都是一个新的作用域。

另一方面，在同一个作用域中写两次my $x仅仅表示尝试着告诉Perl两遍相同的事情。这既无必要，也通常意味着出现了某个错误。

换句话说，我们之前得到的警告是与代码的编译相关的，代码并没有运行。这关系到开发者对变量的声明，而不是perl在运行时内存的分配。

如何清空已存在的变量？

如果我们不在同一作用域写两次my $x;，那如何把变量置“空”？

首先，如果变量在某个作用域内声明（在花括号内），那么出了作用域后它（变量）会自动消失。

如果你仅仅想“清空”当前作用域的标量，把它赋值成就好了，如变量是数组或hash表，那么通过赋值成空列表就能清空：

$x = undef;
@a = ();
%h = ();

再说明一下。"my"会告诉perl你要使用一个变量。当执行到"my variable"时Perl会为变量本身以及它的内容分配空间；当执行到$x = undef; 或 @x = (); 或 undef @x;时，Perl会清空已有变量的内容。