Как вы можете выводить сообщения об ошибках в другой файл журнала?

Question

В Perl вы можете:

print STDERR "bla bla bla"; 

... и Apache сбросит его на /etc/httpd/logs/error_log.

Но что, если я хочу отправить несколько сообщений об ошибках / предупреждений в другой файл журнала?

Как я могу создать функцию для этого в Perl?

print MYLOGFILE "bla bla bla"

... для рендеринга в /logs/my_favorite_log?

Answer 1

Вам, вероятно, стоит взглянуть на некоторые формальные пакеты журналов для Perl, например log4perl .Несомненно, есть и другие.

Answer 2

Использование Журнал :: Trivial

use Log::Trivial;
my $logfile = Log::Trivial->new(log_file => "logs/my_favourite.log");
$logfile->set_level(3);
$logfile->write(comment => "bla bla bla");

Answer 3

Я бы порекомендовал посмотреть на Log :: Log4perl , как предложил Уилл. Есть хорошее введение учебное пособие .

Для небольших сценариев есть также быстрая настройка с easy mode .