Perl引用(已經(jīng)解決)

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);
    

復(fù)制代碼

結(jié)果：
$VAR1 = {
          '1' => {
                   'product' => {
                                  'bcd' => {
                                             'good' => 2
                                           },
                                  'abc' => {
                                             'thanks' => 1
                                           }
                                }
                 },
          '3' => {
                   'product' => $VAR1->{'1'}{'product'}
                 },
          '2' => {
                   'product' => $VAR1->{'1'}{'product'}
                 }
        };
為什么會(huì)出現(xiàn)'product' => $VAR1->{'1'}{'product'} 這種？如果$hashs的值是變化的，這樣就得不到正確的結(jié)果了呀
費(fèi)解中，希望各位高手幫忙

解釋：

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

復(fù)制代碼

這是將hashs地址賦值給$results->{$item}->{product}，所以在以后的賦值中，所有的變量都指向了同一地址，才有了上面的情況
解決的方法可以遍歷$hashs進(jìn)行賦值

在精華區(qū)關(guān)于引用的文章中，提到引用的copy可以用
$new_hashs = {%{$hashs}};

[ 本帖最后由 xiaoquqi 于 2007-8-8 10:56 編輯 ]

flw

因?yàn)槟隳鞘莻�(gè)引用。
不這么寫還怎么寫？

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);
    

復(fù)制代碼

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

但其實(shí)我想得到的是：
          '1' => {
                   'product' => {
                                  'bcd' => {
                                             'good' => 2
                                           },
                                  'abc' => {
                                             'thanks' => 1
                                           }
                                }
                 },
          '2' => {
                   'product' => {
                                  'bcd' => {
                                             'good' => 2
                                           },
                                  'abc' => {
                                             'thanks' => 3
                                           }
                                }
                 },
……
費(fèi)解……多謝幫忙了……

xiaoquqi

是不是因?yàn)閔ash 引用地址相同的原因？

flw

看文檔
看精華
看有關(guān)引用的資料

diancn

也許你需要的是這個(gè)：

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);

復(fù)制代碼

xiaoquqi

Thanks 樓上的兄弟 謝謝flw 問題已經(jīng)解決
解釋在1樓