Función Perl eof

Descripción

Esta función devuelve 1 si la siguiente lectura en FILEHANDLE devolverá el final del archivo, o si FILEHANDLE no está abierto.

Un eof sin un argumento usa el último archivo leído. Usar eof () con paréntesis vacíos es muy diferente. Se refiere al pseudo archivo formado a partir de los archivos enumerados en la línea de comando y al que se accede a través del operador <>.

Sintaxis

A continuación se muestra la sintaxis simple para esta función:

eof FILEHANDLE

eof()

eof

Valor devuelto

Esta función devuelve undef si FILEHANDLE no está al final del archivo y 1 si FILEHANDLE informará el final del archivo en la próxima lectura.

Ejemplo

A continuación se muestra el código de ejemplo que muestra su uso básico:

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