如何检查perl中的目录是否为空？

Question

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

Answer 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.

这至少可以让你开始。