Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re^3: DNS script troubles

by Cristoforo (Deacon)
on Apr 28, 2012 at 01:02 UTC ( #967752=note: print w/ replies, xml ) Need Help??


in reply to Re^2: DNS script troubles
in thread DNS script troubles

Have you *declared* the 2 variables phenom told you about: $packet, $res?

I suspect that is your problem.


Comment on Re^3: DNS script troubles
Re^4: DNS script troubles
by perlaintdead (Scribe) on Apr 28, 2012 at 01:21 UTC

    still crashes

    print "Web-Sorrow (Extra Tool) DNSpull v1"; use Net::DNS; use Getopt::Long; use warnings; use strict; my $Host = "none"; GetOptions("host=s" => \$Host); # usage if($Host eq "none"){ print "Usage: perl DNSpull.pl -host example.com\n\t-host - domai +n name\n"; exit(); } print "+ ptr mx txt A AAAA KX IN records:\n"; my $packet = Net::DNS::Packet->new($Host, "PTR", "MX", "TXT", "A", "AA +AA"); print $packet->string;
      It's not crashing for me anymore, but it's not returning much information either. I assume you're trying to get information that would be returned from the "dig" command (such as dig www.example.com ANY), but I don't get that response from this module.

      Frankly, I can't make heads or tails of the module's documentation. Is there a reason you chose this one over (e.g.) Net::DNS?

        I AM using Net::DNS and im trying to make a simple dns script (I guess kinda of like dig)

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (8)
As of 2015-07-06 07:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (70 votes), past polls