首页 手机软件 手机游戏 单机游戏 资讯文章 专题下载 游戏合集 文章合集 php下载 php教程 电脑软件
+ -
当前位置：首页 → 问答吧 → 请教TCP Socket的编程问题

请教TCP Socket的编程问题

时间：2010-12-27

来源：互联网

下面这段代码是一个TCP socket编写的网络服务器程序，请问，为什么它在接收并处理完第一个request后就退出了？
  1. #!/usr/bin/perl

  3. use Socket;
  4. use POSIX qw(:sys_wait_h);

  6. sub REAPER {
  7.   1 until -1 == waitpid(-1, WNOHANG);
  8.   $SIG{CHLD} = \&REAPER;
  9. }

  11. $SIG{CHLD} = \&REAPER;

  13. socket(SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
  14. setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, 1);
  15. $my_addr = sockaddr_in(8080, INADDR_ANY);
  16. bind SERVER, $my_addr;
  17. listen(SERVER, 1000);
  18. REQUEST:
  19. while (accept(CLIENT, SERVER)) {
  20.   if ($pid = fork) {
  21.     close CLIENT;
  22.     next REQUEST;
  23.   }
  24.   die "$!" unless defined $pid;
  25.   close SERVER;
  26.   print CLIENT "hello\n";
  27.   close CLIENT;
  28.   exit;
  29. }
复制代码

作者: lululau   发布时间: 2010-12-27

StackOverflow上有哥们给了个解答，说accept会被SIGCHLD中断，下面是他给出的代码
  1. #!/usr/bin/perl

  3. use strict;
  4. use warnings;
  5. use Socket;
  6. use POSIX qw(:sys_wait_h);

  8. sub REAPER {
  9.   local $!;                    # Don't let signal handler mess with $!
  10.   1 until -1 == waitpid(-1, WNOHANG);
  11.   $SIG{CHLD} = \&REAPER;
  12. }

  14. $SIG{CHLD} = \&REAPER;
  15. socket(SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
  16. setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, 1);
  17. my $my_addr = sockaddr_in(8080, INADDR_ANY);
  18. bind SERVER, $my_addr;
  19. listen(SERVER, 1000);
  20. REQUEST:
  21. while (1) {
  22.   my $paddr = accept(CLIENT, SERVER) || do {
  23.     # try again if accept() returned because a signal was received
  24.     next REQUEST if $!{EINTR};
  25.     die "accept: $!";
  26.   };

  28.   my $pid;
  29.   if ($pid = fork) {
  30.     close CLIENT;
  31.     next REQUEST;
  32.   }
  33.   die "$!" unless defined $pid;
  34.   close SERVER;
  35.   print CLIENT "hello\n";
  36.   close CLIENT;
  37.   exit;
  38. }
复制代码

作者: lululau   发布时间: 2010-12-27

相关阅读 更多

热门阅读

热门下载

更多
关于本站 免责申明 联系我们

Copyright 2006-2020 php爱好者(phpfans.net) All Rights Reserved.备案号：湘ICP备2023016114号-2

本站为非盈利性网站，不接受任何广告。本站所有资源均由网友上传，如有侵权，请发邮件至 [email protected] phpfans.net