Awk to parse mecab result

parser.awk

BEGIN {
  first_line=1;
  idx=1;
  max_words=100;
}

{
  if (index($4,"名詞") == 1)
    if (first_line == 1) {
      printf "%s", toupper($1);
      first_line=0;
      idx++;
    } else {
      if ((idx % max_words) == 1) {
        printf "\n%s", toupper($1);
      } else {
        printf " %s", toupper($1);
      }

      if (idx == max_word){
        idx = 1;
      } else {
        idx++;
      }
    }
}

END {print ""}