Return to dumpin2out.pl CVS log

Up to [Local Repository] / db / prgsrc

Annotation of db/prgsrc/dumpin2out.pl, revision 1.2

1.2     ! boris       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: 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: