获取给定路径下的目录名称

Question

我正在尝试获取给定路径下所有一级目录的名称。

我尝试使用File::Find，但遇到了问题。

有人可以帮我吗？

Answer 1

使用-d文件检查运算符：

#!/usr/bin/perl

use strict;
use warnings;
use autodie;

my $path = $ARGV[0];
die "Please specify which directory to search" 
    unless -d $path;

opendir( my $DIR, $path );
while ( my $entry = readdir $DIR ) {
    next unless -d $path . '/' . $entry;
    next if $entry eq '.' or $entry eq '..';
    print "Found directory $entry\n";
}
closedir $DIR;

Answer 2

如果不需要遍历整个目录层次结构，File::Slurp 比File::Find 好用得多。

use strict;
use warnings;
use File::Slurp qw( read_dir );
use File::Spec::Functions qw( catfile );

my $path = shift @ARGV;
my @sub_dirs = grep { -d } map { catfile $path, $_ } read_dir $path;
print $_, "\n" for @sub_dirs;

如果您确实需要遍历层次结构，请检查 CPAN 以获得更友好的 File::Find 替代方案。

• File::Finder 和 File::Find::Rule 是 File::Find 的前端。

• File::Find::Closures值得学习学习File::Find的使用方法和方法 写闭包。

• File::Next 使用迭代器方法进行目录遍历和 看起来很有希望，虽然我从未使用过。

最后，本着 TIMTOWTDI 的精神，这里有一些快速而低俗的东西：

my @sub_dirs = grep {-d} glob("$ARGV[0]/*");

Answer 3

use File::Spec::Functions qw( catfile );

my ($path) = @ARGV;

opendir my $DIR, $path 
    or die "Cannot open directory: '$path': $!";

while ( my $entry = readdir $DIR ) {
    next if $entry =~ /\A\.\.?\z/;
    next unless -d catfile $path, $entry;
    print $entry, "\n";
}

closedir $DIR;

这对我有用。

Answer 4

我在 Windows XP 下运行 ActivePerl 5.10.1。如果我想获取根驱动器 F 下的所有目录名称。我将使用以下代码：

#!perl
opendir (DIR,'F:/');
my @folder = readdir(DIR);
foreach my $f (@folder)
{
   next if ($f =~ /\./);
   print "$f\n";
 }

嗯，这通常有效，因为我的文件夹名称不包含点。否则失败。

好吧，似乎即使我的方法适用于我的情况，人们仍然会因为它有问题而投反对票。所以我不得不使用官方方法， -d 标志来检查文件是否是目录：

升级后的代码：

#!perl
use strict;
use warnings;

opendir (DIR, "F:/");
my @files = readdir(DIR);
my @dirs = grep { -d } @files;
print @dirs;

Answer 5

使用opendir 和-d。

Answer 6

您可以使用 find2perl 将您的 find 命令转换为 perl。有关详细信息，请参阅 perldoc find2perl。

maxdepth 的解决方法：（来自 Randall 的参考）

$  find2perl /home/path -type d -eval 'my $slashes = $File::Find::name =~ tr#/##;return $File::Find::prune = 1 if $slashes > 2;return if $slashes ==2'

代码：

   use strict;
    use File::Find ();
    use vars qw/*name *dir *prune/;
    *name   = *File::Find::name;
    *dir    = *File::Find::dir;
    *prune  = *File::Find::prune;
    sub wanted;

    File::Find::find({wanted => \&wanted}, '/');
    exit;
    sub wanted {
        eval { my $slashes = $File::Find::name =~ tr#/##;return $File::Find::prune = 1 if $slashes > 1;return if $slashes ==1 };
        if ( $? == "0" && -d _  ){
            print "$name --- \n";   
        }
    }

输出

$ pwd
/temp

$ tree
.
|-- dir1
|   |-- subdir1
|   |   |-- subsubdir1
|   |   `-- testsubdir1.txt
|   `-- testdir1.txt
|-- dir2
|   |-- subdir2
|   |   |-- subsubdir2
|   |   `-- testsubdir2.txt
|   `-- testdir2.txt
|-- dir3
|   `-- subdir3
|       `-- subsubdir3
`-- test

9 directories, 5 files

$ perl perl.pl
/temp ---
/temp/dir3 ---
/temp/dir1 ---
/temp/dir2 ---

Answer 7

使用文件::查找::规则

#!/usr/bin/perl --
use strict;
use warnings;

use Shell::Command qw( rm_rf touch mkpath );
use autodie;
use File::Find::Rule;

Main(@ARGV);
exit(0);

sub Main{
  use autodie;
  my $dir = "tmp";
  mkdir $dir;
#~   chdir $dir;
  mkpath "$dir/a/b/c/d";
  mkpath "$dir/as/b/c/d";
  mkpath "$dir/ar/b/c/d";

  print `tree`;
  print "---\n";
  print "$_\n"
    for File::Find::Rule->new->maxdepth(1)->directory->in($dir);

  print "---\n";

  print "$_\n"
    for grep -d, glob "$dir/*"; ## use forward slashes, See File::Glob

#~   chdir "..";
  rm_rf $dir;
}
__END__
.
|-- test.pl
`-- tmp
    |-- a
    |   `-- b
    |       `-- c
    |           `-- d
    |-- ar
    |   `-- b
    |       `-- c
    |           `-- d
    `-- as
        `-- b
            `-- c
                `-- d

13 directories, 1 file
---
tmp
tmp/a
tmp/ar
tmp/as
---
tmp/a
tmp/ar
tmp/as

或者使用 File::Find::Rule 前端 findrule

$ findrule tmp -maxdepth ( 1 ) -directory
tmp
tmp/a
tmp/ar
tmp/as

Answer 8

你可以使用 File::Find。例如：

use File::Find ();

File::Find::find(\&wanted, '.');

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

对于在'.' 下找到的每个文件，这将调用wanted 子例程。在子例程中，您可以使用-d 来检查目录。

File::Find:find 下降到指定目录下的树中的所有子目录。