home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / perl-5.003-bin.lha / lib / perl5 / hostname.pl < prev    next >
Text File  |  1996-10-09  |  451b  |  24 lines
  1. # From: asherman@fmrco.com (Aaron Sherman)
  2.  
  3. sub hostname
  4. {
  5.     local(*P,@tmp,$hostname,$_);
  6.     if (open(P,"hostname 2>&1 |") && (@tmp = <P>) && close(P))
  7.     {
  8.         chop($hostname = $tmp[$#tmp]);
  9.     }
  10.     elsif (open(P,"uname -n 2>&1 |") && (@tmp = <P>) && close(P))
  11.     {
  12.         chop($hostname = $tmp[$#tmp]);
  13.     }
  14.     else
  15.     {
  16.         die "$0: Cannot get hostname from 'hostname' or 'uname -n'\n";
  17.     }
  18.     @tmp = ();
  19.     close P; # Just in case we failed in an odd spot....
  20.     $hostname;
  21. }
  22.  
  23. 1;
  24.