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

百万种方法之一：

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