Help for this page

Select Code to Download


  1. or download this
    use Net::DNS;
my $res   = Net::DNS::Resolver->new;
...
ns1b.toyota.co.jp
crown.tns.ne.jp
majesta.tns.ne.jp
  2. or download this
    my ($name, $aliases, $addrtype, $length, @addrs) = gethostbyname("roya
+l.tns.ne.jp");
my (@data) = unpack('C4', $addrs[0]);
my $ip = join '.', @data;