Return to dumpin2out.pl CVS log

Up to [Local Repository] / db / prgsrc

Adding Roma 7's files

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