子程序与引用

yvmu

使用引用创建的多维数组，在传递给子程序，或者从子程序传递出来，是重新赋值过还是直接传递引用。

貌似直接传递引用的。

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use warnings;
   
5. use strict;
   
6. use Text::CSV_XS;
   
7. 
   
8. sub csv{
   
9.   open (CSV,"<$_[0]");
   
10.   my @columns;
    
11.   my $col;
    
12.   my $csv = Text::CSV_XS->new({
    
13.                                'binary' => 1,
    
14.                                'quote_char'  => '"',
    
15.                                'sep_char'    => ','
    
16.                               });
    
17. 
    
18.   foreach my $line (<CSV>) {
    
19.     chomp $line;
    
20.     if ($csv->parse($line)) {
    
21.       $col=[];
    
22.       @{$col} = $csv->fields();
    
23.       push @columns,$col;
    
24.     } else {
    
25.       print "[error line : ", $csv->error_input, "]\n";
    
26.     }
    
27.   }
    
28. 
    
29.   close (CSV);
    
30.   return @columns;
    
31. }
    
32. 
    
33. sub check{
    
34.   foreach (@_){
    
35.     foreach (@{$_}){
    
36.       s/ //g;
    
37.       s/,//g;
    
38.     }
    
39.   }
    
40. }
    
41. 
    
42. my @tmp=csv($ARGV[0]);
    
43. &check(@tmp);
    
44. foreach (@tmp){
    
45.   foreach (@{$_}){
    
46.     print $_."\n";
    
47. }
    
48. }
    

复制代码

不死草

是直接传递引用的，哦，你想干嘛？

yvmu

刚接触引用，有些地方还是琢磨的不是很透。手头的书没讲到引用，看来得再找本书了。

不死草

perl 24 学时有一张专门讲引用http://bbs.chinaunix.net/viewthread.php?tid=1161729

9119111

引用。当然是去看。黑豹书那本。有中文。

9119111

讲得不错。例子也行。
但书买不到。太可惜了。还蛮便宜的。价格。