Perl-rewinddir
提供:Dev Guides
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