Net::Whois sometimes fails

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

Hi. The following code sometimes runs, but often fails with with the message
Registrant Name not found in returned information at C:/Perl/site/lib/Net/Whois.pm line 301. .
Can someone explain why this code doesn't run consistently, and how to fix it? Thanks --
sigma

use strict;


use Data::Dumper;
use Net::Whois;


my $url = 'www.yahoo.com/';

$url =~ m/^([^\/]+)\//;
$1 =~ m/([^.]+\.[^.]+)$/;
my $domain = $1;

print STDERR "$url\nhitting whois for $domain...\n";
my $w = new Net::Whois::Domain $domain;
die unless $w and $w->ok;

print join("\n",
       $w->domain, 
       $w->name,
       $w->address,
       $w->country);
if (my $c = $w->contacts) {
    for my $t (sort keys %$c) {
    print "    $t:\t";
    print map { "\t$_\t" } @{$$c{$t}};
    }
}
print "\n";
[download]

Comment on Net::Whois sometimes fails Download Code

Replies are listed 'Best First'.
Re: Net::Whois sometimes fails by Ovid (Cardinal) on Apr 04, 2003 at 21:16 UTC
I can't commend on your particular issue as I haven't used Net::Whois for a while, but I recall that when I was using it, it frequently would not return expected results. I wound up contacting the author of another module and asked some questions about it and he eventually wound up uploading it to the CPAN as Net::ParseWhois. It's backwards compatible to Net::Whois and seems to do a better job of handling whois queries. Cheers, Ovid New address of my CGI Course. Silence is Evil (feel free to copy and distribute widely - note copyright text)	[reply]
Re: Re: Net::Whois sometimes fails by phydeauxarff (Priest) on Apr 04, 2003 at 22:04 UTC
I found I had the same experience Ovid observed with Net::Whois so I ended up using Net::Whois::Raw for an application I was working on and was pleased with the results.	[reply]
Re: Net::Whois sometimes fails by Mr. Muskrat (Canon) on Apr 04, 2003 at 21:15 UTC
Changing `my $w = new Net::Whois::Domain $domain;` to `my $w = new Net::Whois::Domain $domain or die "Can't connect to Whois server\n";` should be sufficient to explain it to you. :)	[reply] [d/l] [select]