Perl eof 函数

描述

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

不带参数的 eof 使用最后读取的文件。使用带有空括号的 eof() 是非常不同的。它是指由命令行上列出的文件形成的伪文件，并通过 <> 运算符访问。

句法

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

eof FILEHANDLE

eof()

eof

返回值

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

例子

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

# 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
}