Network Perl

  1. Home
  2. Perl
  3. Network
  4. The getprotobyname takes the protocol name as an argument and returns its name, any aliases, and its protocol number
# Format: getprotobyname(NAME);
($name,  $aliases, $proto ) = getprotobyname('tcp');
print "name=$name\taliases=$aliases\t$protocol number=$proto\n";