$x = 19;
sub mm{
print "$x\n";
}
sub gg_my{
my $x=11;print"call−my x\n";
mm;
}
sub gg_local {
local $x=10;print"call−local x\n";
mm;
}
gg_my;
gg_local;
求输出结果:
call_my 1119call_local 1019
call_my 1111call_local 1010
call_my 1111call_local 1919
call_my 1919call_local 1010