如何在Perl中獲得目錄列表？

Question

我想在Perl程序中執行ls作爲CGI腳本的一部分。爲此，我使用了exec(ls)，但這不會從exec呼叫返回。

有沒有更好的方法來獲取在Perl目錄的目錄？

Answer 1

Exec根本不返回。如果你想這樣做，請使用系統。

如果你只是想讀取一個目錄，打開/ read/close-dir可能會更合適。

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

Answer 2

爲了獲得系統命令的輸出，您需要使用反引號。

$listing = `ls`; 

但是，Perl很擅長處理目錄本身。我建議使用File :: Find :: Rule。

Answer 3

EXEC不給控制回perl程序。 系統會，但它不會返回一個ls的結果，它會返回一個狀態碼。 刻度標記``會給你我們命令的輸出，但被某些人認爲是不安全的。

使用內置的dir函數。 opendir，readdir等。

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

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

Answer 4

我建議你看看IPC::Open3。它比系統或反引號可以更好地控制產生的進程。

Answer 5

其他人似乎都停留在問​​題的執行部分。

如果您想要目錄列表，請使用Perl內置的glob或opendir。你不需要一個單獨的過程。

Answer 6

在Linux上，我更喜歡看到：

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

Answer 7

另一個例子：

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

Answer 8

編輯：哎呀！我以爲你只是想要目錄的清單...刪除'目錄'電話，使這個劇本做你想做的事...

玩文件句柄是在我看來是錯誤的方式。以下是使用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 9

使用Perl通配：

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