# # Like tcp protocol, but with many hosts
# $p = Net:ing->new("syn"
# $p->port_number(getservbyname("http", "tcp");
# foreach $host (@host_array) {
# $p->ping($host);
# }
# while (($host,$rtt,$ip) = $p->ack) {
# print "HOST: $host [$ip] ACKed in $rtt seconds.\n";
# }
欢迎光临 Chinaunix (http://bbs.chinaunix.net/) | Powered by Discuz! X3.2 |