[Perl]向syslog写入自定义日志(Sys::Syslog)

时间：2006-09-06 来源：huhuegg

#!/usr/bin/perl
use Sys::Syslog qw(:DEFAULT setlogsock); #若要使用setlogsock则需use Sys::Syslog qw(:DEFAULT setlogsock); print $$;
my $message="test_message";
#通过internet域套接字或通过本地UNIX域套接字连接SYSLOGD,$socktype : inet(default) unix
$socktype="unix";
setlogsock($socktype); #$identity,$options,$facility:服务器标识符，一组选项消息类型
#$options: cons,ndelay,nowait,pid : 若发送到syslogd失败则直接写到控制台，不等待立刻传输，包括PID，不等待被传输就返回
$identity="root";
@options=('cons','pid');
#$facility 定义了消息类型如下：
#       auth            用户认证
#       authpriv        有特权的用户认证
#       cron            cron守护进程
#       daemon          各种系统守护进程
#       ftp             ftp守护进程
#       kern            内核消息
#       local0-local7   保留用于本地用法
#       lpr             打印机
#       mail            邮件
#       news            新闻
#       syslog          内部syslog
#       uucp            uucp系统
#       user            各种用户程序来的消息
$facility="local0"; openlog($identity,\@options,$facility); #syslog 优先级: emerg alert crit err warning notice info debug
syslog('err',$message);

相关阅读更多 +