Função de leitura Perl

Descrição

Esta função lê, ou tenta ler, LENGTH número de bytes do arquivo associado a FILEHANDLE em BUFFER. Se um deslocamento for especificado, os bytes lidos serão colocados no buffer começando no deslocamento especificado.

Sintaxe

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

read FILEHANDLE, SCALAR, LENGTH, OFFSET

read FILEHANDLE, SCALAR, LENGTH

Valor de retorno

Esta função o número de bytes lidos ou o valor indefinido.

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");
while(read(FILE, $buffer, 100) ) {
   print("$buffer\n");
}
close(FILE);

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

kerberos_master 751/udp  # Kerberos authentication
kerberos_master 751/tcp  # Kerberos authentication
passwd_server   752/udp  # Kerberos passwd server