你可以使用File :: Tail
use File::Tail;
my $file=File::Tail->new("/some/log/file");
while (defined(my $line = $file->read)) {
system("/path/to/second/script") if($line =~ /EndApp/) ;
}
Run Code Online (Sandbox Code Playgroud)
| 归档时间: |
|
| 查看次数: |
180 次 |
| 最近记录: |