中国DOS联盟

具体情况,ping了大量网站把内容写入了一个文本中,
如何得到简单明了的结果,如下,当然越简单越好:
尝试用了for做修改~没有理想的结果~~

Ping statistics for 64.233.189.104:
Packets: Sent = 10, Received = 10, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
Minimum = 106ms, Maximum = 112ms, Average = 109ms

需要得到哪些数据呢？

只需要得到ping的结果，就是只要得到以下这些数据即可！

Ping statistics for 64.233.189.104:
Lost = 0 (0% loss),
Minimum = 106ms, Maximum = 112ms, Average = 109ms

这样就可以了吧？

ping www.baidu.com  2>nul| findstr /v "^Reply"

小弟对DOS批处理不太了解~~请指点
只要如下的结果 希望给个完整的办法！谢谢！

Pinging a.a.a.a with 32 bytes of data:
Ping statistics for a.a.a.a:
Packets: Sent = 1, Received = 1, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
Minimum = 24ms, Maximum = 24ms, Average = 24ms

Pinging b.b.b.b with 32 bytes of data:
Ping statistics for b.b.b.b:
Packets: Sent = 1, Received = 1, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
Minimum = 24ms, Maximum = 24ms, Average = 24ms

…………

Pinging x.x.x.x with 32 bytes of data:
Ping statistics for x.x.x.x:
Packets: Sent = 1, Received = 1, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
Minimum = 24ms, Maximum = 24ms, Average = 24ms

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);

谢谢你的指点~~其实我的初衷是想提取IP、最大、最小、平均值、丢包率写进一个xls表格或者数据库里~~看来这么做不容易实现~~手工添加相当麻烦~期望高手能有好的方案！谢谢斑主的帮助！


PS：遗憾的是对Perl也不怎么了解~~需要学习的东西太多了！！

[ Last edited by saiyy on 2007-12-5 at 11:23 AM ]