子程序與引用

yvmu

使用引用創(chuàng)建的多維數(shù)組，在傳遞給子程序，或者從子程序傳遞出來，是重新賦值過還是直接傳遞引用。

貌似直接傳遞引用的。

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://72891.cn/viewthread.php?tid=1161729

9119111

引用。當然是去看。黑豹書那本。有中文。

9119111

講得不錯。例子也行。
但書買不到。太可惜了。還蠻便宜的。價格。