#!/usr/bin/perl
#
# usage: $ perl ./mksubdom.pl | sort | uniq
#
# output: SUBDOMAIN nttdata.co.jp '株式会社エヌ・ティ・ティ・データ'
#

open (DAT,"./test.txt") or die "Cound not open: $!\n";
while (<DAT>) {
    chomp;
    if (/(\w+)(\.)(\w+)(.jp)$/) {
	$a = $1;
	$b = $3;
                if ($b eq "co" or $b eq "ne" or $b eq "or" or $b eq "ac" or $b eq "ed"
		    or $b eq "go" or $b eq "ad" or $b eq "gr" ) {
		    $domain = "$a.$b.jp"; $JPRS = 0
		    } else {
                        $domain = "$b.jp"; $JPRS = 1;
		    }
    }

    $cmd = "whois $domain";
        #$cmd = "whois -h whois.nic.ad.jp $domain";

    undef @name,$name,$whois,$cmd;

    open(CMD,"$cmd |");
    foreach $whois (<CMD>) {
	if ($whois =~ /^(c. |f. )(.*)$/) {
	    @name = split(/\s+/,$2);
	    $name=$name[1];
	}
    }
    close (CMD);
    print "SUBDOMAIN $domain '$name'\n" if ($name and !$JPRS);
    sleep 10;
}
close (DAT);