perl中my与local的区别

$x = 9;
sub mm{
    print "$x\n";
}
sub gg_my{
    my $x = 11;
    print "call-my$x\n";
    mm;
}
sub gg_local {
    local $x = 20;
    print "call-local$x\n";
    mm;
}
gg_my;
gg_local;

print $x;

输出结果是：

call_my 11
9
call_local 20
20

9

可以看出，local函数在创建全局变量的一个局部实例后即可将它传递给任何子例程并继续进行局部初始赋值。运算符my以与local函数同样的方法创建一次局部实例，然而，由my创建的局部实例不能传递给其它子例程，传递给子例程进行运算的将是全局值而非局部引用值。

当locla所在的子例程结束后，全局变量的值又恢复为初始定义值。