小编Che*_*etu的帖子

如何skipp.和DirHandle中的目录？

use DirHandle;
if (defined $d) {
    while (defined($_ = $d->read)) { print "$_ \n" ; }
 undef $d;
}