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