perl中如何判断一个目录是否为空？ [复制]

【问题标题】：How to check if a directory is empty in perl? [duplicate]perl中如何判断一个目录是否为空？ [复制]
【发布时间】：2014-10-02 03:13:10
【问题描述】：

检查目录是否为空的简单方法是什么？ $directory = "/my_directory" 我只想检查 $directory 是否为空，或者有任何文件，或者是否有任何具有特定扩展名的文件，例如 *.txt。

【问题讨论】：

标签： perl

【解决方案1】：

我不懂 Perl，所以这个答案不完整。

// Create an integer variable that is initially set to 0.
opendir ( DIR, $dirname )
// Check if opendir failed. Return whatever value you think is appropriate.
while( ($filename = readdir(DIR))){
    // Increment integer variable
}
// Check if integer variable is 0.

这至少可以帮助您入门。

【讨论】：