Commit | Line | Data |
a687059c |
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 | |