Perl rewinddir Function
This function Resets the current position within the directory specified by DIRHANDLE to the beginning of the directory.
Following is the simple syntax for this function −
This function returns 0 on failure and 1 on success.
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