Net::SSH::Expect返回信息带提示符的问题

lansworld

调用Net::SSH::Expect->read_line()方法会把操作系统的提示符取回来，有没有办法不取系统提示符的？
代码和执行返回如下，有无方法去掉提示符的？
尝试设置提示操作系统提示符为空好像也不行，请各位大侠帮忙看看，谢谢！

Start SSH ...

Start SSH Login in
ping active and SSH login ok
CMD: uptime
[10.212.48.10] RET:   5:28pm  up 142 day(s),  1:40,  2 users,  load average: 0.11, 0.12, 0.12
CMD: vmstat 1 2
[10.212.48.10] RET: FSM9000E20-3-/export/home/daladmin>  kthr      memory            page            disk          faults      cpu  r b w   swap  free  re  mf pi po fr de sr m0 m1 m2 m3   in   sy   cs us sy id  0 0 0 119875912 61349256 69 2285 2 4 4 0 0 0  0  0  2 1997 10662 1694 0  1 99

---

1. 
   
2. use strict;
   
3. #use Getopt::Long;
   
4. use Net::SSH::Expect;
   
5. use Net::Telnet;
   
6. 
   
7. my $debug=1;
   
8. 
   
9.                 print "\nStart SSH ...\n";
   
10.                 my ($net_telnet,$host_ip,$host_usr,$host_pwd);
    
11.                 $host_ip="xx.xx.xx.xx";
    
12.                 $host_usr="xxx";
    
13.                 $host_pwd="xxx";
    
14.                
    
15.                 $net_telnet =  new Net::SSH::Expect (
    
16.                 host => $host_ip,
    
17.                 user => $host_usr,
    
18.                 password=> $host_pwd,
    
19.                 raw_pty => 1
    
20.                 );
    
21.                
    
22.                         print "\nStart SSH Login in\n";
    
23.                         my $login_output;
    
24. my $net_prompt   = '';
    
25. #$net_telnet->run_ssh() or die "SSH process couldn't start: $!";
    
26.                         $login_output = $net_telnet->login();
    
27.         #               print "\$login_output:$login_output\n";
    
28. 
    
29.                         if ($login_output !~ /Last login/)
    
30.                         {
    
31.                                 print "ping active and SSH login Failed\n";
    
32.                                 if (defined($net_telnet)) { $net_telnet->close();}
    
33.                                 exit(1);
    
34.                         }
    
35.                         else
    
36.                         {
    
37. #                               $net_telnet->cmd("csh") ;
    
38.                     #            $net_telnet->prompt("/$net_prompt\$/");
    
39. #                                $net_telnet->cmd("set prompt = '$net_prompt'");
    
40. 
    
41.                                 print "ping active and SSH login ok\n";
    
42.                         }
    
43.                         
    
44.                         my @ls=exec_cmd(\$net_telnet,"uptime");
    
45.                         @ls=exec_cmd(\$net_telnet,"vmstat 1 2");
    
46.                         #print @ls;
    
47.                         if(defined($net_telnet)) { $net_telnet->close();}
    
48.                         
    
49. sub traceDebug
    
50. {
    
51.         my $str = shift;
    
52.         print "[$host_ip] ".$str if ($debug > 0);
    
53. }
    
54.                         
    
55. sub exec_cmd
    
56. {
    
57.         my ($ptelnet,$cmd) = @_;
    
58.         my @lines;
    
59.         my $line;
    
60.         my $net_timeout=10;
    
61.         print "CMD: $cmd\n";
    
62. $ptelnet->send("$cmd");
    
63.    #     $ptelnet->cmd(
    
64.    #                String  => $cmd,
    
65.    #                Timeout => $net_timeout);
    
66.         while(defined($line=$ptelnet->read_line()))
    
67.         {
    
68.                 push @lines,$line;
    
69.         }
    
70.         traceDebug "RET: @lines\n";
    
71.         return @lines;
    
72. }      
    

复制代码