如何檢查perl中的目錄是否爲空？

Question

什麼是檢查目錄是否爲空的簡單方法？ $ directory =「/ my_directory」 我只想檢查$ 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. 

這至少會讓你開始。