AI时代，找源码已成为过去式，纪念我过去的十年0(回)
69天前
还有人吗2(回)
87天前会python真的可以为所欲为0(回)
567天前
这里还有人吗2(回)
752天前这里还有人吗0(回)
752天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
977天前#----------------------------- |
use Net::Whois; |
$domain_obj = Net::Whois::Domain->new ( $domain_name ) |
or die "Couldn't get information on $domain_name: $!\n"; |
# call methods on $domain_obj to get name, tag, address, etc. |
#----------------------------- |
$d = Net::Whois::Domain->new ( "perl.org" ) |
or die "Can't get information on perl.org\n"; |
#----------------------------- |
print "The domain is called ", $d->domain, "\n"; |
print "Its tag is ", $d->tag, "\n"; |
#----------------------------- |
print "Mail for ", $d->name, " should be sent to:\n"; |
print map { "\t$_\n" } $d->address; |
print "\t", $d->country, "\n"; |
#----------------------------- |
$contact_hash = $d->contacts; |
if ( $contact_hash ) |
{ |
print "Contacts:\n"; |
foreach $type ( sort keys %$contact_hash ) |
{ |
print " $type:\n"; |
foreach $line ( @ {$contact_hash->{$type}} ) |
{ |
print " $line\n"; |
} |
} |
} |
else |
{ |
print "No contact information.\n"; |
} |
#----------------------------- |
by: 发表于：2017-09-15 16:55:54 顶(0) | 踩(0) 回复
？？
回复评论