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";