Hatena::Groupfragments

うまい棒の断片

2008-05-06

[]syslogにロギングする 12:03 はてなブックマーク - syslogにロギングする - うまい棒の断片

#!/usr/bin/perl
use Sys::Syslog qw(:DEFAULT setlogsock);

setlogsock 'unix';
# openlog($ident, $logopt, $facility)
openlog('ident', 'pid', 'local0');
# syslog($priority, $message)
syslog('info', 'hogehoge');
closelog();

setlogsockはperldoc Sys::Syslogいわく、

Sets the socket type to be used for the next call to "openlog()" or "syslog()" and returns true on success, "undef" on failure.

(中略)

The default is to try "tcp", "udp", "unix", "stream", "console".

だから場合によっては設定しなくてよい?