perl - 如何在没有位置信息的情况下输出die()消息？

Question

我有一个脚本，它通过die引发异常。捕获异常时，我想输出不附加位置信息的消息。

该脚本:

#! /usr/bin/perl -w

use strict;

eval {
    die "My error message";
};
if($@) {
    print $@;
}

输出 My error message at d:\src\test.pl line 7.
我希望仅获得输出: My error message
希望人们不会专注于我为什么要这样做，但是如果有人感兴趣，那就:

我的脚本的工作方式是查找输入，并将每条输入分配给处理程序，如果遇到无法处理的输入，则会抛出该输入，因此所有异常都来自同一段代码。因此，在这种情况下，位置并不是非常有用。

Answer 1

将\n添加到您的字符串中:

die "My error message\n"

记录在 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.