Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Better way to check reverse DNS entries

by rob_au (Abbot)
on Apr 22, 2003 at 13:03 UTC ( [id://252257]=note: print w/replies, xml ) Need Help??


in reply to Better way to check reverse DNS entries

It was in reply to a similar post to this that I was motivated to write the snippet I posted at Iterate network hosts - This subroutine of code uses the Net::Netmask module to iterate through network hosts specified by network address and subnet mask. The network address and subnet mask passed to this subroutine can take the form of separate network block and subnet masks (eg. 192.168.1.0 and 255.255.255.0) or CIDR notation (eg. 192.168.1.0/24).

For example:

#!/usr/bin/perl use Net::DNS use Net::Netmask; my $resolver = Net::DNS::Resolver->new; print $_, "\n" for grep { ! $resolver->query( $_, 'PTR' ) } ips( '81.86/16' ); sub ips { my $net = Net::Netmask->new(@_); wantarray ? $net->enumerate : \@{$net->enumerate}; }

Never should your network administration scripts be non-portable!

 

perl -le 'print+unpack("N",pack("B32","00000000000000000000001001001110"))'

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://252257]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others pondering the Monastery: (6)
As of 2024-03-28 14:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found