ディレクトリハンドルをリセットする
rewinddir は、DIRHANDLE の読み取り位置を最初にリセットします。
これによって、readdir で DIRHANDLE の途中まで読み取ったとしても、
rewinddir を実行することで、次に readdir を実行すると、
最初のエントリを取り出すことになります。
# ディレクトリを開き、最後のファイルまで読み取る
opendir my $dh, './sample';
while ( my $file = readdir $dh ) { }
# 読み取り位置を最初に巻き戻す
rewinddir $dh;
# readdir でファイル名を取得する
my $file = readdir $dh;
print $file, "\n"; # 通常は . が出力される