1: #!/usr/local/bin/perl
2: #
3: #$Id: collection.pl,v 1.1 2002/02/04 15:44:28 boris Exp $
4: #
5: # Собрание сочинений
6: #
7: use Getopt::Std;
8:
9: $usage = 'collection.pl $Revision: 1.1 $, $Date: 2002/02/04 15:44:28 $'. "\n".
10: "Usage: collection.pl [-d] [-t table_file] [-m mail_file] [-o results] \n";
11:
12: require 'parameters.pl';
13: require 'subroutines.pl';
14:
15: die $usage unless getopts('t:m:o:d');
16:
17: $DEBUG=$opt_d;
18:
19:
20:
21: my %teams;
22: my @answers;
23: #
24: # Читаем старые результаты
25: #
26: if ($opt_t)
27: {
28: die "Cannot open $opt_t\n" unless open(INFILE,$opt_t);
29: readhash(\@answers);
30: close(INFILE);
31: }
32:
33: #
34: # Читаем ответы команд
35: #
36: if ($opt_m)
37: {
38: die "Cannot open $opt_m\n" unless open(INFILE,$opt_m)
39: }
40: else
41: {
42: *INFILE=*STDIN;
43: }
44: readmail(\%teams);
45: close(INFILE);
46: #
47: # Чистим хэш %answers
48: #
49: collect_answers(\%teams,\@answers);
50: #
51: # Пишем измененную таблицу в файл.
52: #
53: if ($opt_o)
54: {
55: die "Cannot open $opt_o\n" unless open(OUTFILE,">$opt_o");
56: select OUTFILE;
57: }
58: for ($i=1;$i<=$MAXQUEST;$i++)
59: {
60: print "\nВОПРОС $i:\n";
61: print "\nЗАСЧИТАНО:\n";
62: anondump(\%teams,\@answers,$i,'+');
63: print "\nНЕ ЗАСЧИТАНО:\n";
64: anondump(\%teams,\@answers,$i,'-');
65: print "\nНЕ ЯСНО:\n";
66: anondump(\%teams,\@answers,$i,'?');
67: }
68: print "***\n";
69:
70:
71:
72:
73:
74:
75:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>