>>231
あ、配列かm(_ _)m深謝
my @files = grep !/^\.{1,2}$/, readdir DH or die "$!";