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

分析了一下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
";
print "------------中间经过------------
";
foreach $ip (@results){
  print "$ip
";
}
print "--------------------------------
";

print "测试结果:";
if($results[-1] eq $task_ip){
  print "可到达
";
}else{
  print "不可到达
";
}

其中详细介绍几个参数，因为这些都是挺关键的。

     host   你需要tracert的地址。
     query_timeout   查询超时多长时间，建议是1秒，官方给设置的那个实在太慢。而且1秒足够了。
     packetlen      发包的大小，根据需要设置，40是最小了。
     protocol       选择的协议，udp 和 icmp都可以，根据自己需要。