[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.2

version 1.1, 2001/10/31 03:00:10 version 1.2, 2001/10/31 03:07:27
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  dumpin2out.pl output RS
   
 =head1 DESCRIPTION  =head1 DESCRIPTION
   
 Каждая строка создаваемой таблицы соответствий состоит из  Каждая строка создаваемой таблицы соответствий состоит из
 внутреннего и внешнего идентификатора, разделённых пробелами.  внутреннего и внешнего идентификатора, разделённых пробелами.
 Внешний идентификатор имеет вид имя_файла.номер_тура.номер_вопроса  Внешний идентификатор имеет вид имя_файла.номер_тура.номер_вопроса
 Например:  Например:
   
 1               dz97a.5.14  1               dz97a.5.14
   
   
 =head1 AUTHOR  =head1 AUTHOR
   
 Роман Семизаров  Роман Семизаров
   
   
 =cut  =cut
   
 use dbchgk;  use dbchgk;
 use chgkfiles;  use chgkfiles;
   
   
   
 if (!$ARGV[0])  if (!$ARGV[0])
 {  {
    print "Usage: dumpin2out.pl output\n";     print "Usage: dumpin2out.pl output\n";
    exit;     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);     print "$sch...\n" unless (++$sch%1000);
    $i2o=in2out($qid);     $i2o=in2out($qid);
    write IN2OUT;     write IN2OUT;
 }  }
   
   
 format IN2OUT =  format IN2OUT =
 @<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  @<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 $qid, $i2o  $qid, $i2o
 .  .
   
Removed from v.1.1  
changed lines
  Added in v.1.2

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