2006-09-21

perlからsyslog

perlからsyslogを書く。

use Sys::Syslog qw(:DEFAULT setlogsock);

Sys::Syslog::setlogsock('unix');
Sys::Syslog::openlog('log.pl', 'pid', 'local0');
Sys::Syslog::syslog('info', 'Start');
Sys::Syslog::closelog( );


人気blogランキングへ

0 件のコメント: