Return to loganalysis.pl CVS log

Up to [LON-CAPA] / capa / capa51 / CapaTools

Initial revision

    1: #!/usr/local/bin/perl
    2: 
    3:  require('getopts.pl');
    4:  
    5:  
    6:  
    7:  sub  S_Enterpath {
    8:     local($set)=@_;
    9:     local($notdone,$path);
   10:     
   11:     $notdone = 1;
   12:     while ($notdone) {
   13:       print "Please enter the CLASS absolute path:\n";
   14:       $path = <>; chomp($path);
   15:       if( $path =~ /\/$/ ) {
   16:         $Rfullpath = "$path" . "records";
   17:         $Lfullpath = "$path" . "records/log$set.db";
   18:         $Wfullpath = "$path" . "records/weblog$set.db";
   19:       } else {
   20:         $Rfullpath = "$path" . "/records";
   21:         $Lfullpath = "$path" . "/records/log$set.db";
   22:         $Wfullpath = "$path" . "/records/weblog$set.db";
   23:       }
   24:       if( -d $path ) {
   25:         if( -d $Rfullpath ) {
   26:           if( -f $Lfullpath ) {
   27:             $notdone = 0;
   28:           } else {
   29:             print "File [$Lfullpath] does not exist!\n";
   30:           }
   31:           if( -f $Wfullpath ) {
   32:             $notdone = 0;
   33:           } else {
   34:             print "File [$Wfullpath] does not exist!\n";
   35:           }
   36:         } else {
   37:           print "Directory [$Rfullpath] does not exist!\n";
   38:         }
   39:       } else {
   40:         print "Directory [$path] does not exist!\n";
   41:       }
   42:     
   43:     }
   44:     return ($path);
   45:   }
   46:   
   47:   sub S_ScanDB  {
   48:     local($filename)=@_;
   49:     local($line_cnt)=0;
   50:     local($s_num,$dow,$mon,$sp,$day,$time,$yr,$ans_str);
   51:     local(@ans_char);
   52:     local($ii,$first);
   53:     local($Yes_cnt,$No_cnt);
   54:     
   55:     open(IN, "<$filename") || die "Cannot open $filename file!";
   56:     $Yes_cnt = 0; $No_cnt = 0;
   57:     while (<IN>) {
   58:       $line_cnt++;
   59:       chomp();
   60:       ($first,$ans_str) = split(/1997 /);
   61:        # print "$ans_str\n";
   62:       (@ans_char) = split(/ */,$ans_str);
   63:        
   64:        for($ii=0;$ii<=$#ans_char;$ii++) {
   65:        
   66:          $Yes_cnt++ if $ans_char[$ii] eq 'Y';
   67:          
   68:          $No_cnt++  if $ans_char[$ii] eq 'N';
   69:        }
   70:      }
   71:      close(IN) || die "Cannot close $filename file!";
   72:      print  "$filename contains $line_cnt lines.\n";
   73:      print  "  Yes = $Yes_cnt, No = $No_cnt\n";
   74:      return ($Yes_cnt,$No_cnt);
   75:   }
   76:   
   77:   
   78:   
   79:   if(! &Getopts('s:') ) {
   80:      print STDERR "$Usage\n";
   81:      exit 2;
   82:   }
   83:   $opt_s = 1  if ! $opt_s;
   84:   S_Enterpath($opt_s);
   85:   
   86:   ($Y_cntL,$N_cntL) = S_ScanDB("$Lfullpath");
   87:   ($Y_cntW,$N_cntW) = S_ScanDB("$Wfullpath");
   88:   $Yratio = 0.0; $Nratio = 0.0;
   89:   $Yratio = $Y_cntW / $Y_cntL;
   90:   $Nratio = $N_cntL / $N_cntW;
   91:   
   92:   printf " Y ratio = %5.2f, N ratio = %5.2f\n", $Yratio , $Nratio;
   93:   
   94:   
   95:   
   96:   
   97: