1: #!/usr/local/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>