发布时间:2012-12-29 14:20:17
#!/usr/bin/perluse 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:服务器标识符,一组......【阅读全文】