note
IndyZ
First, write or regex to get the hostname, by itself, out of
$d->url. I will leave this as a skill building excercise for
you. Then, try this:
<code>
use Socket;
@addresses = gethostbyname($name) or die "Can't resolve $name: $!\n";
@addresses = map { inet_ntoa($_) } @addresses[4 .. $#addresses];
</code>
@addresses will contain a list of IP addresses. I think that
this code is verbatim from the Perl Cookbook, I just copied and
pasted it out of an old project of mine.
59161
59161