如何創建一個文件的完整路徑，如果它不存在？

Question

在一個函數中我得到一個文件的引用。這可能是一種格式dir1/subdir/filename.txt
是否有Perl的辦法做到：

1. 如果文件不存在，創建它和目錄結構 好，如果它不存在
2. 這種方式保證，如果兩個腳本試圖同時做同樣的 什麼都不會發生錯誤（例如最終與 損壞/鎖定的文件等）？

Answer 1

1. 要檢查文件是否存在，你可以做

my $filename="dir1/subdir/filename.txt";

if (-e $filename) 
{ 
    print "file exists"; 
    open(FILE, '<', $filename) or die 'Could not open file: ' . $!; 

} 

elsif (!-e $filename) 
{ 
print "file does not exist"; 

} 

兩個-e和-f可以用來檢查文件是否存在或不
2.爲了避免衝突，我認爲你可以在文件名中創建帶有創建時間的文件。但是，我不確定您是否可以使用相同的方式創建。