如何使用Perl脚本将个别日志从linux服务器读入另一个日志文件

Question

我是新的perl，我有一个问题ie'如何使用perl脚本将个别日志从linux服务器读入另一个日志文件'，我需要捕捉不同的路径和输出在另一location.These日志这些日志文件，并存储到文件的结果，个人日志在Linux服务器生成..

在此先感谢...

Answer 1

您可以轻松地将它们全部集中在一起，如果这就是你想要的：

cat log1 log2 log3 > result 

更新：

如果你想从不同的输出文件的所有日志最近的线，使用尾巴：

tail -50 /opt/psauto1/tester.log > /some/other/file 
tail -50 /opt/psauto1/testdata.log > /some/other/file2 
tail -50 /opt/view/test/itresult.log > /some/other/file3 
tail -50 /opt/test/glr.log > /some/other/file4 
tail -50 /opt/test/glr/glrdata.log > /some/other/file5 
tail -50 /opt/test/glr/result.log > /some/other/file6 
tail -50 /opttest/glr/output.log > /some/other/file7 

，你甚至可以把它放进一个循环，并运行它每隔5秒：

while [ true ] 
do 
    tail -50 /opt/psauto1/tester.log > /some/other/file 
    tail -50 /opt/psauto1/testdata.log > /some/other/file2 
    tail -50 /opt/view/test/itresult.log > /some/other/file3 
    tail -50 /opt/test/glr.log > /some/other/file4 
    tail -50 /opt/test/glr/glrdata.log > /some/other/file5 
    tail -50 /opt/test/glr/result.log > /some/other/file6 
    tail -50 /opttest/glr/output.log > /some/other/file7 
    sleep 5 
done 

Answer 2

至于tail -f，你可以做这样的：

(
    tail -f file1 & 
    tail -f file2 & 
)>>total_file 

()将把命令组合在一起（fork ing一个子shell），>>将附加到一个文件，&将强制命令到后台。

至于Perl，select在File::Tail手册很多说明如何做到这一点。