perl - 是否可以检测当前的 while 循环迭代是否是 perl 中的最后一次？

Question

我从没想过这是可能的，但阅读了一些相互矛盾的评论，并认为我会问专家。

如果我正在逐行读取文件的 while 循环中进行，如果当前迭代将是循环中的最后一次迭代，有没有办法执行一些代码？我知道我可以简单地将这段代码立即放在 while 循环之后，这样代码就会在最后一行之后执行，但我只是想知道迭代是否有任何方法来检测它的位置。

谢谢!

Answer 1

在您从文件中读取的特殊情况下，是的。

while(<>) {
    if(eof) {
        print "The last line of the file!\n";
    }
}