fqdn2domain - Extract the domain from fully qualified domain name of a host.
require 'fqdn2domain.pl';
$domain_of_host = &fqdn2domain::extract($fqdn_of_host);
If a return value has postfix ``*'', that value may be wrong. Please report me with original host names and $Pattern_Date.
Thank you for your cooperation.
Yuuichirou Oka <oka@a-f.jp>
Latest version is distributed at http://a-f.jp/oka/domains/fqdn2domain/
Copyright (c) 2003-2004 Yuuichirou Oka. All rights reserved.
This script is freeware. You can use, modify and/or redistribute this script under the terms of GNU General Public License(GPL). For detail about GNU GPL, see http://www.gnu.org/licenses/licenses.html .