Fonction tell Perl

La description

Cette fonction renvoie la position actuelle du pointeur de lecture (en octets) dans le FILEHANDLE spécifié. Si FILEHANDLE est omis, il renvoie la position dans le dernier fichier accédé.

Syntaxe

Voici la syntaxe simple de cette fonction -

tell FILEHANDLE

tell

Valeur de retour

Cette fonction renvoie la position actuelle du fichier en octets.

Exemple

Voici l'exemple de code montrant son utilisation de base, pour vérifier cette fonction, procédez comme suit -

  • Créez un fichier texte avec "this is test" comme contenu et stockez-le dans le répertoire / tmp.

  • Lisez 2 caractères de ce fichier.

  • Vérifiez maintenant la position du pointeur de lecture dans le fichier.

#!/usr/bin/perl -w

open( FILE, "</tmp/test.txt" ) || die "Enable to open test file";
$char = getc( FILE );
print "First Character is $char\n";
$char = getc( FILE );
print "Second Character is $char\n";
# Now check the position of read pointer.
$position = tell( FILE );
print "Position with in file $position\n";
close(FILE);

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

First Character is E
Second Character is O
Position with in file 2