Return to collection.pl CVS log

Up to [Local Repository] / processmail

Annotation of processmail/collection.pl, revision 1.3

1.1       boris       1: #!/usr/local/bin/perl
                      2: #
1.2       boris       3: #$Id: collection.pl,v 1.1 2002/02/04 15:44:28 boris Exp boris $
1.1       boris       4: #
                      5: # Собрание сочинений
                      6: #
                      7:     use Getopt::Std; 
                      8: 
1.2       boris       9: $usage = 'collection.pl $Revision: 1.1 $, $Date: 2002/02/04 15:44:28 $'. "\n".
1.1       boris      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: