Perl Syslog server

概述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   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

    );

总结

以上是内存溢出为你收集整理的Perl Syslog server全部内容，希望文章能够帮你解决Perl Syslog server所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。