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

概述分析了一下Tracert的实现脚本，自己思考了一下具体如何实现。 其中在Linux下应该叫traceroute。 这个模块相对介绍的比较模糊，CPAN上出的都是一些比较模糊的介绍，让人比较纠结。 只能对参数进行测试，测出来的。 先看下案例把： #!/usr/bin/perluse Net::Traceroute::PurePerl; my $tr = new Net::Tracerou

分析了一下Tracert的实现脚本，自己思考了一下具体如何实现。

其中在linux下应该叫traceroute。

这个模块相对介绍的比较模糊，CPAN上出的都是一些比较模糊的介绍，让人比较纠结。

只能对参数进行测试，测出来的。

先看下案例把：

#!/usr/bin/perluse 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都可以，根据自己需要。

总结

以上是内存溢出为你收集整理的Perl Tracert 实现方法(Net::Traceroute::PurePerl)全部内容，希望文章能够帮你解决Perl Tracert 实现方法(Net::Traceroute::PurePerl)所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。