Funzione Perl seekdir

Descrizione

Questa funzione imposta la posizione corrente all'interno di DIRHANDLE su POS. Il valore di POS deve essere un valore precedentemente restituito da telldir.

La funzione seekdir () è simile alla chiamata di sistema seekdir () di Unix.

Sintassi

Di seguito è riportata la semplice sintassi per questa funzione:

seekdir DIRHANDLE, POS

Valore di ritorno

Questa funzione restituisce 0 in caso di errore e 1 in caso di successo.

Esempio

Di seguito è riportato il codice di esempio che mostra il suo utilizzo di base, creare una directory testdir all'interno di / 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);

Quando viene eseguito il codice sopra, produce il seguente risultato:

Position without read : 0
Position after one read : 4
.
.
Position after second read : 4