首页 手机软件 手机游戏 单机游戏 资讯文章 专题下载 游戏合集 文章合集 php下载 php教程 电脑软件
+ -
当前位置：首页 → 问答吧 → 子线程中执行sleep(5),主线程也跟着sleep?

子线程中执行sleep(5),主线程也跟着sleep?

时间：2011-07-17

来源：互联网

本帖最后由 heidern 于 2011-07-17 15:20 编辑

最近在研究多线程,想写个服务器端程序.
  1. #!/usr/local/perl5.12/bin/perl
  2. use strict;
  3. use warnings;
  4. use threads (
  5.         'exit' => 'threads_only',
  6. );
  7. use IO::Socket;
  8. use Data::Dumper;

  10. $|=1;
  11. my $serverFD=IO::Socket::INET->new(
  12.         LocalPort       =>      12340,
  13.         Type            =>      SOCK_STREAM,
  14.         Listen          =>      SOMAXCONN,
  15.         Reuse           =>      1
  16. ) || die $!;

  18. # create a thread to monitor the threads
  19. threads->create(\&threadMonitor);

  21. # when a connect accepted , create a thread to process it
  22. while (1) {
  23.         threads->create(\&talk,$serverFD->accept());
  24. }

  26. sub talk
  27. {
  28.         my ($clientFD,$clientInfo)=@_;
  29.         my ($clientport,$clientaddr) = unpack_sockaddr_in($clientInfo);
  30.         my $clientip = inet_ntoa($clientaddr);
  31.         my $tid = threads->self->tid();
  32.         print "Client From => $clientip\:$clientport My number is $tid\n";
  33.         while (<$clientFD>) {
  34.                 print "client $tid from $clientip say: $_";
  35.                 chomp($_);
  36.                 if ($_ =~ m/hello/i) {
  37.                         print $clientFD "tid=$tid,Hello Client from $clientip\n";
  38.                 } elsif ($_ =~ m/bye/i) {
  39.                         print $clientFD "tid=$tid,Bye Bye Client from $clientip\n";
  40.                         close $clientFD;
  41.                         last;
  42.                 }
  43.         }
  44.         threads->self->detach();
  45. }

  47. sub threadMonitor
  48. {
  49.         print "Monitor Thread Created!!\n";
  50.         while(1) {
  51.                 my @ths_r=threads->list(threads::running);
  52.                 my $threadNums_running=$#ths_r+1;
  53.                 my @ths_j=threads->list(threads::joinable);
  54.                 my $threadNums_joinable=$#ths_j+1;
  55.                 print "There are $threadNums_running threads running and $threadNums_joinable threads joinable\n";
  56.                 sleep(5);
  57.         }
  58.         threads->self->detach();
  59. }
复制代码
当threadMonitor这个线程sleep的时候,主线程也会sleep,为什么?

作者: heidern   发布时间: 2011-07-17

怎么就都这么迷信多线程呢。

作者: flw   发布时间: 2011-07-17

相关阅读 更多

热门阅读

热门下载

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

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

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