new-words

annotate misc/categorized.pl @ 68:846240941452

added -C key: compress to lines; fixed bug with #90-line
author Igor Chubin <igor@chub.in>
date Sun Sep 23 16:07:29 2012 +0300 (2012-09-23)
parents
children
rev   line source
igor@46 1 my @n_m=();
igor@46 2 my @n_n=();
igor@46 3 my @n_f=();
igor@46 4 my @adv=();
igor@46 5 my @modadv=();
igor@46 6 my @adj=();
igor@46 7 my @sub=();
igor@46 8 my @verb=();
igor@46 9 my @cj=();
igor@46 10 my @pron=();
igor@46 11 my @prp=();
igor@46 12 my @rest=();
igor@46 13
igor@46 14 while(<>) {
igor@46 15 if (/adj/) { push @adj, $_; }
igor@46 16 elsif (/sub/) { push @sub, $_; }
igor@46 17 elsif (/[| ]v[it][: ]/) { push @verb, $_; }
igor@46 18 elsif (/\(sich\)/) { push @sich, $_; }
igor@46 19 elsif (/[| ]m[- :]/) { push @n_m, $_; }
igor@46 20 elsif (/[| ]n[- :]/) { push @n_n, $_; }
igor@46 21 elsif (/[| ]f[- :]/) { push @n_f, $_; }
igor@46 22 elsif (/mod adv/) { push @modadv, $_; }
igor@46 23 elsif (/adv/) { push @adv, $_; }
igor@46 24 elsif (/prp[: ]/) { push @prp, $_; }
igor@46 25 elsif (/cj[: ]/) { push @cj, $_; }
igor@46 26 elsif (/pron[: ]/) { push @pron, $_; }
igor@46 27 else { push @rest, $_; }
igor@46 28 }
igor@46 29
igor@46 30 print "== Существительные ==\n";
igor@46 31 print "=== Мужской род ===\n";
igor@46 32 print sort(@n_m);
igor@46 33 print "\n=== Средний род ===\n";
igor@46 34 print sort(@n_n);
igor@46 35 print "\n=== Женский род ===\n";
igor@46 36 print sort(@n_f);
igor@46 37 print "\n\n\n== Глаголы ===\n";
igor@46 38 print sort(@verb);
igor@46 39 print "\n\n\n== Прилагательные ==\n";
igor@46 40 print sort(@adj);
igor@46 41 print "\n\n=== Субстантивированные прилагательные и причастия ===\n";
igor@46 42 print sort(@sub);
igor@46 43 print "\n\n\n== Местоимения ==\n";
igor@46 44 print sort(@pron);
igor@46 45 print "\n\n\n== Наречия ==\n";
igor@46 46 print sort(@adv);
igor@46 47 print "\n\n=== Модальные наречия ===\n";
igor@46 48 print sort(@modadv);
igor@46 49 print "\n\n\n== Предлоги ==\n";
igor@46 50 print sort(@prp);
igor@46 51 print "\n\n\n== Союзы ==\n";
igor@46 52 print sort(@cj);
igor@46 53 print "\n\n\n== Прочее ==\n";
igor@46 54 print sort(@rest);
igor@46 55