В 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 , потому что two-arg open имитирует поведение оболочки. Однако ваш вызов 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) { 
    # ... 
}