TOP - Perl - 関数 - rewinddir

ディレクトリハンドルの現在位置をディレクトリの先頭に戻します。

rewinddir ディレクトリハンドル
ディレクトリハンドル : 位置変更の対象となるディレクトリハンドル

(例)
mkdir "test", 0755;

open TEST_OUT, ">test/test1.txt" or die "error $!\n";
print TEST_OUT "test";
close TEST_OUT;

opendir TESTDIR, "test" or die "error $!\n";
@a_dirs1 = readdir TESTDIR;
@a_dirs2 = readdir TESTDIR;

rewinddir TESTDIR;                      # ディレクトリハンドルを先頭に戻す

@a_dirs3 = readdir TESTDIR;

closedir TESTDIR;

print "a_dirs1 = @a_dirs1\n";
print "a_dirs2 = @a_dirs2\n";
print "a_dirs3 = @a_dirs3\n";
実行結果
a_dirs1 = . .. test1.txt
a_dirs2 =
a_dirs3 = . .. test1.txt


Copyright(C) 2006-2011 CLAYPOT. All Rights Reserved.