ディレクトリ内のファイルの一覧を取得する際に
opendir my $dh, $dirname or die "#!";

#.や..以外のファイルを取得
@filelist = grep { !m/^(\.|\.\.)$/g } readdir $dh:

c;psedir $dh;

とやってるのをみかけたのだが
これって
@filelist = readdir $dh;
shift(@filelist);shift(@filelist);

とやっちゃまずいの?結果は同じでこっちの方が処理速度速いと
思うんだけど
あと
grep { !m/^(\.|\.\.)$/g } の正規表現の中の最後のgっていらなくね?