[BACK]Return to dumpin2out.pl CVS log [TXT] [DIR] Up to [Local Repository] / db / prgsrc

Diff for /db/prgsrc/dumpin2out.pl between versions 1.1 and 1.3

version 1.1, 2001/10/31 03:00:10 version 1.3, 2001/11/01 01:44:59
Line 1 Line 1
 #!/usr/local/bin/perl -w  #!/usr/bin/perl -w
   
 =head1 NAME  =head1 NAME
   
 dumpin2out.pl - Скрипт для создания таблицы соответствий  dumpin2out.pl - Скрипт для создания таблицы соответствий
 внутренних и независимых от заливки идентификаторов в базе  внутренних и независимых от заливки идентификаторов в базе 
 вопросов chgk  вопросов chgk
   
 =head1 SYNOPSIS  =head1 SYNOPSIS
   
 dumpin2out.pl output  dumpin2out.pl output
   
 dumpin2out.pl output RS  
   =head1 DESCRIPTION
 =head1 DESCRIPTION  
   Каждая строка создаваемой таблицы соответствий состоит из
 Каждая строка создаваемой таблицы соответствий состоит из  внутреннего и внешнего идентификатора, разделённых пробелами.
 внутреннего и внешнего идентификатора, разделённых пробелами.  Внешний идентификатор имеет вид имя_файла.номер_тура.номер_вопроса
 Внешний идентификатор имеет вид имя_файла.номер_тура.номер_вопроса  Например:
 Например:  
   1               dz97a.5.14
 1               dz97a.5.14  
   
   =head1 AUTHOR
 =head1 AUTHOR  
   Роман Семизаров
 Роман Семизаров  
   
   =cut
 =cut  
       use lib "../lib";
 use dbchgk;  
 use chgkfiles;  use dbchgk;
   use chgkfiles;
   
   
 if (!$ARGV[0])  
 {  if (!$ARGV[0])
    print "Usage: dumpin2out.pl output\n";  {
    exit;     print "Usage: dumpin2out.pl output\n";
 }     exit;
   }
 open IN2OUT, '>'.$ARGV[0] or die "Can not open ".$ARGV[0];  
   open IN2OUT, '>'.$ARGV[0] or die "Can not open ".$ARGV[0];
   
 my $condition=$ARGV[1] && ($ARGV[1] eq 'RS') ? "ProcessedBySearch=1" : '1';  
   my $condition=$ARGV[1] && ($ARGV[1] eq 'RS') ? "ProcessedBySearch=1" : '1';
 getquestions(QuestionId, $condition);  
   getquestions(QuestionId, $condition);
 while ($qid=getrow,$qid)  
 {  while ($qid=getrow,$qid)
    print "$sch...\n" unless (++$sch%1000);  { 
    $i2o=in2out($qid);     print "$sch...\n" unless (++$sch%1000);
    write IN2OUT;     $i2o=in2out($qid);
 }     write IN2OUT;
   }
   
 format IN2OUT =  
 @<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  format IN2OUT =
 $qid, $i2o  @<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 .  $qid, $i2o
   .
   
Removed from v.1.1  
changed lines
  Added in v.1.3

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>