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

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

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



bobbyperl
Novice

Apr 20, 2006, 2:18 AM


Views: 1542
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 ,


Code
use Net::DNS; 
my $res = Net::DNS::Resolver->new;
my $query = $res->search("host.example.com");
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