0

我编写了以下方法来获取日志错误。我使用 $_ 来获取“错误类型”。

sub _log_warning {
    my $log = Log::Server->new(
        base_dir =>
          &config->current->{'log_reader'}->{'base_dir'},
        pattern => &config->current->{'log_reader'}->{'pattern'},
    );
    $log->infof("Could not register to DB. Got $_");
}

因为我看到 $_ 用于获取产生了什么类型的错误。我在这种情况下使用了这个：

 use Try::Tiny;
 try { _log_to_database(); }
 catch {
     _log_warning();
 };

这在语法上好吗？我希望 _log_warning(); 记录错误，$_ 应该说明发生的错误类型。但也许我没有很好地使用 $_ ？

更新：

当我尝试产生错误以激活该方法时，我得到了：

 2013-07-04T11:15:56 [INFO] Could not register to DB. Got ã<81><9d>ã<81>®ã<82><88>ã<81>     <86>ã<81>ªã<83><95>ã<82>¡ã<82>¤ã<83>«ã<82><84>ã<83><87>ã<82>£ã<83>¬ã<82>¯ã<83><88>ã<83>>> ªã<81>¯ã<81><82>ã<82><8a>ã<81>¾ã<81><9b>ã<82><93>: /var/log/app.error.log.%Y%m%d at script.pl line 36.\n at script.pl line 113

:(

@ikegami SOS

4

1 回答 1

1

所以根据Try::Tiny文件：

在 catch 块内，捕获的错误存储在 $_ 中，而之前的 $@ 值仍然可以使用。

所以这个模块将设置$_为被捕获的错误，所以你的使用看起来是正确的。这是一篇有趣的博客文章，讲述了设计背后的逻辑。

于 2013-07-04T02:07:45.337 回答