home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / PERL4036.ZIP / gettest < prev    next >
Text File  |  1993-02-08  |  549b  |  21 lines
  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.  
  21.