Perl中获取目录下文件名

use strict;

my $path="d:\\"; #设置查询的目录
opendir(TEMPDIR, $path) or die "can't open it:$!";
my @dir = grep -d, readdir TEMPDIR; #-d表示选出目录文件，还可以换成其它表达式
print join "\n",@dir;
close TEMPDIR;

use strict;

my $path="d:\\*";
my @dir=glob($path);

foreach (@dir)
{
    print;
    print "\n";
}