To saiyy:
用Perl写了一个脚本，首先要把所有ping命令的结果存到pingresult.txt文件中，可以用这个命令：
for /f "delims=" %a in (domain.txt) do @ping %a >> pingresult.txt
，然后用下面的Perl脚本，即可得到你要的数据：
# use perl script to get uesful informations from the text file pingresult.txt
# code by lxmxn @ www.cn-dos.net/forum
#C:/perl/bin/perl
use strict;
use warnings;
my($fd);
open($fd,"<pingresult.txt")||die "Can't open pingresult.txt:$!\n";
undef($/);
my $textcontext=<$fd>;
while($textcontext=~m/Pinging (.*?) \+)\].*?, (Lost = \d+ \(\d+% loss\)).*?(Minimum.*?\n)/sg){
print "*" x 20 . "\n$1 \n$3\n$4\n";
}
close($fd);
