perl - 既存のファイルを開くか、別の名前で新しいファイルを作成します

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 でこの「try-catch」タイプの動作を行うにはどうすればよいですか?

Answer 1

それを行うための何百万もの方法の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!';