home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 98 / Skunkware 98.iso / src / net / bind-contrib.tar.gz / bind-contrib.tar / contrib / nutshell / ch06.canon.perl next >
Encoding:
Text File  |  1996-10-25  |  365 b   |  18 lines
  1. #!/usr/bin/perl
  2.  
  3. # Perl canonicalization filter
  4. #
  5. # Expects one hostname per line, in the first field (a la .rhosts,
  6. # X0.hosts)
  7.  
  8. require 'sys/socket.ph';
  9.  
  10. while(<>){
  11.     if(($hostname, $null) = split){
  12.       ($domainname, $aliases, $addrtype, $length, @addrs) =
  13.           gethostbyname($hostname);
  14.       if($domainname) {s/$hostname/$domainname/;}
  15.     }
  16.     print;
  17. }
  18.