Fonction de lecture Perl

La description

Cette fonction lit, ou tente de lire, le nombre LENGTH d'octets du fichier associé à FILEHANDLE dans BUFFER. Si un décalage est spécifié, les octets lus sont placés dans la mémoire tampon en commençant au décalage spécifié.

Syntaxe

Voici la syntaxe simple de cette fonction -

read FILEHANDLE, SCALAR, LENGTH, OFFSET

read FILEHANDLE, SCALAR, LENGTH

Valeur de retour

Cette fonction le nombre d'octets lus ou la valeur non définie.

Exemple

Voici l'exemple de code montrant son utilisation de base -

#!/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);

Lorsque le code ci-dessus est exécuté, il produit le résultat suivant -

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