#!/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);
阅读(1613) | 评论(0) | 转发(0) |