小编pdx*_*rlk的帖子

我一直在许多脚本中广泛使用Log4perl.我想扩充这些脚本以设置错误代码(如果已记录任何消息WARN或ERROR消息).基于现有文档,我找不到任何明显的方法来做到这一点.

我想避免对现有脚本进行暴力重写,以便对每条WARN或ERROR日志消息进行检查; 如果可能的话,我更喜欢在脚本退出之前处理它,就像这个伪代码一样:

if $log->has_warnings_or_errors then
  exit 1
else
  exit 0

有没有简单的方法来调用Log4Perl来确定当前的记录器是否存在某些级别的消息？