DNS script troubles

perlaintdead has asked for the wisdom of the Perl Monks concerning the following question:

Hello Monks, I'v been having trouble with this code:

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"

$packet = Net::DNS::Packet->new();

$res = $packet->query($Host, "PTR", "MX", "TXT", "A", "AAAA", "KX", "I
+N");

print $res->string;
[download]

it crashes ever time i run it. and I have installed all the Modules

Comment on DNS script troubles Download Code

Replies are listed 'Best First'.
Re: DNS script troubles by phenom (Chaplain) on Apr 28, 2012 at 00:48 UTC
You should spell out what errors you're getting. Also, you're missing a colon on this line: `print "+ ptr mx txt A AAAA KX IN records:\n"` [download] And you didn't declare $packet or $res.	[reply] [d/l]
Re^2: DNS script troubles by perlaintdead (Scribe) on Apr 28, 2012 at 00:50 UTC
I get A windows dialog box: the perl interpreter has stoped woking	[reply]
Re^3: DNS script troubles by Cristoforo (Curate) on Apr 28, 2012 at 01:02 UTC
Have you declared the 2 variables phenom told you about: $packet, $res? I suspect that is your problem.	[reply]
Re^4: DNS script troubles by perlaintdead (Scribe) on Apr 28, 2012 at 01:21 UTC
Re^5: DNS script troubles by phenom (Chaplain) on Apr 28, 2012 at 12:36 UTC
Some notes below your chosen depth have not been shown here
Re^3: DNS script troubles by phenom (Chaplain) on Apr 28, 2012 at 00:59 UTC
Did you fix those errors I mentioned in the previous post? Also, I don't believe there's a "query" method in that module. Are you thinking of a different module? Try re-reading the documentation for that module.	[reply]

Back to Seekers of Perl Wisdom