摘要:
#!/usr/bin/perluse strict;$|=1;# $Id: traceiface.pl,v 1.1 2007/02/04 22:58:04 jtk Exp $# traceiface - traceroute with extension to discover router egress hop address# TODO: IPv6 supportuse Net::Traceroute::PurePerl;use NetAddr::IP;use Getopt::Std;use Socket;use constant PROGRAM_NAME => 'trace 阅读全文