如何在perl中的循环内读取文件时,它是否是最后一行

发布时间：2020-12-15 23:28:48 所属栏目：大数据来源：网络整理

导读：我正在使用Perl处理日志解析脚本.我正在阅读日志文件,如下所示： open(LOGFILE,"$logFile") || die "Error opening log file $logFilen"; while(LOGFILE) { #Processing statements goes here.} 现在在处理语句中我想检查文件读取指针是否在最后一行.如果是

我正在使用Perl处理日志解析脚本.我正在阅读日志文件,如下所示：

open(LOGFILE,"$logFile") || die "Error opening log file $logFilen";                           
while(<LOGFILE>) 
{   
  #Processing statements goes here.
}

现在在处理语句中我想检查文件读取指针是否在最后一行.如果是,则希望在退出前处理条件.

所以问题是在while循环中用于逐行读取文件,如何确定它是否在最后一行？

解决方法

my $last;
while(<MYFILE>) {
   $last = $_ if eof;
}

虽然除非你对其他每一行做一些事情,但效率非常低.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!