perl - を削除できません。そして..grepを使用していますか？

Question

readdir を使用してディレクトリのファイルを取得していますが、削除したいと考えています。そして.. grep を使用します。出力は、まだ含まれていることを示しています。と..、しかし、何が問題なのかわかりませんか？

ここに私のコードがあります

    #!/usr/bin/perl

    opendir(Dir,$ARGV[0]);
    @Dirs = readdir(Dir);
    @Dirs = grep { $_ != /./ } @Dirs;
#   @Dirs = grep { $_ =~ /^./ } @Dirs;
    print join("\n",@Dirs);

ありがとう

Answer 1

をエスケープしてみてください.:

@Dirs = grep { $_ !~ /^\.\.?$/ } @Dirs;

ドットは、エスケープされていない場合に任意の文字に一致する特別なメタ文字です。

Answer 2

.正規表現では「任意の文字」を意味します。次のようにエスケープしてみてください。\.