免费注册 查看新帖 |

ChinaUnix.net

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

请教iakuf AnyEvent::ssh2模块的问题 [复制链接]

论坛徽章:
39
技术图书徽章
日期:2018-08-21 13:30:492015亚冠之首尔
日期:2015-11-04 22:25:43IT运维版块每日发帖之星
日期:2015-08-17 06:20:00寅虎
日期:2014-06-04 16:25:27狮子座
日期:2014-05-12 11:00:00辰龙
日期:2013-12-20 17:07:19射手座
日期:2013-10-24 21:01:23CU十二周年纪念徽章
日期:2013-10-24 15:41:34数据库技术版块每日发帖之星
日期:2015-12-01 06:20:00平安夜徽章
日期:2015-12-26 00:06:30技术图书徽章
日期:2018-08-21 13:30:242016科比退役纪念章
日期:2018-03-07 11:23:33
发表于 2015-05-13 17:33 |显示全部楼层
本帖最后由 laputa73 于 2015-05-13 17:51 编辑

  前不久发现扶凯(@iakuf)提交了AnyEvent-SSH2-0.04模块
正好可能用的到,就试了一下提供的例子
提示如下信息
[root@search2 eg]# perl tassh.pl
Subroutine AnyEvent::SSH2::CHAN_INPUT_CLOSED redefined at /usr/local/lib/perl5/site_perl/5.18.0/Net/SSH/Perl/Constants.pm line 174.
Subroutine AnyEvent::SSH2::CHAN_INPUT_WAIT_DRAIN redefined at /usr/local/lib/perl5/site_perl/5.18.0/Net/SSH/Perl/Constants.pm line 174.
Useless use of a constant ("") in void context at /usr/local/lib/perl5/site_perl/5.18.0/AnyEvent/SSH2.pm line 858.
Useless use of a constant ("") in void context at /usr/local/lib/perl5/site_perl/5.18.0/AnyEvent/SSH2.pm line 923.
Too late to run CHECK block at /usr/local/lib/perl5/site_perl/5.18.0/x86_64-linux/EV.pm line 123.

5
1
17:27:29 up 49 days, 6 min,  9 users,  load average: 0.00, 0.00, 0.00
[root@search2 eg]#

看起来并没有异步执行
是哪里出了问题呢?
我的环境
CentOS release 6.4 (Final)
perl (v5.18.0) built for x86_64-linux

论坛徽章:
1
辰龙
日期:2014-05-15 19:37:15
发表于 2015-05-20 18:32 |显示全部楼层
回复 1# laputa73


给你的代码发出来, 我看看

   

论坛徽章:
39
技术图书徽章
日期:2018-08-21 13:30:492015亚冠之首尔
日期:2015-11-04 22:25:43IT运维版块每日发帖之星
日期:2015-08-17 06:20:00寅虎
日期:2014-06-04 16:25:27狮子座
日期:2014-05-12 11:00:00辰龙
日期:2013-12-20 17:07:19射手座
日期:2013-10-24 21:01:23CU十二周年纪念徽章
日期:2013-10-24 15:41:34数据库技术版块每日发帖之星
日期:2015-12-01 06:20:00平安夜徽章
日期:2015-12-26 00:06:30技术图书徽章
日期:2018-08-21 13:30:242016科比退役纪念章
日期:2018-03-07 11:23:33
发表于 2015-05-21 16:46 |显示全部楼层
回复 2# iakuf
代码就是照cpan文档写的
这个是单主机异步执行命令的
理论上应该应该先出1,再出5
  1. [root@search2 eg]# cat tassh.pl
  2. #!/usr/local/bin/perl -w
  3. use strict;
  4. use AE;
  5. use AnyEvent::SSH2;
  6.     my $ssh = AnyEvent::SSH2->new(
  7.         '192.168.6.150',
  8.         user => 'sss',
  9.         pass => 'sss',
  10.     );   
  11.    
  12.    
  13.     my $cv = AE::cv;
  14.     $cv->begin;
  15.     $ssh->send('sleep 5; echo 5' => sub {
  16.         my ($ssh,  $stdout, $stderr) = @_;
  17.         print "$stdout";
  18.         $cv->end;
  19.     });
  20.    
  21.     $cv->begin;
  22.     $ssh->send('sleep 1; echo 1 ; uptime' => sub {
  23.         my ($ssh,  $stdout, $stderr) = @_;
  24.         print "$stdout";
  25.         $cv->end;
  26.     });
  27.    
  28.     $ssh->connect;  
  29.    
  30.     $cv->recv;

  31. [root@search2 eg]# perl tassh.pl
  32. Subroutine AnyEvent::SSH2::CHAN_INPUT_CLOSED redefined at /usr/local/lib/perl5/site_perl/5.18.0/Net/SSH/Perl/Constants.pm line 174.
  33. Subroutine AnyEvent::SSH2::CHAN_INPUT_WAIT_DRAIN redefined at /usr/local/lib/perl5/site_perl/5.18.0/Net/SSH/Perl/Constants.pm line 174.
  34. Useless use of a constant ("") in void context at /usr/local/lib/perl5/site_perl/5.18.0/AnyEvent/SSH2.pm line 858.
  35. Useless use of a constant ("") in void context at /usr/local/lib/perl5/site_perl/5.18.0/AnyEvent/SSH2.pm line 923.
  36. Too late to run CHECK block at /usr/local/lib/perl5/site_perl/5.18.0/x86_64-linux/EV.pm line 123.
  37. 5
  38. 1
  39. 15:59:08 up 56 days, 22:38,  3 users,  load average: 0.00, 0.00, 0.00
  40. [root@search2 eg]#
复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

数据风云,十年变迁
DTCC 第十届中国数据库技术大会已启航!

2019年5月8日~5月10日,由IT168旗下ITPUB企业社区平台主办的第十届中国数据库技术大会(DTCC2019),将在北京隆重召开。大会将邀请百余位行业专家,就热点技术话题进行分享,是广大数据领域从业人士的又一次年度盛会和交流平台。与SACC2018类似,本届大会将采用“3+2”模式:3天传统技术演讲+2天深度主题培训。大会不仅提供超100场的主题演讲,还会提供连续2天的深度课程培训,深化数据领域的项目落地实践方案。
DTCC2019,一场值得期待的数据技术盛会,殷切地希望您报名参与!

活动入口>>
  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP