BEGIN {OFS="\t"} { yomi_length = jlength($1) for (i=1; i<=jlength($1) ; i=i+1) if (jsubstr($1,i) ~ /^[が|ぎ|ぐ|げ|ご|ざ|じ|ず|ぜ|ぞ|だ|ぢ|づ|で|ど|ば|び|ぶ|べ|ぼ|ぱ|ぴ|ぷ|ぺ|ぽ]/) then yomi_length=yomi_length+1 kanji_length = length($2) # if !(yomi_length<=12 && kanji_length<=30) if (yomi_length>12 || kanji_length>30) print $1,$2,$3,yomi_length,kanji_length }