会python真的可以为所欲为0(回)
350天前
这里还有人吗1(回)
535天前这里还有人吗0(回)
535天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
760天前到处都是羊，不想上班0(回)
840天前
鸽子
0(回)
844天前#----------------------------- |
# set up the socket SERVER, bind and listen ... |
use POSIX qw ( :sys_wait_h ); |
sub REAPER |
{ |
1 until ( -1 == waitpid ( -1, WNOHANG ) ); |
$SIG{CHLD} = \&REAPER; |
# unless $] >= 5.002 |
} |
$SIG {CHLD} = \&REAPER; |
while ( $hisaddr = accept ( CLIENT, SERVER ) ) |
{ |
next if $pid = fork; |
# parent |
die "fork: $!" unless defined $pid; |
# failure |
# otherwise child |
close ( SERVER ); |
# no use to child |
# ... do something |
exit; |
# child leaves |
} |
continue |
{ |
close ( CLIENT ); |
# no use to parent |
} |
#----------------------------- |
