home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2003 May / VPR0305.ISO / AIBO / getaddr.pl
Text File  |  2002-11-28  |  118b  |  5 lines
  1. $host = $ARGV[0];
  2. $addr = gethostbyname($host);
  3. ($a, $b, $c, $d) = unpack('C4', $addr);
  4. print "$host -> $a.$b.$c.$d";
  5.