3 while (($name,$aliases,$addrtype,$length,@addrs) = gethostent) {
4 print $name,' ',$aliases,
5 sprintf(" %d.%d.%d.%d\n",unpack('CCCC',$addrs[0]));
9 while (($name,$aliases,$addrtype,$net) = getnetent) {
10 print "$name $aliases $addrtype ",sprintf("%08lx",$net),"\n";
13 while (($name,$aliases,$proto) = getprotoent) {
14 print "$name $aliases $proto\n";
17 while (($name,$aliases,$port,$proto) = getservent) {
18 print "$name $aliases $port $proto\n";