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, or, if
omitted, 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");
-----------------------------
syslog('err',$message);
===================================