perl怎么判断一个目录下面的file是文件还是文件夹

xsm5315798

sjtusonic

#!/usr/bin/perl -w  
@files = <*>;

foreach $file (@files) {

if (-f $file) {
print "This is a file: " . $file;
}

if (-d $file) {
print "This is a directory: " . $file;
}

}

xsm5315798

回复 2# sjtusonic


    thx