Tutorials Point


  Perl Home

  PERL Functions

© 2011 TutorialsPoint.COM


  Home     References     About TP     Advertising  

PERL rewinddir Function



Syntax

rewinddir DIRHANDLE


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


Printer Friendly



  

Advertisement

Online Image Processing

Indian Baby Names