在 perl 中因错误而死亡但没有堆栈跟踪的正确方法是什么？

Question

我正在编写一个 perl 脚本，在检查用户在命令行上提供的选项的部分中，我想退出并显示一个错误，解释选项有什么问题。在这种情况下，不需要堆栈跟踪与此错误消息一起出现。那么，出现错误消息但没有堆栈跟踪或调试信息的最佳方式是什么？

我尝试了以下方法：

die "Invalid options";

产生了

Invalid options at myscript.pl line 49.

然后，我尝试了

use Carp;
...
croak "Invalid options";

产生了

Invalid options at myscript.pl line 47
    main::prepare_output_directory() called at myscript.pl line 546

那么我怎么能只带着 Invalid options 而死呢？

额外问题：为什么 croak 告诉我错误在第 47 行，而对 croak 的实际调用在第 49 行？

Answer 1

只需在 die 字符串末尾添加一个换行符即可：

die "Invalid options\n";

这样可以防止将错误位置附加到您的消息中。