Revision 9009,
549 bytes
checked in by ghudson, 28 years ago
(diff) |
This commit was generated by cvs2svn to compensate for changes in r9008,
which included commits to RCS files with non-trunk default branches.
|
Line | |
---|
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 | |
---|
Note: See
TracBrowser
for help on using the repository browser.