從子程序返回數組

Question

我試圖從數組中返回數據。代碼如下：

my %ignorables = map { $_ => 1 } qw([notice mpmstats: rdy bsy rd wr ka log dns cls bsy: in); 

open my $error_fh, '<', 'iset_error_log'; 

sub findLines { 

    # Iterates over the lines in the file, putting each into $_ 
    while (<$error_fh>) { 

     # Only worry about the lines containing [notice 
     if (/\[notice/) { 

      if (/\brdy\b/){ 
       print "\n"; 
      } 
      else { 
       print ","; 
      } 

      # Split the line into fields, separated by spaces, skip the %ignorables 
      my @line = grep { not defined $ignorables{$_} } split /\s+/; 

      # More cleanup 
      s/|^\[|notice|[]]//g for @line; # remove [ from [foo 

      # Output the line 
      @line = join(",", @line); 
      s/,,/,/g for @line; 
      print @line; 
      } 
     } 
    } 

&findLines; 

當我打印，輸出如下：

Mon,Jun,25,23:24:43,2012,999,1,0,1,0,0,0,0,Mon,Jun,25,23:24:43,2012,1,mod_was_ap22_http.c 
Mon,Jun,25,23:32:44,2012,999,1,0,1,0,0,0,0,Mon,Jun,25,23:32:44,2012,1,mod_was_ap22_http.c 
Mon,Jun,25,23:33:44,2012,999,1,0,1,0,0,0,0,Mon,Jun,25,23:33:44,2012,1,mod_was_ap22_http.c 
Mon,Jun,25,23:45:44,2012,999,1,0,1,0,0,0,0,Mon,Jun,25,23:45:44,2012,1,mod_was_ap22_http.c 

如何返回數組子程序之外？

Answer 1

未測試：

sub findLines { 
    my($item,@result); 

    # Iterates over the lines in the file, putting each into $_ 
    while (<$error_fh>) { 

     # Only worry about the lines containing [notice 
     if (/\[notice/) { 

      if (/\brdy\b/){ 
       print "\n"; 
       push @result,"$item\n"; 
       $item=""; 
      } 
      else { 
       print ","; 
       $item.=","; 
      } 

      # Split the line into fields, separated by spaces, skip the %ignorables 
      my @line = grep { not defined $ignorables{$_} } split /\s+/; 

      # More cleanup 
      s/|^\[|notice|[]]//g for @line; # remove [ from [foo 

      # Output the line 
      @line = join(",", @line); 
      s/,,/,/g for @line; 
      print @line; 
      map $item.=$_, @line; 
     } 
    } 
    @result 
} 

my @array = &findLines; 

Answer 2

sub findLines { 
    ... 
    return @list; # Returns array @list 
} 
my @results = findLines(); 

# or 
sub findLines { 
    ... 
    return \@list; # returns a reference to array @list 
} 
my $resultsRef = findLines(); 

我不知道你的if/else語句是做什麼的，但我想你想推\ n或,到@list。

此外，你應該打開的子程序的文件，並傳入參數要打開的文件。