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
}
