use Net::Domain::TLD qw(tlds tld_exists);
my @ccTLDs = tlds('cc');
print "TLD ok\n" if tld_exists('ac','cc');
The purpose of this module is to provide user with current list of available top level domain names including new ICANN additions and ccTLDs Currently TLD definitions have been acquired from the following sources: http://www.icann.org/tlds/ http://www.dnso.org/constituency/gtld/gtld.html http://www.iana.org/cctld/cctld-whois.htm https://www.iana.org/domains/root/db
Each public function/method is described here. These are how you should interact with this module.
This routine returns the tlds requested. my @all_tlds = tlds; #array of tlds my $all_tlds = tlds; #hashref of tlds and their descriptions my @cc_tlds = tlds('cc'); #array of just 'cc' type tlds my $cc_tlds = tlds('cc'); #hashref of just 'cc' type tlds and their descriptions Valid types are: cc - country code domains ccidn - internationalized country code top-level domain gtld_open - generic domains that anyone can register gtld_restricted - generic restricted registration domains gtld_new - new gTLDs new_open - recently added generic domains new_restricted - new restricted registration domains reserved - RFC2606 restricted names, not returned by tlds
This routine returns true if the given domain exists and false otherwise. die "no such domain" unless tld_exists($tld); #call without tld type die "no such domain" unless tld_exists($tld, 'new_open'); #call with tld type
Copyright (c) 2003-2016 Alex Pavlovic, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.