version 1.3, 2001/11/20 14:38:37
|
version 1.7, 2010/04/24 18:04:14
|
Line 1
|
Line 1
|
#!/usr/bin/perl |
#!/usr/bin/perl |
|
|
$dir='result/'; |
$dir='result/'; |
|
|
$debug=0; |
$debug=0; |
|
|
|
$dictdir = "../dict/"; |
|
|
|
$authorsfile = "${dictdir}authors"; |
|
|
|
$editorsfile = "${dictdir}authors"; |
|
|
|
$nicksfile = "${dictdir}nicks"; |
|
|
|
$ssnicksfile = "${dictdir}ssnicks"; |
|
|
$maxqsize = 3; #максимальный размер учитываемых закавыченных фраз |
$maxqsize = 3; #максимальный размер учитываемых закавыченных фраз |
|
|
$maxwsize = 30; #максимальный размер учитываемых слов |
$maxwsize = 30; #максимальный размер учитываемых слов |
|
|
$stderr = "errors"; |
|
|
|
$unknown = "unknown"; |
$DUMPDIR = $ENV{DUMPDIR} || "../dump"; |
|
|
|
$stderr = "$DUMPDIR/errors"; |
|
|
|
$unknown = "$DUMPDIR/unknown"; |
|
|
$dumprs = "dumprs"; |
$dumprs = "$DUMPDIR/dumprs"; |
|
|
$warnings = "warnings"; |
$warnings = "$DUMPDIR/warnings"; |
|
|
$in2out = "in2out"; |
$in2out = "$DUMPDIR/in2out"; |
|
|
$minstop=200000; |
$minstop=200000; |
|
|
$qnumber = 500000; # обрабатываются вопросы, ID которых меньше чем $qnumber. |
$qnumber = 1000000; # обрабатываются вопросы, ID которых меньше чем $qnumber. |
# Чтобы обработать все вопросы, просто укажите |
# Чтобы обработать все вопросы, просто укажите |
# достаточно большое значение |
# достаточно большое значение |
|
|
$newdict = "../dict/ndict.koi"; |
$newdict = "${dictdir}ndict.koi"; |
|
|
$kwords = "${dir}kwords"; |
$kwords = "${dir}kwords"; |
|
|
Line 49 $wordlist = "${dir}wordlist";
|
Line 63 $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'; |
|
|