用perl写了一个自动登录路由器抓配置的脚本，命令不执行，希望高手指点一下

jkczh

use Net::SSH::Perl ;

$host = 'xxxxxx';
$user = 'abc';
$passwd = 'abc';
open LOG,">$host.log";                            #记录执行日志
select LOG;

my $ssh = Net::SSH::Perl->new( $host ,debug =>1,protocol=>2 );
$ssh->login($user,$passwd );

$cmd = "screen-length 0 temporary\n";
$sh = "dis cur\n";     
$tc = "quit\n";

($stdout, $stderr, $exit)  = $ssh->cmd($cmd);
print $stdout;
=pod
($stdout, $stderr, $exit)  = $ssh->cmd( $sh );
print $stdout;

($stdout, $stderr, $exit)  = $ssh->cmd( $tc );
print $stdout;
=cut
close LOG;
select STDIN;
$ssh->close;
=========================执行结果
test: Service accepted: ssh-userauth.
test: Trying empty user-authentication request.
test: Authentication methods that can continue: publickey,keyboard-interactive,password.
test: Next method to try is publickey.
test: Next method to try is password.
test: Trying password authentication.
test: Login completed, opening dummy shell channel.
test: channel 0: new [client-session]
test: Requesting channel_open for channel 0.
test: channel 0: open confirm rwindow 131072 rmax 32768
test: Got channel open confirmation, requesting shell.
test: Requesting service shell on channel 0.
test: channel 1: new [client-session]
test: Requesting channel_open for channel 1.
test: Entering interactive session.    一直停到这儿不在执行后面的语句了 最后出错退出了

test: Entering interactive session.
Received disconnect message: The connection is closed by SSH server

at /usr/local/perl5.28/lib/site_perl/5.28.1/x86_64-linux/Net/SSH/Perl/SSH2.pm line 530.
请高手看看，程序需要什么修改？

shijiang1130

1. $ssh->shell
   
2. Opens up an interactive shell on the remote machine and connects it to your STDIN. This is most effective when used with a pseudo tty; otherwise you won't get a command line prompt, and it won't look much like a shell. For this reason--unless you've specifically declined one--a pty will be requested from the remote machine, even if you haven't set the use_pty argument to new (described above).
   
3. 
   
4. This is really only useful in an interactive program.
   
5. 
   
6. In addition, you'll probably want to set your terminal to raw input before calling this method. This lets Net::SSH::Perl process each character and send it off to the remote machine, as you type it.
   
7. 
   
8. To do so, use Term::ReadKey in your program:
   
9. 
   
10. use Term::ReadKey;
    
11. ReadMode('raw');
    
12. $ssh->shell;
    
13. ReadMode('restore');
    
14. In fact, you may want to place the restore line in an END block, in case your program exits prior to reaching that line.
    
15. 
    
16. If you need an example, take a look at eg/pssh, which uses almost this exact code to implement an ssh shell.

复制代码

shijiang1130

1. $ssh->shell
   
2. Opens up an interactive shell on the remote machine and connects it to your STDIN. This is most effective when used with a pseudo tty; otherwise you won't get a command line prompt, and it won't look much like a shell. For this reason--unless you've specifically declined one--a pty will be requested from the remote machine, even if you haven't set the use_pty argument to new (described above).
   
3. 
   
4. This is really only useful in an interactive program.
   
5. 
   
6. In addition, you'll probably want to set your terminal to raw input before calling this method. This lets Net::SSH::Perl process each character and send it off to the remote machine, as you type it.
   
7. 
   
8. To do so, use Term::ReadKey in your program:
   
9. 
   
10. use Term::ReadKey;
    
11. ReadMode('raw');
    
12. $ssh->shell;
    
13. ReadMode('restore');
    
14. In fact, you may want to place the restore line in an END block, in case your program exits prior to reaching that line.
    
15. 
    
16. If you need an example, take a look at eg/pssh, which uses almost this exact code to implement an ssh shell.

复制代码

jkczh

高手，这段英文看着比吃力，有没有例子，可以学习的？

xiaomm250

回复 4# jkczh

没注释没缩进的程序，谁愿意看？

zhouzhen1

试试Net::OpenSSH，比Net::SSH::Perl更主流一些。

jkczh

回复 6# zhouzhen1

谢谢了