use Net::SSH::Expect模块使用的问题

jidi_78

使用这个模块，自动登录到路由器上，然后通过路由器的外网IP ping 新浪，然后抓出ping成功的包的数量，如果ping成功数量小于某个值则对路由执行一些动作。大概的脚本如下：

1. my $ssh = Net::SSH::Expect->new(
   
2.                 host => "192.168.1.1",
   
3.                 user => "username",
   
4.                 password => "password",
   
5.                 debug => 1,
   
6.                 );
   
7. 
   
8. $ssh-> run_ssh() or die "SSH process couldn't start:$!";
   
9. $ssh -> login();
   
10. 
    
11. my %soure_ip = (
    
12.         "eht2" => "11.11.11.11",   #外网端口一的IP
    
13.         "eth3" => "22.22.22.22"    #外网端口二的IP
    
14. );
    
15. 
    
16. foreach my $y (keys %soure_ip){
    
17.         my $value;
    
18.         my $line;
    
19.         print "$y\n";
    
20.         sleep(3);
    
21.         $ssh->send ("ping -c 10 -a $soure_ip{$y} www.sina.com.cn");  #-c 指定ping包数，-a 指定从哪个ip为源ip,ping新浪。
    
22.         print "$soure_ip{$y}\n";
    
23.        
    
24.     while (defined ($line = $ssh->read_line())){
    
25.         print "$line\n";
    
26.         #        $value = $1 if ($line =~ /\s+(\d+).*received/);
    
27.         #        print $value;
    
28.                 }
    
29. 
    
30. 
    
31. 这是四次测试中的一次有问题的输出结果：
    
32. eth1
    
33.   11.11.11.11
    
34.   <H3C>ping -c 10 -a 11.11.11.11 www.sina.com.cn^M
    
35.    Trying DNS server (202.106.0.20) ^M
    
36.     PING libra.sina.com.cn (202.108.33.77): 56  data bytes, press CTRL_C to break^M
    
37.       Reply from 202.108.33.77: bytes=56 Sequence=1 ttl=51 time=105 ms^M
    
38.       Reply from 202.108.33.77: bytes=56 Sequence=2 ttl=51 time=105 ms^M
    
39.       Reply from 202.108.33.77: bytes=56 Sequence=3 ttl=51 time=107 ms^M
    
40.      [color=Red]此处没有输出完。。。。[/color]
    
41. 
    
42.   eth2
    
43. 32 22.22.22.22
    
44.   ping -c 10 -a 22.22.22.22 www.sina.com.cn^M
    
45.    Trying DNS server (202.106.0.20) ^M
    
46.     PING libra.sina.com.cn (202.108.33.98): 56  data bytes, press CTRL_C to break^M
    
47.       Reply from 202.108.33.98: bytes=56 Sequence=1 ttl=52 time=10 ms^M
    
48.       Reply from 202.108.33.98: bytes=56 Sequence=2 ttl=52 time=9 ms^M
    
49.       Reply from 202.108.33.98: bytes=56 Sequence=3 ttl=52 time=10 ms^M
    
50.       Reply from 202.108.33.98: bytes=56 Sequence=4 ttl=52 time=10 ms^M
    
51.       Reply from 202.108.33.98: bytes=56 Sequence=5 ttl=52 time=9 ms^M
    
52.       Reply from 202.108.33.98: bytes=56 Sequence=6 ttl=52 time=9 ms^M
    
53.       Reply from 202.108.33.98: bytes=56 Sequence=7 ttl=52 time=9 ms^M
    
54.       Reply from 202.108.33.98: bytes=56 Sequence=8 ttl=52 time=9 ms^M
    
55.       Reply from 202.108.33.98: bytes=56 Sequence=9 ttl=52 time=8 ms^M
    
56.       Reply from 202.108.33.98: bytes=56 Sequence=10 ttl=52 time=8 ms^M
    
57.   ^M
    
58.     --- libra.sina.com.cn ping statistics ---^M
    
59.       10 packet(s) transmitted^M
    
60.       10 packet(s) received^M
    
61.       0.00% packet loss^M
    
62.       round-trip min/avg/max = 8/9/10 ms^M
    

复制代码

首先可以排除登录不成功造成的不能输出，然后我在路由上直接运行上面的命令20次以上，也没有上面的输出情况，因此我认为是在执行 $ssh->read_line()时出的问题，请问这个问题应该怎么解决？

jidi_78

新的一天，顶上去。。。

bernana

回复 2# jidi_78


    给个正确的返回看看

jidi_78

回复 3# bernana


    出现上面的情况后，$value的值为空。现在我的解决方法是，在执行完命令后，在加一个判断$value是否为空，如果为空在从新执行ping命令，知道$value不为空。