ssh 交互登陆的问题

Perling_

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. use Expect;
   
6. use IO::Stty;
   
7. 
   
8. my $exp = Expect->spawn("ssh -b $source_add -p $port $ip") or die "Cannot spawn : $!\n";
   
9. 
   
10. $exp->expect(10,   [ qr/.*password:/ => sub { my $exp = shift;
    
11.                                               $exp->send("$pass\n");
    
12.                                               $exp->interact(); } ],
    
13. );
    

复制代码

这是我写的一个ssh交互登录的脚本里边的一段代码，现在可以成功登录，但是在登录之后  操作不是全屏，现象如下图，这样的话操作很不习惯，本人用的CRT，求大神指导可否解决该问题。