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