Perl rewinddir 函数
描述
此函数将 DIRHANDLE 指定的目录中的当前位置重置为目录的开头。
语法
以下是此函数的简单语法 −
rewinddir DIRHANDLE
返回值
此函数在失败时返回 0，在成功时返回 1。
示例
以下是显示其基本用法的示例代码 −
#!/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);
执行上述代码时，会产生以下结果（在 /tmp 目录中） −
1st Time: . .. testdir The last file has already been read! 2nd Time: . .. testdir
