Perl Home
PERL Functions
© 2011 TutorialsPoint.COM
|
PERL rewinddir Function
Syntax
Definition and Usage
Resets the current position within the directory specified by DIRHANDLE to the beginning of the directory.
Return Value
0 on failure
1 on success
Example
Go in /tmp directory and Try out following example:
#!/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);
|
It will produce following results: ( Check your /tmp directory )
1st Time:
.
..
testdir
The last file has already been read!
2nd Time:
.
..
testdir
| |
|

|
|
|