1: #!/usr/bin/perl
2:
3: $dir='result/';
4:
5: $debug=0;
6:
7: $dictdir = "../dict/";
8:
9: $authorsfile = "${dictdir}authors";
10:
11: $nicksfile = "${dictdir}nicks";
12:
13: $ssnicksfile = "${dictdir}ssnicks";
14:
15: $maxqsize = 3; #максимальный размер учитываемых закавыченных фраз
16:
17: $maxwsize = 30; #максимальный размер учитываемых слов
18:
19: $stderr = "errors";
20:
21: $unknown = "unknown";
22:
23: $dumprs = "dumprs";
24:
25: $warnings = "warnings";
26:
27: $in2out = "in2out";
28:
29: $minstop=200000;
30:
31: $qnumber = 500000; # обрабатываются вопросы, ID которых меньше чем $qnumber.
32: # Чтобы обработать все вопросы, просто укажите
33: # достаточно большое значение
34:
35: $newdict = "${dictdir}ndict.koi";
36:
37: $kwords = "${dir}kwords";
38:
39: $v2k = "${dir}v2k"; # номер вопроса -> список кл. слов
40:
41: $k2v = "${dir}k2v"; # номер ключевых слов -> список вопросов
42:
43: $cv2k = "${dir}cv2k"; # номер вопроса -> список номеров кл. слов
44:
45: $ck2v = "${dir}ck2v"; # номер ключевого слова -> список вопросов
46:
47: $warn = "${dir}warn"; # варнинги
48:
49: $kquotes = "${dir}kquotes";
50:
51: $ewordlist = "${dir}ewordlist";
52:
53: $kwordlist = "${dir}kwordlist";
54:
55: $vwordlist = "${dir}vwordlist"; # Список символосочетаний. Разделители -- пробелы.
56:
57: $wordlist = "${dir}wordlist";
58:
59: $dwordlist = "${dir}dwordlist";
60:
61: @dictionaries = ("${dictdir}dict.koi", "${dictdir}mydict.koi",$newdict);
62:
63: $newdictionary = 'newdict.koi';
64:
65: $rules = 'raff.koi';
66:
67: $compound_keys = 'compound_keys';
68:
69: $versions = "${dir}serrors";
70:
71: $nf = "${dir}gwords";
72:
73: $newnf = "${dir}newgwords";
74:
75: $newerrors = "${dir}newerrors";
76:
77: $sorterrors = 'se.pl';
78:
79: $table = "${dir}nests";
80:
81: $newtable = "${dir}newnests";
82:
83: $errors = "${dir}errors";
84:
85: $base = 'chgk'; # Имя базы
86:
87: $checkaffix = 'fw.pl';
88:
89: $check = 'check.pl';
90:
91: $checkword = 'cw.pl';
92:
93: $singleaffix = 'sa.pl';
94:
95: $info = "${dir}info";
96:
97: $often = 10000;
98:
99: $seldom = 0;
100:
101: $ctable = "${dir}ctable";
102:
103: $cnf = "${dir}cnf";
104:
105: $proxlimit = 20;
106:
107: $equal = "equall";
108:
109: $equals = "${dir}equals.txt"; # имя файла, в который будет записываться
110: # список одинаковых вопросов
111:
112: $vlist = "${dir}vlist"; # файл, в который будут писаться списки вопросов,
113: # в которых есть слово
114:
115: $alike = "${dir}alike"; #кандидаты на похожесть
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>