igor@46: my @n_m=();
igor@46: my @n_n=();
igor@46: my @n_f=();
igor@46: my @adv=();
igor@46: my @modadv=();
igor@46: my @adj=();
igor@46: my @sub=();
igor@46: my @verb=();
igor@46: my @cj=();
igor@46: my @pron=();
igor@46: my @prp=();
igor@46: my @rest=();
igor@46: 
igor@46: while(<>) {
igor@46:     if    (/adj/) { push @adj, $_; }
igor@46:     elsif (/sub/) { push @sub, $_; }
igor@46:     elsif (/[| ]v[it][: ]/) { push @verb, $_; }
igor@46:     elsif (/\(sich\)/) { push @sich, $_; }
igor@46:     elsif (/[| ]m[- :]/) { push @n_m, $_; }
igor@46:     elsif (/[| ]n[- :]/) { push @n_n, $_; }
igor@46:     elsif (/[| ]f[- :]/) { push @n_f, $_; }
igor@46:     elsif (/mod adv/) { push @modadv, $_; }
igor@46:     elsif (/adv/) { push @adv, $_; }
igor@46:     elsif (/prp[: ]/) { push @prp, $_; }
igor@46:     elsif (/cj[: ]/) { push @cj, $_; }
igor@46:     elsif (/pron[: ]/) { push @pron, $_; }
igor@46:     else  { push @rest, $_; }
igor@46: }
igor@46: 
igor@46: print "== Существительные ==\n";
igor@46: print "=== Мужской род ===\n";
igor@46: print sort(@n_m);
igor@46: print "\n=== Средний род ===\n";
igor@46: print sort(@n_n);
igor@46: print "\n=== Женский род ===\n";
igor@46: print sort(@n_f);
igor@46: print "\n\n\n== Глаголы ===\n";
igor@46: print sort(@verb);
igor@46: print "\n\n\n== Прилагательные ==\n";
igor@46: print sort(@adj);
igor@46: print "\n\n=== Субстантивированные прилагательные и причастия ===\n";
igor@46: print sort(@sub);
igor@46: print "\n\n\n== Местоимения ==\n";
igor@46: print sort(@pron);
igor@46: print "\n\n\n== Наречия ==\n";
igor@46: print sort(@adv);
igor@46: print "\n\n=== Модальные наречия ===\n";
igor@46: print sort(@modadv);
igor@46: print "\n\n\n== Предлоги ==\n";
igor@46: print sort(@prp);
igor@46: print "\n\n\n== Союзы ==\n";
igor@46: print sort(@cj);
igor@46: print "\n\n\n== Прочее ==\n";
igor@46: print sort(@rest);
igor@46: