我希望我的脚本Perl会在生成警告时死掉，包括使用包生成的警告。 例如，该不死 use strict;
use warnings;
use Statistics::Descriptive;
my @data = (8, 9, 10, "bbb");
my $stat = Statistics::Descriptive::Full->new();
$stat->add_data(@dat
我正在编写一个perl脚本，并且在我正在检查用户在命令行中提供的选项的部分中，我希望退出并解释错误解释选项的错误。在这种情况下，不需要堆栈跟踪来处理此错误消息。那么什么是最好的方式与一个错误信息，但没有堆栈跟踪或调试信息死亡？ 我已经试过如下： die "Invalid options";
产生 Invalid options at myscript.pl line 49.
然后，我试过
所以，我有这样的代码： } else {
$photograph_moderation = new PhotographModeration($this->photograph_id);
$photograph_moderation->purgePhotograph();
//eventually take to an error page
我有以下脚本 <?php
echo "I am alive<br>";
die("I am dying<br>");
echo ("Dead");
?>
，我得到的是 I am alive
I am dying
有没有办法使用（的die()替代/替代品）的输出，继续执行剩余的脚本？ 编辑： 对不起，我已经得到了我想要的东西，并投票决定关闭的问题。请
我以自动为在URL中与阿贾克斯的每一个环节的Ajax调用附加了一些活的（）听众： $("document").ready(function() {
$('a[href^="/ajax"]').live('click', call);
});
function call(e, context, link) {
e && e.preventDefault();
li
我花了一段时间来跟踪我的代码突然出现的问题，但似乎WWW :: Mechanize :: GZip以某种方式触发我的$ SIG处理程序。考虑这个代码： use strict;
use WWW::Mechanize::GZip;
$SIG{__DIE__} = sub {
print "WTF??? WHY IS THIS BEING TRIGGERED?\n";
};
my