打开现有文件或创建一个具有不同名称的新文件

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!';