Hi All,
I've just knocked together a quick script to check the reverse DNS entries for a /16. It's purpose is to print any IP addres that doesn't have a reverse entry (currently I'm not worried about forward and reverse entries being the same).
I've written the following, but would be interested in a "better" way of doing this:
#!/usr/bin/perl
use Net::DNS
$res = Net::DNS::Resolver->new;
for($c = 0; $c <= 255; $c++) {
for($d = 0; $d <= 255; $d++) {
$query= $res->query("81.86.$c.$d", "PTR");
print "81.86.$c.$d" unless $query;
}
}
Anyone who fancies a quick blast at Perl golf, but all means put on you spikey shoes and silly clothes and swing away.
!unlike
I write my Perl code like how I like my sex: fast and dirty. ;)
edited: Tue Apr 22 14:18:43 2003
by jeffa - title change (was: Seeking a better way)
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|