利用Net：：SSH2远程连接执行命令后的错误信息如何获取？

peso

我使用net::ssh2模块，远程连接到主机上执行命令，如何获取出错信息。
如下：
$ssh2->connect("$HostIp") ;
my $chan = $ssh2->channel();
print $chan "su - aaa \n"  ;
print "Line: $_" while <$chan>  ;

aaa用户是不存在的，执行时，是报错的。
但是打印不出错误信息来。

如何处理。

shijiang1130

peso 发表于 2014-10-03 18:47
我使用net::ssh2模块，远程连接到主机上执行命令，如何获取出错信息。
如下：
$ssh2->connect("$HostIp") ...

$ssh2->debug(1);

peso

回复 2# shijiang1130


    开启调试模式，只是将单步的执行解析开，并不能获取chann通道中的STDERR输出。
象su - aaa  这条命令，本身不存在这个用户。
我想要捕获。su: user aaa  does not exist
这句话！

或是执行su 这条命令时，如果用户不存在时的返回码是多少。用以判断是否执行成功。

shijiang1130

peso 发表于 2014-10-03 22:49
回复 2# shijiang1130

你不能直接从channel中获得数据，要么是exec()，要么是shell().

peso

回复 4# shijiang1130

我使用的是shell() .

哪我该如何获取他的出错信息呢！
   

shijiang1130

1. -module(test_ssh).
   
2. -compile(export_all).
   
3. 
   
4. t()->
   
5.         init(),
   
6.         case ssh:connect("bbs.cu.net",22,[{inet,inet},silently_accept_hosts,{user,"root"},{password,"root"}]) of
   
7.                 {ok,Ssh_connection_ref} -> io:format("Connected: ~p~n",[Ssh_connection_ref]),
   
8.                         case ssh_connection:session_channel(Ssh_connection_ref,infinity) of
   
9.                                 {ok,ChannelId} ->
   
10.                                         ssh_connection:exec(Ssh_connection_ref,ChannelId,"su - test",infinity),
    
11.                                         loop(Ssh_connection_ref)
    
12.                         end;
    
13.                 {error,Reason} -> io:format("Error: ~p~n",[Reason])
    
14.         end.
    
15. 
    
16. init()->
    
17.         ssh:start().
    
18. 
    
19. loop(Ssh_connection_ref)->
    
20.         receive
    
21.                 {ssh_cm,Ssh_connection_ref,Msg} ->
    
22.                         case Msg of
    
23.                                 {closed,_} -> io:format("~nclosed~n");
    
24.                                                   _-> io:format("~p~n",[Msg]),loop(Ssh_connection_ref)
    
25.                         end
    
26.         end.
    

复制代码

shijiang1130

1. 6> c(test_ssh).
   
2. {ok,test_ssh}
   
3. 7> test_ssh:t().
   
4. Connected: <0.71.0>
   
5. {data,0,1,<<"su: ">>}
   
6. {data,0,1,<<"user test does not exist">>}
   
7. {data,0,1,<<"\n">>}
   
8. {eof,0}
   
9. {exit_status,0,125}
   
10. 
    
11. closed
    
12. ok
    
13. 8>

复制代码

shijiang1130

我有一个erlang版的

peso

回复 8# shijiang1130

erlang 版，没有用过!
我说语法怎么我都看不懂！

我用的是ActivePerl  5.16 .
使用Net::SSH2 0.53  模块！