[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

>>阅读原文<<