Programming Perl, 4th Edition

getservent

getservent
setservent STAYOPEN
endservent

This function iterates through the /etc/services file or its equivalent. The return value in list context is:

#  0      1         2             3
($name, $aliases, $port_number, $protocol_name) = getservent();

In scalar context, getservent returns only the service port name. The Net::servent module supports a by-name interface to this function. See getservent(3).