Re: 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
[download]

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.

Pereant, qui ante nos nostra dixerunt!

Comment on Re: problem with $ARG Download Code

Replies are listed 'Best First'.
Re^2: problem with $ARG by tweetiepooh (Hermit) on Feb 05, 2009 at 16:01 UTC
The way to use gethostbyname can be illustrated thusly `perl -MSocket -M5.010 -e 'say inet_ntoa((gethostbyname("name"))[4]);'` [download]	[reply] [d/l]
Re^3: problem with $ARG by ikegami (Patriarch) on Feb 05, 2009 at 16:11 UTC
`-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`	[reply] [d/l] [select]