Perl 中的 eof函数

描述

如果下一次读取FILEHANDLE将返回文件末尾,或者FILEHANDLE未打开,则此函数返回1。

An eof without an argument uses the last file read. Using eof() with empty parentheses is very different. It refers to the pseudo file formed from the files listed on the command line and accessed via the <> operator.

语法

以下是此函数的简单语法-

无涯教程网

eof FILEHANDLE

eof()

eof

返回值

如果FILEHANDLE不在文件末尾,则此函数返回undef；如果FILEHANDLE在下次读取时报告文件末尾,则此函数返回1。

例

以下是显示其基本用法的示例代码-

链接：https://www.learnfk.comhttps://www.learnfk.com/perl/perl-eof.html

来源：LearnFk无涯教程网

# insert dashes just before last line of last file
while (<>) {
   if (eof()) {	# check for end of last file
      print "--------------\n";
   }
   print;
   last if eof();  # needed if we're reading from a terminal
}