Função Perl readline

Descrição

Esta função lê uma linha do filehandle referido por EXPR, retornando o resultado. Se você quiser usar um FILEHANDLE diretamente, ele deve ser passado como um typeglob.

A função simplesmente readline é equivalente a <>.

Sintaxe

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

readline EXPR

Valor de retorno

Esta função retorna apenas uma linha em um contexto escalar e em um contexto de lista, uma lista da linha até o final do arquivo é retornada

Exemplo

A seguir está o código de exemplo que mostra seu uso básico -

#!/usr/bin/perl -w

my($buffer) = "";
open(FILE, "/etc/services") or
   die("Error reading file, stopped");

$buffer = <FILE>;
print("$buffer");

$buffer = readline( *FILE );
print("$buffer");

close(FILE);

Quando o código acima é executado, ele produz o seguinte resultado -

# /etc/services:
# $Id: services,v 1.33 2003/03/14 16:41:47 notting Exp $