Perl Tracert 实现方法(Net::Traceroute::PurePerl)

heshao2005

　　分析了一下Tracert的实现脚本，自己思考了一下具体如何实现。
　　其中在Linux下应该叫traceroute。
　　这个模块相对介绍的比较模糊，CPAN上出的都是一些比较模糊的介绍，让人比较纠结。
　　只能对参数进行测试，测出来的。
　　先看下案例把：



#!/usr/bin/perl

use Net::Traceroute::PurePerl;
my $tr = new Net::Traceroute::PurePerl(
host           => '163.com',
debug          => 0,
query_timeout  => 1,
packetlen      => 40,
concurrent_hops    => 2,
protocol       => 'icmp',
);
$tr->traceroute;
if($tr->found){
my $hops = $tr->hops;
if($hops > 1) {
for($i=0;$i<=$hops;$i++){
$result=$tr->hop_query_host($tr->hops-$i, 0);
if($result ne ""){
push(@results,$result);
}
}
}
}
$task_ip=shift(@results);
print "要到达:$task_ip\n";
print "------------中间经过------------\n";
foreach $ip (@results){
print "$ip\n";
}
print "--------------------------------\n";
print "测试结果:";
if($results[-1] eq $task_ip){
print "可到达\n";
}else{
print "不可到达\n";
}
　　其中详细介绍几个参数，因为这些都是挺关键的。
　　host   你需要tracert的地址。
     query_timeout   查询超时多长时间，建议是1秒，官方给设置的那个实在太慢。而且1秒足够了。
     packetlen      发包的大小，根据需要设置，40是最小了。
     protocol       选择的协议，udp 和 icmp都可以，根据自己需要。