发布时间:2020-01-20 17:40:38
点击(此处)折叠或打开#!/usr/bin/perl# tcp_iosocket_dt_srv.pluse strict;use IO::Socket;use POSIX qw(WNOHANG);$SIG{CHLD} = sub { while((my $pid = waitpid.........【阅读全文】
发布时间:2020-01-20 17:40:36
点击(此处)折叠或打开#!/usr/bin/perl# tcp_iosocket_dt_srv.pluse strict;use IO::Socket;use POSIX qw(WNOHANG);$SIG{CHLD} = sub { while((my $pid = waitpid.........【阅读全文】