如何正确处理 Perl 中的错误答案

【问题标题】：How to correctly handle errors in Perl如何正确处理 Perl 中的错误
【发布时间】：2011-07-22 13:02:52
【问题描述】：

当打开文件出错时，我试图阻止我的命令提示符关闭。我已经尝试过“die”命令，但是在显示消息后会立即关闭命令提示符。我希望能够打印一条错误消息，等待几秒钟，然后关闭或退出。现在，我可以让代码在关闭提示之前等待，但它从不显示我的错误消息：

open (LOG1, $file1) || (print "\n# Error in opening $file1, make sure it exists! #\n", sleep(3), exit);

【问题讨论】：

这只有在您将 perl 脚本作为窗口中的主进程运行时才会出现问题。使用视窗？如果是这样，您可能想要 Win32::Die

标签： perl file-io error-handling

【解决方案1】：

您误用了逗号运算符 - print 不会打印错误消息，而是返回 exit()!请改用分号。

【讨论】：

【解决方案2】：

我认为您正在使用 Windows 系统进行开发。如果是这样，您可以尝试在脚本中添加以下代码，该代码将在脚本退出之前显示：“Press any key to continue ...”。

END { system 'pause' }

【讨论】：

【解决方案3】：

我怀疑sleep 没有刷新输出缓冲区，所以这可以解释为什么你看不到任何打印出来的东西；你可以试试：

open (LOG1, $file1) || ((print "\n# Error in opening $file1, make sure it exists! #\n"), $|++, sleep(3), exit);

无论如何，在我看来，最好像这样定义一个dieAfterDelay 函数：

sub dieAfterDelay {
    my $msg = shift;
    my $delay = shift;
    my $errNo = shift;
    print $msg . "\n", $|++;
    sleep($delay);
    exit($errNo);
}

你可以这样使用：

open (LOG1, $file1) || dieAfterDelay("\n# Error in opening $file1, make sure it exists! #\n", 3, -1);

【讨论】：

$|如果设置为非零，则在当前选定的输出通道上每次写入或打印后立即强制刷新。
在这个例子中具体是做什么的？
它的作用是在print 语句之后立即刷新输出缓冲区。那只是一个尝试......