Perl Syslog server

发布时间：2020-12-15 23:43:02 所属栏目：大数据来源：网络整理

导读：use strict; use Net::Dev::Tools::Syslog; sub test{ print scalar(@_),"n"; #print "@_n"; } my ? ($listen,$error) = Net::Dev::Tools::Syslog-listen( ? ? ? ? -proto ? ? ?= 'udp', ? ? ? ? -maxlength ?= 4096, ? ? ? ? -verbose ? ?= 0, -report =

use strict;

use Net::Dev::Tools::Syslog;

sub test{
print scalar(@_),"n";
#print "@_n";
}
my ? ($listen,$error) = Net::Dev::Tools::Syslog->listen(
? ? ? ? -proto ? ? ?=> 'udp',
? ? ? ? -maxlength ?=> 4096,
? ? ? ? -verbose ? ?=> 0,
-report => 0,
-recv_message => &;test

? ? );

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!