当前位置: 首页>>代码示例 >>用法及示例精选 >>正文


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

相关用法


注:本文由纯净天空筛选整理自 Perl rewinddir Function。非经特殊声明,原始代码版权归原作者所有,本译文未经允许或授权,请勿转载或复制。