Perl引用(已经解决)

xiaoquqi

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use Data::Dumper;
   
5. my $hashs;
   
6. $hashs->{'abc'}->{'thanks'} = 1;
   
7. $hashs->{'bcd'}->{'good'} = 2;
   
8. 
   
9. my @item = (1,2,3);
   
10. 
    
11. my $results;
    
12. 
    
13. foreach my $item (@item){
    
14.   $results->{$item}->{product} = $hashs;
    
15. }
    
16. print Dumper($results);
    

复制代码

结果：
$VAR1 = {
          '1' => {
                   'product' => {
                                  'bcd' => {
                                             'good' => 2
                                           },
                                  'abc' => {
                                             'thanks' => 1
                                           }
                                }
                 },
          '3' => {
                   'product' => $VAR1->{'1'}{'product'}
                 },
          '2' => {
                   'product' => $VAR1->{'1'}{'product'}
                 }
        };
为什么会出现'product' => $VAR1->{'1'}{'product'} 这种？如果$hashs的值是变化的，这样就得不到正确的结果了呀
费解中，希望各位高手帮忙

解释：

1. $results->{$item}->{product} = $hashs;

复制代码

这是将hashs地址赋值给$results->{$item}->{product}，所以在以后的赋值中，所有的变量都指向了同一地址，才有了上面的情况
解决的方法可以遍历$hashs进行赋值

在精华区关于引用的文章中，提到引用的copy可以用
$new_hashs = {%{$hashs}};

[ 本帖最后由 xiaoquqi 于 2007-8-8 10:56 编辑 ]

flw

因为你那是个引用。
不这么写还怎么写？

xiaoquqi

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use Data::Dumper;
   
5. my $hashs;
   
6. $hashs->{'abc'}->{'thanks'} = 1;
   
7. $hashs->{'bcd'}->{'good'} = 2;
   
8. 
   
9. my @item = (1,2,3);
   
10. 
    
11. my $results;
    
12. 
    
13. foreach my $item (@item){
    
14.   if($item == 2){
    
15.       $hashs->{'abc'}->{'thanks'} = 3;
    
16.   }
    
17.   $results->{$item}->{product} = $hashs;
    
18. }
    
19. print Dumper($results);
    

复制代码

得到的结果是：
$VAR1 = {
          '1' => {
                   'product' => {
                                  'bcd' => {
                                             'good' => 2
                                           },
                                  'abc' => {
                                             'thanks' => 3
                                           }
                                }
                 },
          '3' => {
                   'product' => $VAR1->{'1'}{'product'}
                 },
          '2' => {
                   'product' => $VAR1->{'1'}{'product'}
                 }
        };

但其实我想得到的是：
          '1' => {
                   'product' => {
                                  'bcd' => {
                                             'good' => 2
                                           },
                                  'abc' => {
                                             'thanks' => 1
                                           }
                                }
                 },
          '2' => {
                   'product' => {
                                  'bcd' => {
                                             'good' => 2
                                           },
                                  'abc' => {
                                             'thanks' => 3
                                           }
                                }
                 },
……
费解……多谢帮忙了……

xiaoquqi

是不是因为hash 引用地址相同的原因？

flw

看文档
看精华
看有关引用的资料

diancn

也许你需要的是这个：

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use Data::Dumper;
   
5. my $hashs;
   
6. $hashs->[1]->{'abc'}->{'thanks'} = 1;
   
7. $hashs->[1]->{'bcd'}->{'good'} = 2;
   
8. 
   
9. $hashs->[2]->{'abc'}->{'thanks'} = 2;
   
10. $hashs->[2]->{'bcd'}->{'good'} = 2;
    
11. 
    
12. $hashs->[3]->{'abc'}->{'thanks'} = 3;
    
13. $hashs->[3]->{'bcd'}->{'good'} = 2;
    
14. 
    
15. my @item = (1,2,3);
    
16. 
    
17. my $results;
    
18. 
    
19. foreach my $item (@item){
    
20.   $results->{$item}->{product} = $hashs->[$item];
    
21.   }
    
22. print Dumper($results);

复制代码

xiaoquqi

Thanks 楼上的兄弟 谢谢flw 问题已经解决
解释在1楼