- 论坛徽章:
- 0
|
- #!/usr/bin/perl
- use warnings;
- use strict;
- sub Getgwip {
- my $cmd="route -n";
- my @route=`$cmd`;
- my $gwip;
- while (@route) {
- chomp;
- if ($_ =~m/^'0'/){
- chomp;
- s/^\s+//g;
- s/\s+$//g;
- # next if $_ eq '';
- $gwip=(split /\s+/,$_)[2];
- }
- }
- return $gwip;
- }
- sub Getgwmac {
- my $cmd="arp -a Getgwip()";
- my $echo=`$cmd`;
- my $mac=(split /\s+/,$echo)[4];
- return $mac;
- }
- sub bond_ip_mac {
- my $bond="arp -s Getgwip Getgwmac";
- `$bond`;
- }
- bond_ip_mac();
复制代码 我觉得 应该是$_ =~m/^'0'/ 这块有问题... 但就是不太清楚,如何匹配..
麻烦各位大牛 帮帮忙... 小弟不胜感激. |
|