珀尔 | eof - 文件结束函数

eof()函数用于检查是否到达文件结尾 (EOF)。如果达到 EOF 或 FileHandle 未打开且在所有其他情况下未定义，则返回 1。

Syntax: eof(FileHandle)

Parameter:
FileHandle: used to open the file

Returns: 1 if EOF is reached

案例：

1. eof(FileHandle) ：将 FileHandle 传递给 eof()函数。如果 File 为空，则返回 1，否则返回 undef。
   例子：

   #!/usr/bin/perl
     
   # Opening Hello.txt file
   open(fh,"

   输出 ：

   • 如果 Hello.txt 为空：

   • 如果 ex1.txt 不为空：

2. eof() ：带空括号的 eof 是指由作为命令行参数传递的文件形成的伪文件，并通过 '<>'运算符访问。 eof() 检查命令行中作为参数传递的所有文件的最后一个文件的结尾。例子：

   #!/usr/bin/perl
     
   # opens filehandle for files passed as arguments
   while(<>)
   {
       # checks for eof of the last file passed as argument
       if(eof()) # It returns 1 if End Of the File is reached.
       {
           print "$_";
           print("\nEnd Of File Reached");
       }
      
          
       else # prints each fileread of the File
       {
           print "$_";
       }
   }
   

   输出 ：
   
   

3. eof ：不带括号的 eof 检查最后一个文件读取的文件结尾。例子：

   #!/usr/bin/perl
     
   # opening Hello.plx
   if(!open(fh, ") 
   { };
     
   # check for End Of File of last file read i.e. fh
   if(eof) # Returns 1 since eof is reached
   {
       print("\nEnd Of File Reached");
   }
   

   输出 ：