version 1.3, 2001/11/20 14:38:37
|
version 1.4, 2001/12/05 00:56:57
|
Line 1
|
Line 1
|
#!/usr/bin/perl |
#!/usr/bin/perl |
|
|
$dir='result/'; |
$dir='result/'; |
|
|
$debug=0; |
$debug=0; |
|
|
|
$dictdir = "../dict/"; |
|
|
|
$authorsfile = "${dictdir}authors"; |
|
|
|
$nicksfile = "${dictdir}nicks"; |
|
|
|
$ssnicksfile = "${dictdir}ssnicks"; |
|
|
$maxqsize = 3; #максимальный размер учитываемых закавыченных фраз |
$maxqsize = 3; #максимальный размер учитываемых закавыченных фраз |
|
|
$maxwsize = 30; #максимальный размер учитываемых слов |
$maxwsize = 30; #максимальный размер учитываемых слов |
Line 23 $qnumber = 500000; # обрабатываютс
|
Line 32 $qnumber = 500000; # обрабатываютс
|
# Чтобы обработать все вопросы, просто укажите |
# Чтобы обработать все вопросы, просто укажите |
# достаточно большое значение |
# достаточно большое значение |
|
|
$newdict = "../dict/ndict.koi"; |
$newdict = "${dictdir}ndict.koi"; |
|
|
$kwords = "${dir}kwords"; |
$kwords = "${dir}kwords"; |
|
|
Line 49 $wordlist = "${dir}wordlist";
|
Line 58 $wordlist = "${dir}wordlist";
|
|
|
$dwordlist = "${dir}dwordlist"; |
$dwordlist = "${dir}dwordlist"; |
|
|
@dictionaries = ('../dict/dict.koi', '../dict/mydict.koi',$newdict); |
@dictionaries = ("${dictdir}dict.koi", "${dictdir}mydict.koi",$newdict); |
|
|
$newdictionary = 'newdict.koi'; |
$newdictionary = 'newdict.koi'; |
|
|