首页 手机软件 手机游戏 单机游戏 资讯文章 专题下载 游戏合集 文章合集 php下载 php教程 电脑软件
+ -
当前位置：首页 → 问答吧 → 百思不得其解的多线程问题!!!

百思不得其解的多线程问题!!!

时间：2011-02-22

来源：互联网

本帖最后由 xxhacker 于 2011-02-22 18:30 编辑

本人想写一个多进程/多线程 连接主机的脚本，多进程没有问题，但是多线程确一直困扰着我，执行的时候程序一直卡那里,等待连接的返回值，我也不知道什么原因，特救助！！！！！
  1. #!/usr/bin/perl  
  2. use strict;
  3. use threads;
  4. use Net::SSH::Perl;
  5. #use Parallel::ForkManager;

  7. my @thread_array;
  8. my @clients = ("192.168.161.40","192.168.161.146");
  9. #my $max_procs = 10;
  10. #my $pm =  new Parallel::ForkManager($max_procs);
  11. my $cmd='uname -r';
  12. my $user='root';
  13. my $pass='pass';

  15. #foreach my $host (@clients){
  16. #        my $pid = $pm->start and next;
  17. #        &SSH($host);
  18. #        $pm->finish;
  19. #}  

  21. sub SSH
  22. {
  23.     my $host = shift;
  24. #    chomp( $host );  
  25.     my $ssh = Net::SSH::Perl->new( $host );
  26.     $ssh->login($user, $pass);
  27.     my($out) = $ssh->cmd($cmd);
  28.     print "$host\t$out";
  29. #   return $out;
  30. }

  32. sub Test  
  33. {
  34.     my $text = shift;
  35.     print "$text\n";
  36. }

  38. for(my $i = 0; $i <= $#clients; $i++){
  39.     $thread_array[$i] = threads->new(\&SSH, $clients[$i]);
  40. }

  42. foreach my $thread ( @thread_array )
  43. {
  44.     $thread -> join( );
  45. }
复制代码

作者: xxhacker   发布时间: 2011-02-22

my($out) = $ssh->cmd($cmd);

我记得是三个返回值吧？ 有一个是判断命令执行成功，还有是cmd的返回值，还有一个什么的我忘记了

作者: dahe_1984   发布时间: 2011-02-23

相关阅读 更多

热门阅读

热门下载

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

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

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