Return to collection.pl CVS log

Up to [Local Repository] / processmail

Added new files

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