Funzione rewinddir di Perl

Descrizione

Questa funzione Reimposta la posizione corrente all'interno della directory specificata da DIRHANDLE all'inizio della directory.

Sintassi

Di seguito è riportata la semplice sintassi per questa funzione:

rewinddir DIRHANDLE

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:

#!/usr/bin/perl -w

# Open the current directory
opendir(DIR, ".");

# Print all of the directory entries.
print("1st Time: \n");
map( print("$_ \n") , readdir(DIR));
print("\n");

# Print message verifying that there are
# no more directory entries to read.
print("The last file has already been read!\n\n")
 unless readdir(DIR);

# Go back to the beginning.
rewinddir(DIR);

# Print all of the directory entries again.
print("2nd Time: \n");
map( print("$_ \n") , readdir(DIR));
print("\n");

closedir(DIR);

Quando viene eseguito il codice sopra, produce il seguente risultato (nella directory / tmp):

1st Time:
.
..
testdir
The last file has already been read!
2nd Time: 
.
..
testdir