Perl에서 어떻게 디렉토리를 변경하여 볼 수 있습니까?

Question

use Text::Diff; 
for($count = 0; $count <= 1000; $count++){ 
    my $data_dir="archive/oswiostat/oracleapps.*dat"; 
    my $data_file= `ls -t $data_dir | head -1`; 
    while($data_file){ 
     print $data_file; 
     open (DAT,$data_file) || die("Could not open file! $!"); 
     $stats1 = (stat $data_file)[9]; 
     print "Stats: \n"; 
     @raw_data=<DAT>; 
     close(DAT); 
     print "Stats1 is :$stats1\n"; 
     sleep(5); 
     if($stats1 != $stats2){ 
     @diff = diff \@raw_data, $data_file, { STYLE => "Context" }; 
     $stats2 = $stats1; 
     } 
     print @diff || die ("Didn't see any updates $!"); 
    } 
} 

는 출력 : 통계가 누락 및 해결 방법을하는 이유

는

$ perl client_socket.pl 
archive/oswiostat/oracleapps.localdomain_iostat_12.06.28.1500.dat 
Stats: 
Stats1 is : 
Didn't see any updates at client_socket.pl line 18. 

당신이 말해 줄 수 있습니까?

Answer 1

뭔가 다른 질문을하는 새롭게 편집 된 질문 제목이 아닌 stat()이 실패한 이유는 원래 질문에 대한 답입니다.

my $data_file= `ls -t $data_dir | head -1`; 
chomp($data_file); 

이 수정 프로그램입니다 이유 조금 어두운입니다 :

이은 수정입니다. chomp()이 없으면 $data_file에는 후행 개행 문자 인 "some_filename\n"이 있습니다. 두 인수 형식은 open()ignores trailing newlines in filenames and I don't know why 이므로 두 개의 인수는 셸 동작을 모방합니다. 그러나 stat()을 호출해도 파일 이름의 개행을 무시하지 않으므로 존재하지 않는 파일이 stat()이므로 $stats1은 undef입니다.

Answer 2

실제 수정 사항은 File::ChangeNotify 또는 File::Monitor 또는 유사합니다 (예 : Windows의 경우 Win32::ChangeNotify).

use File::ChangeNotify; 

my $watcher = File::ChangeNotify->instantiate_watcher(
    directories => [ 'archive/oswiostat' ], 
    filter => qr/\Aoracleapps[.].*dat\z/, 
); 

while (my @events = $watcher->wait_for_events) { 
    # ... 
}