Re: Dns lookups

[hippo]

Any reason not to use gethostbyname() instead?

perl -MSocket -e '@h=gethostbyname($_) and print "$_\n".inet_ntoa($h[4])."\n\n" for @ARGV;' perlmonks.org bing.com example.com

Still no good for IPv6, obviously, but a bit less wheel reinvention.

[perlaintdead]

haha. yeah i guess i should have looked into that module a bit more. I was just using what i was familiar with; needed something quick and dirty.

[perlaintdead]

and also you don't need those parens for gethostbyname

[perlaintdead]

you can also get rid of that pesky array

use Socket;print "$_\n".inet_ntoa((gethostbyname$_)[4])."\n\n" for @AR
+GV;

[hippo]

The array is there to cope with the possibility of an unresolvable host. If you try your example above with args like

./pllookup.pl dklghslfhslgshj.com foo.com

the unresolvability of dklghslfhslgshj.com would cause it to die on the first argument, whereas with the array it will just skip that and carry on to the remaining args. To my mind that's a better UX but others may disagree.

[perlaintdead]

The golfer in me couldn't resist