Perl通過正則表達式獲取文件

Question

在系統中的特定文件夾中有一個文件。 我知道它的名字是一個數字，我在一個變量中有這個數字。

我不知道這個文件有什麼擴展名。

我如何獲得這個文件？

Answer 1

(my $filename) = glob "$specific_folder_in_the_system/$that_number.*"; 

編輯：作爲池上低於所指出的，這是對目錄的具體路徑敏感。如果該目錄名稱包含空格或其他特殊字符，則會失敗。您可以減輕在嵌入式引號包裹字符串的非通配符部分：

(my $filename) = glob "'$specific_folder_in_the_system/$that_number.'*"; 

但是，這仍然會失敗例如$specific_folder_in_the_system = "/Users/O'Neal, Patrick";。

如果您不介意更改您當前的工作目錄，您可以先chdir($specific_folder_in_the_system) or die，然後再使用glob("$that_number.*")，只要$that_number確實是一個數字，這應該是安全的。

您還可以使用的opendir和grep組合代替glob：

opendir(my $dir, $specific_folder_in_the_system) or die; 
(my $filename) = grep /^$that_number\./ readdir $dir; 

Answer 2

my ($file) = glob "$num.*" ;