CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
Search Posts SEARCH
Who's Online WHO'S
Log in LOG

Home: Perl Programming Help: Beginner: Re: [d1zz13] Modified: Edit Log


Apr 20, 2006, 2:18 AM

Views: 1643
Re: [d1zz13] Modified

Hey guys had a look at this NET::DNS and i seem to notice there are like 9 options i can use

I think this is the bit i need to play with to get it working ,

use Net::DNS; 
my $res = Net::DNS::Resolver->new;
my $query = $res->search("");
if ($query) {
foreach my $rr ($query->answer) {
next unless $rr->type eq "A";
print $rr->address, "\n";
} else {
warn "query failed: ", $res->errorstring, "\n";

i took this from an example site i can probally try figure out how to use this if its the right sort of way

(This post was edited by davorg on Apr 21, 2006, 6:36 AM)

Edit Log:
Post edited by davorg (Thaumaturge) on Apr 21, 2006, 6:36 AM

Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives