2011-07-04T09:43:00 havi

Die "Ordner" . und .. kannst du gleich beim readdir ausschließen:

Code (perl): (dl )

my @remove = grep { $_ !~ m/\.{1,2}/ } readdir($dfh);

dadurch werden aber alle verzeichnisse ignoriert, die irgendwo im namen einen oder zwei punkte haben. wenn dann:
grep { $_ !~ m/^\.{1,2}\z/ }