Funzione Perl telldir

Descrizione

Questa funzione restituisce la posizione corrente del puntatore di lettura all'interno dell'elenco di directory a cui fa riferimento DIRHANDLE. Questo valore restituito può essere utilizzato dalla funzione seekdir ().

Sintassi

Di seguito è riportata la semplice sintassi per questa funzione:

telldir DIRHANDLE

Valore di ritorno

Questa funzione restituisce la posizione corrente all'interno della directory.

Esempio

Di seguito è riportato il codice di esempio che mostra il suo utilizzo di base, abbiamo solo due file nella directory / 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 : 1
.ICE-unix
.ICE-unix
Position after second read : 1