问一个关于local化的引用的问题……

twilightagain

代码如下：

1. #!/usr/bin/perl -ws
   
2. use 5.012;
   
3. 
   
4. our @arr = qw(before local);
   
5. say "before: @arr";
   
6. my $t = \@arr;
   
7. {
   
8.         local @$t = qw(inside local block);
   
9.         say "inside: @arr";
   
10. }
    
11. say "after: @arr";
    

复制代码

输出：
before: before local
inside: inside local block
after: inside local block

当local的对象是解引用得到的数组时，为何在local块结束后值无法恢复？理解不了，希望知道的能说下

兰花仙子

代码如下：输出：
before: before local
inside: inside local block
after: inside local block

当l ...
twilightagain 发表于 2011-10-30 01:45

    你local的是 @$t，并没有local $t呀。

1. 
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. our $t = [1,2,3];
   
6. print "before: @$t\n";
   
7. 
   
8. {
   
9.    local $t = [3,2,1];
   
10.    print "inside: @$t\n";
    
11. }
    
12. 
    
13. print "outside: @$t\n";

复制代码

twilightagain

恩，我local的确实是 @$t ，但是 @$t 和 @arr 不是应该是一样的么……

我想知道为什么 local @arr 可以，local @$t 的结果就不一样

zhlong8

这个 local @$t 的行为应该是未定义的吧， perlsub 中 Temporary Values via local 这一节压根没提这种用法。

local 最初只是用来修饰全局变量的，后来扩展到可以临时修改 hash array 的域，你这个算是什么用法。