Re^4: loop ending b4 I want it to

I am trying to achieve lookups for each IP in each nameserver, telling me success or no success.

We can disregard your first three bullet points, but the fourth yes I should only need to create one object. But since I have two nameservers, I need to lookup all these IPs twice, once in each nameserver. So do I still need one object? If so how do I dereference it? This code right below works, but no sure how to implement in the $res object code?

#for my $ns (@namesvr) {
#    for my $keys (sort keys %$ns) {
#        print "$keys => $ns->{$keys}\n";
#    }
#    print "\n";
#}
#exit;
[download]



#!/usr/bin/perl

use strict;
use warnings;
use Carp;
use Net::DNS;
use Data::Dumper;

## AoH
my @namesvr = (
               { NAME => 'ns#.xxxx.com',             IPLIST => [] } , 
+## Autovivification
               { NAME => 'wrnaxxxx.xx.xxxxx.com', IPLIST => [] }
             ) ;

#print Dumper(\@namesvr);exit;

my %IPinfo;    ##  HoH

for my $IP (qw ( 10.220.84.30 10.220.84.51 10.220.84.52
                 10.220.84.54
                 10.220.84.55 10.220.84.56 10.220.84.57
                 10.220.84.58
            )) {

                 $IPinfo{$IP} = {DOMAININDEX => undef,  TYPE => "CLIEN
+T" } ;
               }


our ( $res, $IP ) ;
for my $ns (@namesvr) {
    for my $keys (sort keys %$ns) {
        $res = Net::DNS::Resolver->new (
        nameservers => [$ns->{$keys}],
        recurse     => 1, ## do recursive lookups
        retry       => 1,
        debug       => 0,
        );
    }
}

for my $ip (keys %IPinfo) {
    for my $ids (0..$#namesvr) {
        my $ptr = nsqry($namesvr[$ids]->{NAME}, $ip) ; # nsqry has bee
+n modified to return the info
        next unless $ptr ; # No change, if $ptr is empty
        $IPinfo{$ip}{DOMAININDEX} = $ids ; # Forward ref from IP to DO
+MAIN
        $IPinfo{$ip}{PTR} = $ptr ;
        push @{$namesvr[$ids]->{IPLIST}}, $ip ; # Keep a list of IP's 
+that live in this domain
    }
}

sub nsqry {

    ( $res, $IP ) = @_ ;
    my $query = $res->query($IP, 'PTR') ;
    if ($query) {
        for my $rr ($query->answer) {
            next unless ($rr->type eq 'PTR') ; ## skip record if not e
+q PTR ##
            print  $rr->ptrdname  ;
            return $rr->ptrdname  ;
        }
        return undef ;
    }
    else {
         carp "query failed for $IP: ", $res->errorstring, "\n" ;
         return undef ;
    }
}
[download]

Comment on Re^4: loop ending b4 I want it to Select or Download Code

Replies are listed 'Best First'.
Re^5: loop ending b4 I want it to by NetWallah (Canon) on Nov 04, 2007 at 07:08 UTC
Looks like you are having trouble de-referencing the AOH @nameserver. Here is how I would do it: `for my $nshash (@namesvr) { $nshash->{RESOLVER} = Net::DNS::Resolver->new ( nameservers => [$nshash->{NAME}], recurse => 1, ## do recursive lookups retry => 1, debug => 0, ); }` [download] This produces and saves a RESOLVER object entry for each name server. You can now pass this into nsquery thus: `my $ptr = nsqry($namesvr[$ids]->{RESOLVER}, $ip) ;` [download] By the way, you should really have a my in front of ($res, $IP) inside the sub nsqry. Without that, you will be using globals, which may have un-intended side-effects, and is bad practice anyway. "As you get older three things happen. The first is your memory goes, and I can't remember the other two... " - Sir Norman Wisdom	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^5: loop ending b4 I want it to
by NetWallah (Canon) on Nov 04, 2007 at 07:08 UTC

for my $nshash (@namesvr) {
        $nshash->{RESOLVER}  = Net::DNS::Resolver->new (
             nameservers => [$nshash->{NAME}],
             recurse     => 1, ## do recursive lookups
             retry       => 1,
             debug       => 0,
             );
    
}
[download]

   my $ptr = nsqry($namesvr[$ids]->{RESOLVER}, $ip) ;
[download]

"As you get older three things happen. The first is your memory goes, and I can't remember the other two... " - Sir Norman Wisdom

[reply]
[d/l]
[select]