Fonction Perl seekdir

La description

Cette fonction définit la position actuelle dans DIRHANDLE sur POS. La valeur de POS doit être une valeur précédemment renvoyée par telldir.

La fonction seekdir () est similaire à l'appel système d'Unix seekdir ().

Syntaxe

Voici la syntaxe simple de cette fonction -

seekdir DIRHANDLE, POS

Valeur de retour

Cette fonction renvoie 0 en cas d'échec et 1 en cas de succès.

Exemple

Voici l'exemple de code montrant son utilisation de base, créez un répertoire testdir dans / 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 : 4
.
.
Position after second read : 4