opendir, readdir test

readdir.pl

#!perl

use strict;
use warnings;

my $dir = shift;
if( ! defined($dir) ) { die "Usage: $0 <dir>"; }

opendir my $DIR_H, $dir or die "$dir: $!";
my @dir_entrys = map{ -d $dir ? $_ : "" } readdir $DIR_H;
foreach my $dir_entry (@dir_entrys) {
    print "$dir_entry\n" if ($dir_entry !~ /(\.|\.\.)/) ;
}
close $DIR_H;