Network Perl

  1. Home
  2. Perl
  3. Network
  4. Getprotoent function reads the next line from the network protocols database, etcprotocol, and returns a list
#Format
#getprotoent;
#setprotoent (STAYOPEN);
#endprotoent;
while (($name,  $aliases, $proto ) = getprotent){
printf "name=%-5s,aliases=%-6sproto=%-8s\n",
        $name, $aliases, $proto;
}