Return to chgk.cnf CVS log

Up to [Local Repository] / db / prgsrc

Adding makeauthors.pl

    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";     #кандидаты на похожесть