小白的问题...

klathleen

1. 
   
2. #!/usr/bin/perl
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. sub Getgwip {
   
7. my $cmd="route -n";
   
8. my @route=`$cmd`;
   
9. my $gwip;
   
10.         while (@route) {
    
11.                 chomp;
    
12.                 if ($_ =~m/^'0'/){
    
13.                        chomp;
    
14.                         s/^\s+//g;
    
15.                         s/\s+$//g;
    
16.                         #       next if $_ eq '';
    
17.                         $gwip=(split /\s+/,$_)[2];
    
18.                                 }
    
19.                         }
    
20.         return $gwip;
    
21. }
    
22. sub Getgwmac {
    
23. my $cmd="arp -a Getgwip()";
    
24.         my $echo=`$cmd`;
    
25. my $mac=(split /\s+/,$echo)[4];
    
26.         return $mac;
    
27. }
    
28. sub bond_ip_mac {
    
29. my $bond="arp -s Getgwip Getgwmac";
    
30.         `$bond`;
    
31. }
    
32. bond_ip_mac();
    

复制代码

我觉得 应该是$_ =~m/^'0'/ 这块有问题... 但就是不太清楚,如何匹配..
麻烦各位大牛 帮帮忙... 小弟不胜感激.

klathleen

不知道 为什么 .上面的循环不能用while来做. 用foreach就可以..

jason680

不知道 为什么 .上面的循环不能用while来做. 用foreach就可以..
klathleen 发表于 2011-07-05 13:45

那先说说...你所了解的for与while....