Return to dumpin2out.pl CVS log

Up to [Local Repository] / db / prgsrc

added files to makefile. Added use lib "../lib";

    1: #!/usr/bin/perl -w
    2: 
    3: =head1 NAME
    4: 
    5: dumpin2out.pl - Скрипт для создания таблицы соответствий
    6: внутренних и независимых от заливки идентификаторов в базе 
    7: вопросов chgk
    8: 
    9: =head1 SYNOPSIS
   10: 
   11: dumpin2out.pl output
   12: 
   13: 
   14: =head1 DESCRIPTION
   15: 
   16: Каждая строка создаваемой таблицы соответствий состоит из
   17: внутреннего и внешнего идентификатора, разделённых пробелами.
   18: Внешний идентификатор имеет вид имя_файла.номер_тура.номер_вопроса
   19: Например:
   20: 
   21: 1               dz97a.5.14
   22: 
   23: 
   24: =head1 AUTHOR
   25: 
   26: Роман Семизаров
   27: 
   28: 
   29: =cut
   30: 
   31:     use lib "../lib";
   32: 
   33: use dbchgk;
   34: use chgkfiles;
   35: 
   36: 
   37: 
   38: if (!$ARGV[0])
   39: {
   40:    print "Usage: dumpin2out.pl output\n";
   41:    exit;
   42: }
   43: 
   44: open IN2OUT, '>'.$ARGV[0] or die "Can not open ".$ARGV[0];
   45: 
   46: 
   47: my $condition=$ARGV[1] && ($ARGV[1] eq 'RS') ? "ProcessedBySearch=1" : '1';
   48: 
   49: getquestions(QuestionId, $condition);
   50: 
   51: while ($qid=getrow,$qid)
   52: { 
   53:    print "$sch...\n" unless (++$sch%1000);
   54:    $i2o=in2out($qid);
   55:    write IN2OUT;
   56: }
   57: 
   58: 
   59: format IN2OUT =
   60: @<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
   61: $qid, $i2o
   62: .
   63: