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