Perl:如何在没有错误消息的情况下 "die"？

Question

我使用以下代码在 perl 中运行一个简单的文件测试:

my $f1 = "$pre_file";

 unless (-e $1) {

 print "\n Pre_check file does not exists! \n";

 die;

 } 

它打印以下输出:

Pre_check file does not exists!
Died at ./huawei-postcheck line 81.

但是我不想要最后一行“死在 ./huawei-postcheck line 81.”。

我想在没有错误消息的情况下“死”。

是否可以？

Answer 1

请参阅 die 的文档.

If the last element of LIST does not end in a newline, the current script line number and input line number (if any) are also printed, and a newline is supplied.

因此，您只需使用 die "\n" 即可在不打印任何内容的情况下工作。 .但是鉴于您有一条错误消息，我不明白您为什么不使用它。

unless (-e $f1) {
  die "\n Pre_check file does not exist!\n";
}

当然，不同之处在于消息现在将转到 STDERR 而不是 STDOUT。但这可能是它去的正确地方。