如何获取 Perl 中的目录列表？

Question

我想在 Perl 程序中执行 ls 作为 CGI 脚本的一部分。 为此，我使用了 exec(ls)，但这不会从 exec 调用中返回。

有没有更好的方法来获取 Perl 中的目录列表？

Answer 1

Exec根本没有返回。 如果你想要这样，请使用系统。

如果你只想读取一个目录，open/read/close-dir可能更合适。

opendir my($dh), $dirname or die "Couldn't open dir '$dirname': $!";
my @files = readdir $dh;
closedir $dh;
#print files...

Answer 2

其他人似乎都陷入了问题的 exec 部分。

如果您想要目录列表，请使用 Perl 的内置 glob 或 opendir。 您不需要单独的过程。

Answer 3

exec 不会将控制权交还给 perl 程序。
system 会，但它不会返回 ls 的结果，而是返回一个状态代码。
刻度线``将为您提供我们命令的输出，但有些人认为这是不安全的。

使用内置的 dir 函数。
opendir、readdir 等。

http://perldoc.perl.org/functions/opendir.html

http://perldoc.perl.org/functions/readdir.html

Answer 4

为了获得系统命令的输出，您需要使用反引号。

$listing = `ls`;

然而，Perl 本身擅长处理目录。 我建议使用 File::Find::Rule。

Answer 5

还有一个例子：

chdir $dir or die "Cannot chroot to $dir: $!\n";
my @files = glob("*.txt");

Answer 6

使用 Perl 通配符：

my $dir = </dir/path/*> 

Answer 7

编辑：哎呀！ 我以为你只是想要一个目录列表...删除“目录”调用以使该脚本执行您想要的操作...

在我看来，使用文件句柄是错误的方法。 下面是使用File::Find::Rule查找指定目录下的所有目录的示例。 对于你正在做的事情来说，这似乎有些过头了，但后来这可能是值得的。

首先，我的一行解决方案：

File::Find::Rule->maxdepth(1)->directory->in($base_dir);

现在是一个带有注释的更冗长的版本。 如果您安装了 File::Find::Rule，您应该能够毫无问题地运行它。 不要害怕 CPAN。

#!/usr/bin/perl

use strict;
use warnings;

# See http://search.cpan.org/~rclamp/File-Find-Rule-0.32/README
use File::Find::Rule;

# If a base directory was not past to the script, assume current working director
my $base_dir = shift // '.';
my $find_rule = File::Find::Rule->new;

# Do not descend past the first level
$find_rule->maxdepth(1);

# Only return directories
$find_rule->directory;

# Apply the rule and retrieve the subdirectories
my @sub_dirs = $find_rule->in($base_dir);

# Print out the name of each directory on its own line
print join("\n", @sub_dirs);

Answer 8

我建议您查看 IPC::Open3。 与系统或反引号相比，它允许对生成的进程进行更多的控制。

Answer 9

在 Linux 上，我更喜欢找到：

my @files = map { chomp; $_ } `find`;