Perl rewinddir 函数 - 菜鸟教程

描述

rewinddir 此函数将DIRHANDLE指定的目录中的当前位置重置为目录的开头。

句法

以下是此函数的简单语法-


rewinddir DIRHANDLE

返回值

如果失败，此函数返回0，如果成功，则返回1。

示例

以下是显示其基本用法的示例代码-

 
# 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