diff options
Diffstat (limited to 'gettest')
| -rwxr-xr-x | gettest | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/gettest b/gettest deleted file mode 100755 index 565ae82bc6..0000000000 --- a/gettest +++ /dev/null @@ -1,20 +0,0 @@ -#!./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"; - } - |