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

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

#!/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);