Função Perl eof

Descrição

Esta função retorna 1 se a próxima leitura em FILEHANDLE retornará o fim do arquivo ou se FILEHANDLE não estiver aberto.

Um eof sem argumento usa o último arquivo lido. Usar eof () com parênteses vazios é muito diferente. Ele se refere ao pseudo arquivo formado a partir dos arquivos listados na linha de comando e acessados ​​por meio do operador <>.

Sintaxe

A seguir está a sintaxe simples para esta função -

eof FILEHANDLE

eof()

eof

Valor de retorno

Esta função retorna undef se FILEHANDLE não estiver no final do arquivo e 1 se FILEHANDLE informar o fim do arquivo na próxima leitura.

Exemplo

A seguir está o código de exemplo que mostra seu 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
}