Perl rewinddir Function



Description

This function Resets the current position within the directory specified by DIRHANDLE to the beginning of the directory.

Syntax

Following is the simple syntax for this function −

rewinddir DIRHANDLE

Return Value

This function returns 0 on failure and 1 on success.

Example

Following is the example code showing its basic usage −

#!/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);

When above code is executed, it produces the following result(in /tmp directory) −

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