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:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>