Perl eof 函数

• 

  描述

  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
  }