ssh 交互登陸的問(wèn)題

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. );
    

復(fù)制代碼

這是我寫的一個(gè)ssh交互登錄的腳本里邊的一段代碼，現(xiàn)在可以成功登錄，但是在登錄之后  操作不是全屏，現(xiàn)象如下圖，這樣的話操作很不習(xí)慣，本人用的CRT，求大神指導(dǎo)可否解決該問(wèn)題。