指针有关的问题，求解惑

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

x9x9

晕！

iamlimeng

非常晕！

lfy91

求正解

zhlong8

print 中的双$ 被显示成一个了吧？你能讲下你的预期结果是怎么来的

guap514

回复 1# lfy91

是这个意思么？

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

复制代码

chenhao392

$ref = \$val;   #此处赋值的是引用
$val 依次得到 this, is, confused三个字串
$ref得到对应的引用, \this,\is,\confused，即，你每次push到@seeme的引用都是不同的..

而这三个引用的引用计数，最小也是1(保存在了@seeme里，故而没有被删除)，请参阅：http://bbs.chinaunix.net/viewthr ... p;extra=&page=1

1. cat test.pl
   
2. my @array = qw(this is confused);
   
3. my @seeme = ();
   
4. for (@array){
   
5.    my $val = $_;   
   
6.    my $ref = \$val;  
   
7.    print "$val\t$ref\n";
   
8.    push @seeme , $ref;
   
9. }
   
10.    
    
11. for (@seeme){
    
12.    print "$_\t$_" , "\n" ;#第一个"$_"前还有一个$,莫名的显示为$_
    
13. }
    

复制代码

1. perl test.pl
   
2. this        SCALAR(0x15fd960)
   
3. is        SCALAR(0x15fd858)
   
4. confused        SCALAR(0x15fda50)
   
5. this        SCALAR(0x15fd960)
   
6. is        SCALAR(0x15fd858)
   
7. confused        SCALAR(0x15fda50)
   

复制代码

$符号可以理解为对字串的解引用，例子如下：

1. cat test2.pl
   
2. my $a=\123;
   
3. my $b=$a;#"$a"前还有一个$,莫名的显示为$a...
   
4. 
   
5. print "$a\t$b\n";
   

复制代码

1. perl test2.pl
   
2. SCALAR(0x15028b8)        123
   

复制代码

即，\为引用，$为解引用....

flw

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

前半句没错，确实每次打印的都是 $val 的值，但 $val 的值每次都是不同的呀！
你刚才也说了，每次都对 $val 重新赋值了的呀！

实际上每次都创建了一个新的 $val。
你把 my $val = $_ 挪到循环外面，就达到你说的那种效果了。

lfy91

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

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

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

zhlong8

我是这么认为的：指针变量只存放一个内存地址，在本例中即为指向$var的地址，（假如是SCALAR(0x1 ...
lfy91 发表于 2011-06-13 09:24

    flw 提醒下发现自己脑袋秀逗了，只是想说和C完全不同的结果表达的错太远了

    \$var 是对 $var 保存的对象取地址，Perl 中不存在对变量取地址的概念