perl的Sys::Syslog模块(openlog,syslog,closelog函数,setlogsock)-自定义日志

http://blog.chinaunix.net/xmlrpc.php?r=blog/article&uid=30572348&id=5603558

?

自定义日志模块(Sys::Syslog)

1、语法:
use Sys::Syslog; ? ? ? ? ? ? ? ? ? ? ? ? ?# all except setlogsock(),or:
use Sys::Syslog qw(:DEFAULT setlogsock); ?# default set,plus setlogsock()增强版
use Sys::Syslog qw(:standard :macros); ? ?# standard functions,plus macros

2、setlogsock使用
? ? ?setlogsock($sock_type)
? ? ?setlogsock($sock_type,$stream_location)
? ? ? ? ? ?· ? "native" - use the native C functions from your syslog(3) library (added in "Sys::Syslog" 0.15).
? ? ? ? ? ?· ? "eventlog" - send messages to the Win32 events logger (Win32 only; added in "Sys::Syslog" 0.19).
? ? ? ? ? ?· ? "tcp" - connect to a TCP socket,on the "syslog/tcp" or "syslogng/tcp" service.
? ? ? ? ? ?· ? "udp" - connect to a UDP socket,on the "syslog/udp" service.
? ? ? ? ? ?· ? "inet" - connect to an INET socket,either TCP or UDP,tried in that order.
? ? ? ? ? ?· ? "unix" - connect to a UNIX domain socket (in some systems a character special device). ?The name of that socket is
? ? ? ? ? ? ? ?the second parameter or,if you omit the second parameter,the value returned by the "_PATH_LOG" macro (if your
? ? ? ? ? ? ? ?system defines it),or /dev/log or /dev/conslog,whatever is writable.
? ? ? ? ? ?· ? "stream" - connect to the stream indicated by the pathname provided as the optional second parameter,or,if
? ? ? ? ? ? ? ?omitted,to /dev/conslog. ?For example Solaris and IRIX system may prefer "stream" instead of "unix".
? ? ? ? ? ?· ? "pipe" - connect to the named pipe indicated by the pathname provided as the optional second parameter,to the value returned by the "_PATH_LOG" macro (if your system defines it),or /dev/log (added in
? ? ? ? ? ? ? ?"Sys::Syslog" 0.21).
? ? ? ? ? ?· ? "console" - send messages directly to the console,as for the "cons" option of "openlog()".?

3、函数:
3.1openlog函数
? openlog($ident,$logopt,$facility;) ?定义日志内容 ? ??
? ? ? ? ? $ident //每一个日志信息前均会附加$ident
? ? ? ? ? $logopt //选项
? ? ? ? ??$facility // 类型

??logopt选项:
? ? ? ? · ? "cons" - This option is ignored,since the failover mechanism will drop down to the console automatically if all other media fail.
? ? ? ? · ? "ndelay" - Open the connection immediately (normally,the connection is opened when the first message is logged).
? ? ? ? · ? "nofatal" - When set to true,"openlog()" and "syslog()" will only emit warnings instead of dying if theconnection to the syslog can‘t be established.
? ? ? ? · ? "nowait" - Don‘t wait for child processes that may have been created while logging the message. ?(The GNU C library does not create a child process,so this option has no effect on Linux.)
? ? ? ? · ? "perror" - Write the message to standard error output as well to the system log.
? ? ? ? · ? "pid" - Include PID with each message.

??facility类型:
? ? ? auth ? ? ? ? ? ?用户认证
? ? ? authpriv ? ? ? ?有特权的用户认证
? ? ? cron ? ? ? ? ? ? cron守护进程
? ? ? daemon ? ? ? ? ?各种系统守护进程
? ? ? ftp ? ? ? ? ? ? ?ftp守护进程
? ? ? kern ? ? ? ? ? ? 内核消息
? ? ? local0-local7 ? 保留用于本地用法
? ? ? lpr ? ? ? ? ? ? ??打印机
? ? ? mail ? ? ? ? ? ?邮件
? ? ? news ? ? ? ? ? ?新闻
? ? ? syslog ? ? ? ? ?内部syslog
? ? ? uucp ? ? ? ? ? ?uucp系统
? ? ? user ? ? ? ? ? ?各种用户程序来的消息

3.2syslog函数
? syslog($priority,$message)
? syslog($priority,$format,@args)
? syslog可定义优先级
? $priority can specify a level,or a level and a facility.

? *先用openlog()定义格式,syslog()定义内容 //use "openlog()" before using "syslog()"

3.3closelog()
? ? ? ? Closes the log file and returns true on success.


具体例子:
setlogsock(["unix","udp","native","tcp"]); ?#通过unix,udp,tcp socket连接LOG ?
my $identity = "czw-syslog";
my @options = (‘cons‘,‘pid‘);
my $facility = "local5";
openlog($identity,@options,$facility); ?#定义了格式等 ?

syslog(‘info‘,"message");

?

-----------------------------

?

?

===================================