打開現有文件或使用其他名稱創建一個新文件

Question

在Perl腳本中，我需要打開特定文件，但如果該文件未打開（已損壞等），則需要創建一個新文件一個新的名字。如果我不能創建這個新文件，我會因爲某些顯然是錯誤的而死掉。這裏是我想要做的僞代碼：

if (!(open my $testFile, q{>>}, "C:\foo\bar\log.csv")) { 
    open my $testFile, q{>>}, "C:\foo\bar\log1.csv"; 
} 
if (!$testFile) { 
    die $!; 
} 

我該如何做到這一點在Perl中的「嘗試趕上」類型的行爲？

Answer 1

的百萬方法可以做到這一個：

my $fh; 
open $fh, '<', 'C:\foo\bar\log.csv' or open $fh, '<', 'C:\foo\bar\log1.csv' or die 'Can not open any file!';