如何在Perl中区分文件和目录?

你可以使用 -D 文件测试操作员以检查某个内容是否为目录。下面是一些常用的文件测试操作符

    -e  File exists.
    -z  File has zero size (is empty).
    -s  File has nonzero size (returns size in bytes).
    -f  File is a plain file.
    -d  File is a directory.
    -l  File is a symbolic link.

见 perlfunc manual page for more

同时,尝试使用 File::Find 它可以为您重复使用目录。下面是一个查找目录的示例…

sub wanted {
     if (-d) { 
         print $File::Find::name." is a directory\n";
     }
}

find(\&wanted, $mydir);

print "$file is a directory\n" if ( -d $file );

看看-x操作符:

perldoc -f -X

对于目录遍历,请使用file::find,或者,如果您不是受虐狂,请使用my file::next模块,该模块为您生成一个迭代器,不需要疯狂的回调。实际上,您可以让file::next只返回文件,而忽略目录。

use File::Next;

my $iterator = File::Next::files( '/tmp' );

while ( defined ( my $file = $iterator->() ) ) {
    print $file, "\n";
}

# Prints...
/tmp/foo.txt
/tmp/bar.pl
/tmp/baz/1
/tmp/baz/2.txt
/tmp/baz/wango/tango/purple.txt

它在 http://metacpan.org/pod/File::Next

my @files = grep { -f } @all;
my @dirs = grep { -d } @all;

我的$dh=opendir(“.”);
my@entries=grep!/^?美元/,readdir($dh);
关闭DH;

foreach我的$entry(@entries){
如果(-f$条目){
#$entry是一个文件
}ELSIF(-d$entry){
#$entry是一个目录
}
}

它会更容易使用 File::Find .