perl 如何正确传递hash引用

zealix

我google了无数帖子了，没有找到一个合理的方法，
请看这个例子，

#!/usr/bin/perl

%seen = ();

sub foo1  {
        my $x    = shift;
        my %see = %$x;
       
        $see{1} = "2";
        my $num = $see{1};
        print "$num haha\n";       
        return (\%see);
}

sub foo2  {
        my $x    = shift;
        my %see = %$x;
       
        my $num = $see{1};
        print "$num haha\n";       
}

$seen2 = foo1(\%seen);
foo2(\%seen);
printf("\n");
foo2($seen2);
--------------------------------------------------
结果是：
2 haha
haha

2 haha
-------------------
也就是说，除非把引用return出来，
否则第二次调用传递hash引用进去的话，
foo1()对hash的修改是不可见的
如果是这样的话，怎样才能正确传递hash的引用？

我觉得perl的语法真的是坑爹的啊！！！

guap514

回复 1# zealix

1. my %see = %$x;

复制代码

这句会复制一份新的hash给%see

1. sub foo1  {
   
2.         my $x    = shift;
   
3.         
   
4.         $x->{1} = "2";
   
5.         my $num = $x->{1};
   
6.         print "$num haha\n";        
   
7.         return ($x);
   
8. }
   
9. 
   
10. sub foo2  {
    
11.         my $x    = shift;
    
12.         
    
13.         my $num = $x->{1};
    
14.         print "$num haha\n";        
    
15. }

复制代码

zealix

哦，原来是这样，多谢多谢！