如何在Perl中向STDERR输出添加时间信息？

发布时间：2020-12-15 23:31:54 所属栏目：大数据来源：网络整理

导读：有没有一种简单的方法来标记错误发送到stderr？为了解决问题,我需要知道何时发生错误. 例： Dec 10 12:00:00 Can't call method "str" on an undefined value 谢谢！解决方法定义用于处理警告和致命错误的自定义处理程序： use strict;use warnings;$SIG{_

有没有一种简单的方法来标记错误发送到stderr？为了解决问题,我需要知道何时发生错误.

例：

Dec 10 12:00:00 Can't call method "str" on an undefined value

谢谢！

解决方法

定义用于处理警告和致命错误的自定义处理程序：

use strict;
use warnings;

$SIG{__WARN__} = sub { warn sprintf("[%s] ",scalar localtime),@_ };
$SIG{__DIE__}  = sub { die  sprintf("[%s] ",@_ };

warn;
die;

输出：

[Fri Dec 11 14:35:37 2009] Warning: something's wrong at c:tempfoo.pl line 7.
[Fri Dec 11 14:35:37 2009] Died at c:tempfoo.pl line 8.

您可能希望使用gmtime而不是localtime.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!