#!/usr/bin/perl
use strict;
my $result = `ipconfig`;
my @result = split /\n/,$result;
foreach my $line (@result){
my @ip = split /;/,$line if ($line =~ /Gateway/);
print "执行:ping -t $ip[1]\n";
system("ping -t $ip[1]");
}
注：因为我现在在家，我也不知道你ipconfig后结果如何，根据你原来程序的意思。
匹配Gateway的行，用 : 分割了好几个项，其中，第二项（$ip[1]）是ip地址。
--有不清楚的请追问。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024