例子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);