| 1 | #!./perl |
| 2 | |
| 3 | while (($name,$aliases,$addrtype,$length,@addrs) = gethostent) { |
| 4 | print $name,' ',$aliases, |
| 5 | sprintf(" %d.%d.%d.%d\n",unpack('CCCC',$addrs[0])); |
| 6 | last if $i++ > 50; |
| 7 | } |
| 8 | <stdin>; |
| 9 | while (($name,$aliases,$addrtype,$net) = getnetent) { |
| 10 | print "$name $aliases $addrtype ",sprintf("%08lx",$net),"\n"; |
| 11 | } |
| 12 | <stdin>; |
| 13 | while (($name,$aliases,$proto) = getprotoent) { |
| 14 | print "$name $aliases $proto\n"; |
| 15 | } |
| 16 | <stdin>; |
| 17 | while (($name,$aliases,$port,$proto) = getservent) { |
| 18 | print "$name $aliases $port $proto\n"; |
| 19 | } |
| 20 | |