我使mojolicious应用程序中使用简单的日志记录。 我想通过一些信息来扩展日志记录。 这可能是IP地址或事务ID或会话ID。 我做之前写这样每个日志级别一个帮手:
$self->helper( 'info' => sub {
my $self=shift;
my $msg=shift;
my $ip=$self->tx->remote_address;
$self->app->log->info("[$ip] $msg");
});
...
$self->info("Login failed of user $user.");
我想修改日志输出的格式,这样我就可以使用普通的日志功能,这将增加我需要任何额外价值,没有很多帮手为每个日志级别。 的基本呼叫:
$self->app->log->info("Login failed of user $user.");
还应该给像日志条目
[Sun Jun 8 11:09:12 2014] [info] [127.0.0.1] Login failed of user Tim.
我尝试做的更改日志的格式,但任何事情我做的做被忽略。
$self->app->log->format(sub {
my ($time, $level, @lines) = @_;
return "[$time] [$level] [$self->tx->remote_address] @lines.\n";
});
我知道有Log4Perl与Mojolicious组合。 但我要保持它的简单越好。