Fonction telldir Perl

La description

Cette fonction renvoie la position actuelle du pointeur de lecture dans la liste des répertoires référencée par DIRHANDLE. Cette valeur retournée peut être utilisée par la fonction seekdir ().

Syntaxe

Voici la syntaxe simple de cette fonction -

telldir DIRHANDLE

Valeur de retour

Cette fonction renvoie la position actuelle dans le répertoire.

Exemple

Voici l'exemple de code montrant son utilisation de base, nous n'avons que deux fichiers dans le répertoire / tmp -

#!/usr/bin/perl -w
opendir(DIR, "/tmp");

print("Position without read : ", telldir(DIR), "\n");

$dir = readdir(DIR);
print("Position after one read : ", telldir(DIR), "\n");
print "$dir\n";
seekdir(DIR,0);

$dir = readdir(DIR);
print "$dir\n";
print("Position after second read : " , telldir(DIR), "\n");

closedir(DIR);

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

Position without read : 0
Position after one read : 1
.ICE-unix
.ICE-unix
Position after second read : 1