perl 获取更新部分日志

最新推荐文章于 2024-07-13 14:09:23 发布

scan724

最新推荐文章于 2024-07-13 14:09:23 发布

阅读量370

点赞数

分类专栏： zj-脚本

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/46293387

版权

zj-脚本专栏收录该内容

93 篇文章 30 订阅 ¥39.90 ¥99.00

订阅专栏

这是一个使用Perl编写的脚本，旨在处理日志文件的更新部分。它首先检查并清空临时文件`tmp.out`，然后读取`count.txt`获取上次记录的行数。接着，它读取`catalina.out`获取最新记录数，并将这个数字写回`count.txt`。如果日志有新的内容（即行数变化），则将这些新增行追加到`tmp.out`中。

摘要由CSDN通过智能技术生成

#!/usr/bin/perl
#取文件行数
##循环开始清空文件
if (-f "tmp.out"){
open FILE,">tmp.out";
close FILE;}

open( A, "<", "count.txt" );
            while (<A>) {
            $count = $_;
                        };
print "上次记录的记录数为$count\n";


open(my $fh, '<', 'catalina.out');
$. = 0;
while (<$fh>) {
    ($num=$.) if eof;
};
print "文件最新的记录数为$num"."\n";
    open( B, ">", "count.txt" );
    print B ("$num\n");

if ( defined($count)  && $num != $count && $num !=0  )
{print "开始处理\n";
     open( C, "<", "catalina.out" ) || die "$!\n";
       while (<C>) {
             if  ($. > "$count" ){ 
              open( D, ">>", "tmp.out" );
              print D ("$_\n");
             }
}};