Loose-Info.com

Last Update 2019/12/25


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