perl 获取更新部分日志
发布时间:2020-12-15 23:43:52 所属栏目:大数据 来源:网络整理
导读:#!/usr/bin/perl#取文件行数##循环开始清空文件if (-f "tmp.out"){open FILE,"tmp.out";close FILE;}open( A,"","count.txt" ); while (A) { $count = $_; };print "上次记录的记录数为$countn";open(my $fh,'','catalina.out');$. = 0;while ($fh) { ($num
#!/usr/bin/perl #取文件行数 ##循环开始清空文件 if (-f "tmp.out"){ open FILE,">tmp.out"; close FILE;} open( A,"<","count.txt" ); while (<A>) { $count = $_; }; print "上次记录的记录数为$countn"; open(my $fh,'<','catalina.out'); $. = 0; while (<$fh>) { ($num=$.) if eof; }; print "文件最新的记录数为$num"."n"; open( B,">","count.txt" ); print B ("$numn"); 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"); } }}; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |