请教子程序传参问题（传文件句柄 和多维列表）

shuxi_w

1.传文件句柄

open(OUTFILE, ">filename.txt");

1. open (OUTFILE, ">filename.txt");
   
2. genContent(\*OUTFILE);
   
3. close (OUTFILE);
   
4. 
   
5. sub genContent(){
   
6. my $fh = shift;
   
7. printf $fh "this is a test line\n";
   
8. }

复制代码

结果返回说printf() on closed filehandle OUTFILE

shuxi_w

2,如何传递2个列表到子程序呢？ 我用如下方法失败

subprogram(@array1, @array2);

sub subprogram{
my @subarray1=@$_[0];
my @subarray2=@$_[1];

}

yinyuemi

回复 1# shuxi_w

1.
    sub fun{
sth
}

2. sub fun(\@\@){

}

fun(@arr1,@arr2);

1. 
   
2. for example:
   
3. 
   
4. perl -le '
   
5. sub fun(\@\@){
   
6. my ($s,$f) = (@_);
   
7. use Data::Dumper;
   
8. print Dumper $s,$f;
   
9. };
   
10. @arr1=(1);
    
11. @arr2=(2);
    
12. fun(@arr1,@arr2)'

复制代码

shuxi_w

回复 3# yinyuemi


    谢谢，不过我的array1是一个二维列表，用你这个方法的话，array2获取的是array1的第二个元素了。

比如 @array1=([1,2,3],[a,b,c],[one,two,three]);
       @array2=(7,8,9);

用你的方法传到子程序里得到的2个列表就成了 （1,2,3） 和 (a,b,c)

是不是需要把多维列表写成 sub(/@@/@)?

yinyuemi

回复 4# shuxi_w


    没明白，你完整的代码是？

   另外一种办法：

sub f{
my ($a1_ref,$a2_ref=(@_);
...
}
f(\@array1,\@array2)  # 传array的引用

cdtits

1. #!/usr/bin/env perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. sub genContent {
   
7.     my $fh = shift;
   
8.     print $fh "this is a test line\n";
   
9. }
   
10. 
    
11. open $fh, '>', 'filename.txt';
    
12. genContent($fh);
    
13. close $fh;
    
14. 
    
15. #####################################
    
16. 
    
17. sub subprogram{
    
18.     my ($subarray1, $subarray2) = @_;
    
19.     ...
    
20. }
    
21. subprogram(\@array1, \@array2);

复制代码

ganquan1980

     sub test{
          ($a,$b)=@_;
          print @{$$a[0]},"\n" ;
          print @$b, "\n" ;
            }
          my @a=([1,2,3],["a","b","c"]);
          my @b=(4,5,6);
          print @{$a[0]},"\n" ;
          test(\@a,\@b);