gettest

   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