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
30:
31: use lib "../lib";
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:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>