#MS-IME_txt to SL-C700_udic_master.txt

$c = 0;

while(<>){
	$c = $c + 1;
}

if( $c > 1000){
	print "#warning!\n";
	print "#Entry over 1000words.\n";
}

open(OUTFILE,'>udic_master.txt');

print OUTFILE "#かな漢字変換ユーザー辞書ファイル\n";
print OUTFILE "[INFO]\n";
print OUTFILE "ver=2.00\n";
print OUTFILE "create=SLUD\n";
print OUTFILE "[DATA]\n";
print OUTFILE "words=";
print OUTFILE $c;
print OUTFILE "\n";

close(ARGV);
open(ARGV);

while(<>){
split(/\t|:/);
print OUTFILE "@";
print OUTFILE @_[0];
print OUTFILE "\n";
print OUTFILE @_[1];
print OUTFILE "\n";
print OUTFILE "0\n";
}
close(ARGV);
print OUTFILE "[DEND]\n";
close(OUTFILE);