배열 반환이 작동하지 않습니다

Question

use Text::Diff; 
my $count; 
our $stats2 = 0; 
for($count = 0; $count <= 1000; $count++){ 
    my $data_dir="archive/oswiostat/oracleapps.*dat"; 
    my $data_file= `ls -t $data_dir | head -1`; 
    chomp($data_file); 
    while(defined($data_file)){ 
     print $data_file; 
     open (DAT,$data_file) || die("Could not open file! $!"); 
     my @stats1 = stat $data_file; 
     @raw_data=<DAT>; 
     close(DAT); 
     print "Stats1 is :$stats1[9]\n"; 
     sleep(5); 
     print "Checking $stats1[9] equals $stats2\n"; 
     chomp $stats[9]; 
     chomp $stats2; 
     if($stats1[9] != $stats2){ 
      print "I am here"; 
      my @diff = diff \@raw_data, \@raw_data2, { STYLE => "Context" }; 
      @trim_diff = removedash(@diff); 
      print "@trim_diff"; 
     } 
     @raw_data2=@raw_data; 
     $stats2 = $stats1[9]; 
     print "Stat2: $stats2\n"; 
    } 
} 

sub removedash { 
    print "Its in sub"; 
    my $cnt=0; 
    foreach (@_) { 
     chomp; 
     if (/^- /){ 
      s#^- ##g; 
      $ar[$cnt] = "$_\n"; 
      $cnt++; 
     } 
    } 
    return (@ar); 
} 

배열에서 대시를 제거하고 다시 보내려면 하위를 사용하고 있습니다. @trim_diff는 @ar를 반환해야하지만 아무것도 표시하지 않습니다. 내가 어디에서 잘못했는지 모르겠습니다. 너희들이 도와 줄 수 있니?

Answer 1

나는 그것이 작동하지 않는다고 생각합니다. 아마도 빈 목록을 반환 할 것입니다.

귀하의 기능은

removedash

더 적절

remove_elements_without_dashes_and_remove_dashes_from_those_ones

을 이름을 지정해야합니다.