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