Perl Tracert 实现方法(Net::Traceroute::PurePerl)
发布时间：2020-12-16 00:01:36 所属栏目：大数据 来源：网络整理
导读：分析了一下Tracert的实现脚本，自己思考了一下具体如何实现。 其中在Linux下应该叫traceroute。 这个模块相对介绍的比较模糊，CPAN上出的都是一些比较模糊的介绍，让人比较纠结。 只能对参数进行测试，测出来的。 先看下案例把： # !/usr/bin/perl use Net::
|
分析了一下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_ipn"; print "------------中间经过------------n"; foreach $ip (@results){ print "$ipn"; } 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都可以，根据自己需要。 （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |