编辑代码

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