Help for this page

Select Code to Download


  1. or download this
        ($name,$aliases,$addrtype,$length,@addrs) = gethostbyname($machine
+);
    if($#addrs == -1){ next; }
    $ipadrs = join ".", unpack('C4', $addrs[0]);
    @iparray = split(/\./,$ipadrs);
  2. or download this
        @addrs = gethostbyname($machine) or next;
    @iparray = unpack('C4', $addrs[4]);
  3. or download this
        @iparray = unpack ('C4',((gethostbyname($machine))[4]));