当前位置: 首页 > 文档资料 > Perl 入门教程 >

rewinddir

优质
小牛编辑
137浏览
2023-12-01

描述 (Description)

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

语法 (Syntax)

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

rewinddir DIRHANDLE

返回值 (Return Value)

此函数在失败时返回0,在成功时返回1。

例子 (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);

执行上面的代码时,它会产生以下结果(在/ tmp目录中) -

1st Time:
.
..
testdir
The last file has already been read!
2nd Time: 
.
..
testdir