Return to dumpin2out.pl CVS log

Up to [Local Repository] / db / prgsrc

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

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: 
                     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
1.3     ! boris      30: 
        !            31:     use lib "../lib";
1.2       boris      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: