diff options
Diffstat (limited to 'gettest')
| -rw-r--r-- | gettest | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/gettest b/gettest new file mode 100644 index 0000000000..565ae82bc6 --- /dev/null +++ b/gettest @@ -0,0 +1,20 @@ +#!./perl + + while (($name,$aliases,$addrtype,$length,@addrs) = gethostent) { + print $name,' ',$aliases, + sprintf(" %d.%d.%d.%d\n",unpack('CCCC',$addrs[0])); + last if $i++ > 50; + } + <stdin>; + while (($name,$aliases,$addrtype,$net) = getnetent) { + print "$name $aliases $addrtype ",sprintf("%08lx",$net),"\n"; + } + <stdin>; + while (($name,$aliases,$proto) = getprotoent) { + print "$name $aliases $proto\n"; + } + <stdin>; + while (($name,$aliases,$port,$proto) = getservent) { + print "$name $aliases $port $proto\n"; + } + |