1Net::Domain::TLD(3) User Contributed Perl Documentation Net::Domain::TLD(3)
2
3
4
6 Net::Domain::TLD - Work with TLD names
7
9 use Net::Domain::TLD qw(tlds tld_exists);
10 my @ccTLDs = tlds('cc');
11 print "TLD ok\n" if tld_exists('ac','cc');
12
14 The purpose of this module is to provide user with current list of
15 available top level domain names including new ICANN additions and ccTLDs
16 Currently TLD definitions have been acquired from the following sources:
17
18 http://www.icann.org/tlds/
19 http://www.dnso.org/constituency/gtld/gtld.html
20 http://www.iana.org/cctld/cctld-whois.htm
21
23 Each public function/method is described here.
24 These are how you should interact with this module.
25
26 "tlds"
27
28 This routine returns the tlds requested.
29
30 my @all_tlds = tlds; #array of tlds
31 my $all_tlds = tlds; #hashref of tlds and their descriptions
32
33 my @cc_tlds = tlds('cc'); #array of just 'cc' type tlds
34 my $cc_tlds = tlds('cc'); #hashref of just 'cc' type tlds and their descriptions
35
36 Valid types are:
37 cc - country code domains
38 gtld_open - generic domains that anyone can register
39 gtld_restricted - generic restricted registration domains
40 new_open - recently added generic domains
41 new_restricted - new restricted registration domains
42
43 "tld_exists"
44
45 This routine returns true if the given domain exists and false otherwise.
46
47 die "no such domain" unless tld_exists($tld); #call without tld type
48 die "no such domain" unless tld_exists($tld, 'new_open'); #call with tld type
49
51 Copyright (c) 2003-2005 Alex Pavlovic, all rights reserved. This program
52 is free software; you can redistribute it and/or modify it under the same terms
53 as Perl itself.
54
56 Alexander Pavlovic <alex.pavlovic@taskforce-1.com>
57 Ricardo SIGNES <rjbs@cpan.org>
58
59
60
61perl v5.8.8 2006-01-25 Net::Domain::TLD(3)