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\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都可以，根据自己需要。
页:
[1]