cdic

#!/usr/bin/perl

#$eiwa_dict = $ENV{'HOME'}."/usr/local/share/dict/gene.sdic";
$eiwa_dict = "/usr/local/share/dict/eedict.sdic";
$waei_dict = "/usr/local/share/dict/jedict.sdic";

if(ord ${ARGV[0]} < 0200){
    &search_dict($eiwa_dict);
}
else{
    &search_dict($waei_dict);
}

sub search_dict {
    open DICT ,$_[0];
    while(<DICT>){
	if(/<K>([-"~]|``|\.*)${ARGV[0]}[^a-z]/){
	    if(/<H>.*<\/H>/){
		s/<K>.*<\/K>//g;
		s/<H>//g;
		s/<\/H>/\n  /g;
	    }
	    else{
		s/<K>//g;
		s/<\/K>/\n  /g;
	    }
	    s/,/, /g;
	    print;
	}
    }
    close DICT;
}