如何传递多个数组作为函数的参数？

zhou20071801

1.        my @a=(1,2,5,3);
   
2.         my @b=(3,2,3,4);
   
3.         Pearson(\@a,\@b);
   
4.         sub Pearson
   
5.         {
   
6.                 my $X=shift;
   
7.                 my $Y=shift;
   
8.                 my @x=@$X;
   
9.                 my @y=@$Y;
   
10.          }

复制代码

我想将两个数组作为参数传递给函数，但直接传递数组不知道怎么提取出来，用@_提取两个数组就变一个了，只能用上面的笨办法。希望有高手解答一下。

cdtits

1.     my ($X, $Y) = @_;
   

复制代码

zhou20071801

回复 2# cdtits


    这个我试过，这个会将两个数组都赋值给前一个，后面的不赋值。

cdtits

1. #!/usr/bin/env perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. sub Pearson {
   
7.     my ($x, $y) = @_;
   
8.     print "@{$x}\n";
   
9.     print "@{$y}\n";
   
10. }
    
11. 
    
12. my @a =(1, 2, 5, 3);
    
13. my @b =(3, 2, 3, 4);
    
14. Pearson(\@a, \@b);
    

复制代码

zhou20071801

回复 4# cdtits


    这个可以，不过好像和我那个是一样的，只是我用了两个shift，而你是一次赋值给两个。

kk861123

zhou20071801 发表于 2012-07-10 16:01
我想将两个数组作为参数传递给函数，但直接传递数组不知道怎么提取出来，用@_提取两个数组就变一个了，只能 ...

你的方法有什么问题吗？一般都是这样传递的

zhou20071801

回复 6# kk861123
没什么问题。只是不知道有没有更好的传递方式。那就这个吧。


   

zhou20071801

回复 4# cdtits


    谢谢！！！

zhou20071801

{:2_168:}

zhou20071801

回复 6# kk861123


    谢谢！！