Section courante

A propos

Section administrative du site

EOF

 Fin de fichier
Perl
  

Syntaxe

eof
eof()
eof filehandle

Paramètres

Nom Description
filehandle Ce paramètre permet d'indiquer l'identificateur de fichier

Retour

Valeur Description
undef Cette valeur permet d'indiquer que l'identificateur de fichier n'existe pas.
1 Cette valeur permet d'indiquer que la fin du fichier est atteinte.

Description

Cette fonction permet d'indiquer si la fin du fichier est atteinte.

Exemple

Prenons pour acquis que le fichier «readtext.txt» est le contenu :

Un
Deux
Trois
Quatre
Cinq
Six
Sept
Huit
Neuf
Dix
Onze
Douze
Treize
Quatorze
Quinze
Seize

Si on veut afficher par exemple afficher un message avant la dernière ligne :

  1. #!/usr/bin/perl
  2.  
  3. if(open(Handle, "readtext.txt")) {
  4.    $I = 1;
  5.    while(<Handle>) {
  6.       $CurrLine = $_;
  7.       if(eof(Handle)) {
  8.        print "Derniere ligne !!!\n";
  9.       }
  10.       print $I . ":" . $_;
  11.       $I++;
  12.    };
  13.    close(Handle);
  14. }

on obtiendra le résultat suivant :

1:Un
2:Deux
3:Trois
4:Quatre
5:Cinq
6:Six
7:Sept
8:Huit
9:Neuf
10:Dix
11:Onze
12:Douze
13:Treize
14:Quatorze
15:Quinze
Derniere ligne !!!
16:Seize

Voir également

Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - EOF

Références

La Bible Micro Application HTML & Développement Web, Stefan Munz, Wolfgang Nefzger, 2003, ISBN: 2-7429-2898-7, page 1148

Dernière mise à jour : Dimanche, le 18 octobre 2015