Re: How would I do this "dig" command in Perl?

[VinsWorldcom]

You can, but with a command line this long (admittedly could be shortened as I'm not the best golfer) - the 'dig' way just seems so much more efficient.

VinsWorldcom@C:\Users\VinsWorldcom> perl -MNet::DNS -e "$r=Net::DNS::R
+esolver->new(nameservers=>['resolver1.opendns.com']); $p=$r->send('my
+ip.opendns.com'); use Socket qw( inet_ntoa ); print inet_ntoa $p->{an
+swer}->[0]->{address};"

[Discipulus]

++VinsWorldcom; added to my oneliner list, but a little shortened


<P>

 perl -MNet::DNS -MSocket -E "say inet_ntoa(Net::DNS::Resolver->new(na
+meservers=>[shift])->send(shift)->{answer}->[0]->{address});" resolve
+r1.opendns.com perlmonks.org<P>

Eventually in the same file there is another quick hack about DNS query using gethostbyname:

 perl -MSocket -e "print map {qq($_ : ).inet_ntoa((gethostbyname$_)[4]
+).qq(\n)} @ARGV"


L*