Help understand documentation

[Vijay Kumar Adhikari]

This is from http://perldoc.perl.org/Net/Ping.html

   # Like tcp protocol, but with many hosts
   $p = Net::Ping->new("syn");
   $p->{port_num} = 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";
   }

Can some body tell me what the following line does?
   $p->{port_num} = getservbyname("http", "tcp");

--
Vijay

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>