hello all-
my script is as follows:
#!/usr/bin/perl -w
use strict;
use Net::DNS;
$res = new Net:DNS::Resolver;
$query = $res->query("216.8.86.8","PTR");
if ($query) {
foreach $rr ($query->answer) {
next unless $rr->type eq "PTR";
print "ptrdname =", $rr->ptrdname, "\n";
}
} else {
print "query failed: ", $res->errorstring, "\n";
}
however, when its ran, i receive:
defined(@array) is deprecated at /usr/lib/perl5/site_perl/5.6.0/Net/DNS.pm
line 137.
(Maybe you should just omit the defined()?)
syntax error at ./ipnew line 7, near "new Net:"
Execution of ./ipnew aborted due to compilation errors.
i am using perl5.6.0 and net-dns-0.12. A colleague has it running on
another machine, and i believe that our code is the same. i have very
limited experience with modules or creating objects using $scalar = new so
a simple mistake could be lurking
your advice is appreciated, -charles
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
