perl - 如何在Perl中将文件与目录区分开？

Question

我试图遍历Perl中当前目录的所有子目录，并从这些文件中获取数据。我正在使用grep获取给定目录中所有文件和文件夹的列表，但是我不知道返回的哪个值是文件夹名称，哪个是没有文件扩展名的文件。

我该如何区分？

Answer 1

您可以使用 -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.

See perlfunc manual page for more

Also, try using File::Find which can recurse directories for you. Here's a sample which looks for directories....

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

find(\&wanted, $mydir);