免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 2136 | 回复: 0

基于 SIGIO 信号的多路复用 ECHO 服务器 [复制链接]

论坛徽章:
0
发表于 2011-03-05 20:44 |显示全部楼层
本帖最后由 黑色阳光_cu 于 2011-03-05 21:07 编辑

  1. use strict;
  2. use warnings;
  3. use IO::Socket::INET;
  4. use Fcntl;
  5. use POSIX qw(EAGAIN);

  6. my @socks;
  7. my $listener = IO::Socket::INET->new
  8. (
  9.     Listen    => 5,
  10.     LocalAddr => "localhost",
  11.     LocalPort => 9000,
  12.     Proto     => "tcp",
  13. );

  14. fcntl($listener, F_SETOWN, $);
  15. fcntl($listener, F_SETFL, O_ASYNC);
  16. fcntl($listener, F_SETFL, fcntl($listener, F_GETFL, 0) | O_NONBLOCK);

  17. my $io_count = 0 ;
  18. $SIG{IO} = sub { ++$io_count };

  19. while (1) {
  20.     sleep 60;
  21.     while ($io_count > 0) {
  22.         $io_count--;
  23.         if (my $new_sock = $listener->accept()) {
  24.             fcntl($new_sock, F_SETOWN, $);
  25.             fcntl($new_sock, F_SETFL, O_ASYNC);
  26.             fcntl($new_sock, F_SETFL, fcntl($new_sock, F_GETFL, 0) | O_NONBLOCK);
  27.             push(@socks, $new_sock);
  28.         }

  29.         for (my $n = 0; $n <= $#socks; $n++) {
  30.             if (sysread($socks[$n], my $buf, 8192)) {
  31.                 syswrite($socks[$n], $buf);
  32.             }
  33.             else {
  34.                 next if ($! == EAGAIN);
  35.                 close $socks[$n];
  36.                 splice(@socks, $n, 1) && $n--;
  37.             }
  38.         }
  39.     }
  40. }

复制代码

UNIX环境高级编程 —— 高级 IO.pdf

1.28 MB, 下载次数: 37

您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP