指针有关的问题，求解惑

lfy91

希望您能从perl原理上解释一下

my @array = qw(this is confused);
my @seeme = ();
for (@array){
   my $val = $_;     #每次都对变量$var重新赋值
   my $ref = \$val;   #每次都重新将$ref指向$var
   push @seeme , $ref;
}
     #到现在@seeme中应该全部是指向$val的指针
for (@seeme){
   print "$_" , "\n" ;     #预期遍历中每次应该打印$var的值，也就是"confused" , 但实际上却分别打印了历史上每一次为var的赋值
}

得到结果：
this
is
confused

预期结果：
confused
confused
confused

lfy91

求正解

lfy91

【 #预期遍历中每次应该打印$var的值，也就是"confused" 】

前半句没错，确实每次打印的都是 $val 的值， ...
flw 发表于 2011-06-11 20:01

    我是这么认为的：指针变量只存放一个内存地址，在本例中即为指向$var的地址，（假如是SCALAR(0x15fd960)）而每次对他赋值的时候，赋值内容都应该是一个指向$var的内存地址，而并不关心$var这个变量本身的值是什么。
    我的逻辑是这样的：首先$var占用一个内存空间，当对指针变量赋值，就把指针变量赋值为SCALAR(0x15fd960)，执行循环时，指针变量每次都应该赋值为SCALAR(0x15fd960)，因为$var所占用的内存的地址并没有发生变化
    显然以上我的逻辑是错误的，因为没有得到预期结果，但究竟是哪一步错了？
         
                     要谢谢以上所有热心朋友的回答，第一次发帖就这么多人帮忙，真的很意外。