如何在perl子函数中传递参数

七夜未央

我想在perl子函数中传递多个参数，包括数组和标量，如下：
sub func
{
        my($a,$b,$c) = @_;
       
        print "$a\n";
        my $count = 0;
       
        while($count < @b)
        {
                print "$b[$count]\n";
                $count++;
        }
        $count = 0;
        while($count < @c)
        {
                print "$c[$count]\n";
                $count++;
        }
}

my @arry1 = ("fff", "rrr", "www");
my @arry2 = ("ttt", "hhh", "ccc");

func("qqq", @arry1, @arry2);

我想在子函数中使用传进去的两个数组，但是好像不行，请问大神们要怎么处理呢？谢谢

兰花仙子

七夜未央 发表于 2012-11-13 10:37
我想在perl子函数中传递多个参数，包括数组和标量，如下：
sub func
{

传数组引用，在子函数中，接受到引用后，再解引用。

kk861123

按照仙子指示，我给你改一下吧:

1. sub func
   
2. {
   
3.         my($a,$b,$c) = @_;    # 这里$b,$c接受到的是数组的引用
   
4.         
   
5.         print "$a\n";
   
6.         my $count = 0;
   
7.         
   
8.         while($count < @$b)
   
9.         {
   
10.                 print "$b->[$count]\n";
    
11.                 $count++;
    
12.         }
    
13.         $count = 0;
    
14.         while($count < @$c)
    
15.         {
    
16.                 print "$c->[$count]\n";
    
17.                 $count++;
    
18.         }
    
19. }
    
20. 
    
21. my @arry1 = ("fff", "rrr", "www");
    
22. my @arry2 = ("ttt", "hhh", "ccc");
    
23. 
    
24. func("qqq", \@arry1, \@arry2); #  这里传入数组的引用
    
25. 
    

复制代码

七夜未央

回复 3# kk861123

哇，果然厉害，多谢多谢


   

七夜未央

回复 2# 兰花仙子

多谢指点，楼下这位大哥代码都帮写了，呵呵~


   

阿铭linux

3楼正解。 和楼主一样，对子函数的参数有一些疑问，正好看到这个帖子了。

inchonline

回复 3# kk861123

又学习了

bzhao

引用就是这个东西，通过它，你能找到我， 然后传送的时候不要理我，你和他打交到就好！

清泉一边

这样应该也可以。
my($a,@b,@c) = @_; 回复 2# 兰花仙子


   

MMMIX

清泉一边 发表于 2014-04-18 15:15
这样应该也可以。
my($a,@b,@c) = @_; 回复 2# 兰花仙子

`$a` 是第一个参数，`@b` 是剩余的参数，`@c` 是空的。

在用 foo($a, @b, @c) 的方式调用 foo 的时候，@b 和 @c 会被展开，和 $a 一块组成一个大的数组作为 foo 的参数，也即 foo 中的 @_。