請教iakuf AnyEvent::ssh2模塊的問題

laputa73

  前不久發(fā)現(xiàn)扶凱（@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]#

看起來并沒有異步執(zhí)行
是哪里出了問題呢？
我的環(huán)境
CentOS release 6.4 (Final)
perl （v5.18.0) built for x86_64-linux

iakuf

回復 1# laputa73


給你的代碼發(fā)出來, 我看看

   

laputa73

回復 2# iakuf
代碼就是照cpan文檔寫的
這個是單主機異步執(zhí)行命令的
理論上應該應該先出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]#

復制代碼