??perl ???????syslog

??1?[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 : 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);