Re: problem with $ARG

[Random_Walk]

in reply to problem with $ARG

briefly, risolve is clobbering your $_ which is the default place to which you read the records from the DNS handle. $_ is a global variable so this self same $_ is then used as the key for your hash.

while (my $discard = <DNS>) {1}; # this would fix it 

If risolve is intended to resolve the IP address of the hosts you can do this with pure Perl using gethostbyname. This will return a record that you will need to process to get human readable IP address, the linked docco explains how to do this.

Cheers,
R.

[tweetiepooh]

The way to use gethostbyname can be illustrated thusly

perl -MSocket -M5.010 -e 'say inet_ntoa((gethostbyname("name"))[4]);'

[ikegami]

-M5.010 -e
can be written as
-E

(gethostbyname($ARGV[0]))[4])
is clearer as
scalar(gethostbyname($ARGV[0]))
or just
gethostbyname($ARGV[0])
if you check if gethostbyname succeeded.

perl -MSocket -E'say inet_ntoa gethostbyname(shift)||die "Not found\n"' example.com