perlでsyslogへメッセージ出力
use Sys::Syslog qw(:DEFAULT setlogsock);
setlogsock('unix');
openlog("$program $$", 'ndelay', 'user');
syslog('notice', 'uchi test: syslog notice.');
syslog('info', 'uchi test: syslog info.');
syslog('warning', 'uchi test: syslog warning.');
開発Tips
|
|