Return to loganalysis.pl CVS log

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

Annotation of capa/capa51/CapaTools/loganalysis.pl, revision 1.1.1.1

1.1       albertel    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: