new-words
view misc/categorized.pl @ 62:3a61988109a8
grep-sentences.pl: color support
| author | Igor Chubin <igor@chub.in> |
|---|---|
| date | Fri Nov 04 20:50:49 2011 +0100 (2011-11-04) |
| parents | |
| children |
line source
1 my @n_m=();
2 my @n_n=();
3 my @n_f=();
4 my @adv=();
5 my @modadv=();
6 my @adj=();
7 my @sub=();
8 my @verb=();
9 my @cj=();
10 my @pron=();
11 my @prp=();
12 my @rest=();
14 while(<>) {
15 if (/adj/) { push @adj, $_; }
16 elsif (/sub/) { push @sub, $_; }
17 elsif (/[| ]v[it][: ]/) { push @verb, $_; }
18 elsif (/\(sich\)/) { push @sich, $_; }
19 elsif (/[| ]m[- :]/) { push @n_m, $_; }
20 elsif (/[| ]n[- :]/) { push @n_n, $_; }
21 elsif (/[| ]f[- :]/) { push @n_f, $_; }
22 elsif (/mod adv/) { push @modadv, $_; }
23 elsif (/adv/) { push @adv, $_; }
24 elsif (/prp[: ]/) { push @prp, $_; }
25 elsif (/cj[: ]/) { push @cj, $_; }
26 elsif (/pron[: ]/) { push @pron, $_; }
27 else { push @rest, $_; }
28 }
30 print "== Существительные ==\n";
31 print "=== Мужской род ===\n";
32 print sort(@n_m);
33 print "\n=== Средний род ===\n";
34 print sort(@n_n);
35 print "\n=== Женский род ===\n";
36 print sort(@n_f);
37 print "\n\n\n== Глаголы ===\n";
38 print sort(@verb);
39 print "\n\n\n== Прилагательные ==\n";
40 print sort(@adj);
41 print "\n\n=== Субстантивированные прилагательные и причастия ===\n";
42 print sort(@sub);
43 print "\n\n\n== Местоимения ==\n";
44 print sort(@pron);
45 print "\n\n\n== Наречия ==\n";
46 print sort(@adv);
47 print "\n\n=== Модальные наречия ===\n";
48 print sort(@modadv);
49 print "\n\n\n== Предлоги ==\n";
50 print sort(@prp);
51 print "\n\n\n== Союзы ==\n";
52 print sort(@cj);
53 print "\n\n\n== Прочее ==\n";
54 print sort(@rest);