请教iakuf AnyEvent::ssh2模块的问题

laputa73

  前不久发现扶凯（@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

iakuf

回复 1# laputa73


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

   

laputa73

回复 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. 
    
32. [root@search2 eg]# perl tassh.pl
    
33. Subroutine AnyEvent::SSH2::CHAN_INPUT_CLOSED redefined at /usr/local/lib/perl5/site_perl/5.18.0/Net/SSH/Perl/Constants.pm line 174.
    
34. 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.
    
35. Useless use of a constant ("") in void context at /usr/local/lib/perl5/site_perl/5.18.0/AnyEvent/SSH2.pm line 858.
    
36. Useless use of a constant ("") in void context at /usr/local/lib/perl5/site_perl/5.18.0/AnyEvent/SSH2.pm line 923.
    
37. Too late to run CHECK block at /usr/local/lib/perl5/site_perl/5.18.0/x86_64-linux/EV.pm line 123.
    
38. 5
    
39. 1
    
40. 15:59:08 up 56 days, 22:38,  3 users,  load average: 0.00, 0.00, 0.00
    
41. [root@search2 eg]#

复制代码