Return to duration.rpt.pl CVS log

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

Annotation of capa/capa51/CapaTools/duration.rpt.pl, revision 1.1

1.1     ! albertel    1: #!/usr/local/bin/perl
        !             2: 
        !             3:  require('getopts.pl');
        !             4:  
        !             5:  sub  S_Enterpath {
        !             6:     local($notdone,$path);
        !             7:     
        !             8:     $notdone = 1;
        !             9:     while ($notdone) {
        !            10:       print "Please enter the CLASS absolute path:\n";
        !            11:       $path = <>; chomp($path);
        !            12:       if( $path =~ /\/$/ ) {
        !            13:         $Rfullpath = "$path" . "records";
        !            14:         $Dfullpath = "$path" . "records/duration.db";
        !            15:        
        !            16:       } else {
        !            17:         $Rfullpath = "$path" . "/records";
        !            18:         $Dfullpath = "$path" . "/records/duration.db";
        !            19:         
        !            20:       }
        !            21:       if( -d $path ) {
        !            22:         if( -d $Rfullpath ) {
        !            23:           if( -f $Dfullpath ) {
        !            24:             $notdone = 0;
        !            25:           } else {
        !            26:             print "File [$Dfullpath] does not exist!\n";
        !            27:           }
        !            28:         } else {
        !            29:           print "Directory [$Rfullpath] does not exist!\n";
        !            30:         }
        !            31:       } else {
        !            32:         print "Directory [$path] does not exist!\n";
        !            33:       }
        !            34:     
        !            35:     }
        !            36:     return ($path);
        !            37:   }
        !            38:   
        !            39:   sub S_ScanDB  {
        !            40:     local($filename)=@_;
        !            41:     local($line_cnt)=0;
        !            42:     local($s_num,$tty,$b_date,$e_date);
        !            43:     local($hr,$mm,$ss,$ss_cnt);
        !            44:     local($i, $j, @S_cnt);
        !            45:     local($ylow, $yavg, $yhigh);
        !            46:     open(IN, "<$filename") || die "Cannot open $filename file!";
        !            47:     open(OUT, ">$Out_file") || die "Cannot open $Out_file file!";
        !            48:     $min_sec = 1000;
        !            49:     while (<IN>) {
        !            50:       $line_cnt++;
        !            51:       chomp();
        !            52:       ($s_num,$tty,$b_date,$e_date) = split(/\t/);
        !            53:       if( $line_cnt == 1 ) {
        !            54:         $start_time = $b_date;
        !            55:       }
        !            56:       ($hr,$mm,$ss,$ylow)  = S_DiffDate($start_time,$b_date);
        !            57:       ($hr,$mm,$ss,$yhigh) = S_DiffDate($start_time,$e_date);
        !            58:       $yavg = ($ylow + $yhigh) / 2;
        !            59:       $ss_cnt = $yhigh - $ylow;
        !            60:       $min_sec = ($min_sec < $ss_cnt ?  $min_sec : $ss_cnt);
        !            61:       $s_idx = int($ss_cnt / 100);
        !            62:       $S_cnt[$s_idx]++;
        !            63:       print OUT "$line_cnt\t$yavg\t$ylow\t$yhigh\n";
        !            64:       # print "$s_num,($hr:$mm:$ss,$ss_cnt)\n";
        !            65: 
        !            66:      }
        !            67:      close(IN) || die "Cannot close $filename file!";
        !            68:      close(OUT) || die "Cannot close $Out_file file!";
        !            69:      
        !            70:      print "minimal number of seconds = $min_sec\n";
        !            71:      for($i=0;$i<=$#S_cnt;$i++) {
        !            72:        $j= $i * 100;
        !            73:        print "$j\t$S_cnt[$i]\n" if $S_cnt[$i] > 0;
        !            74:      }
        !            75:      print "minimal number of seconds = $min_sec\n";
        !            76:   }
        !            77:   ## 012345678901
        !            78:   ## Wed Jan  8 14:38:06 1997
        !            79:   ## Fri Jan 17 00:34:30 1997,Fri Jan 17 00:36:25 1997
        !            80:   %Mon = ( 'Jan' => 0, 'Feb' => 1, 'Mar' => 2, 'Apr' => 3,  'May' => 4,  'Jun' => 5, 
        !            81:            'Jul' => 6, 'Aug' => 7, 'Sep' => 8, 'Oct' => 9,  'Nov' => 10, 'Dec' => 11 );
        !            82:   @mdoy = ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365);
        !            83:   
        !            84:   sub  S_DiffDate  {
        !            85:     local($a_str,$b_str)=@_;
        !            86:     local($hrmmss_astr,$hrmmss_bstr);
        !            87:     local($modd_astr,$modd_bstr);
        !            88:     local($mo_a,$dd_a,$hr_a,$mm_a,$ss_a);
        !            89:     local($mo_b,$dd_b,$hr_b,$mm_b,$ss_b);
        !            90:     local($sec_cnt);
        !            91:     local($dsec,$dmm,$dmm_cnt,$dhr_cnt);
        !            92:     
        !            93:     $modd_astr = substr($a_str,4,6);
        !            94:     $hrmmss_astr = substr($a_str,11,8);
        !            95:     $modd_bstr = substr($b_str,4,6);
        !            96:     $hrmmss_bstr = substr($b_str,11,8);
        !            97:     $mo_a = substr($modd_astr,0,3); $dd_a = substr($modd_astr,4,2);
        !            98:     $mo_b = substr($modd_bstr,0,3); $dd_b = substr($modd_bstr,4,2);
        !            99:     ($hr_a,$mm_a,$ss_a) = split(/:/, $hrmmss_astr);
        !           100:     ($hr_b,$mm_b,$ss_b) = split(/:/, $hrmmss_bstr);
        !           101:     $adoy = $mdoy[$Mon{$mo_a}] + $dd_a;
        !           102:     $bdoy = $mdoy[$Mon{$mo_b}] + $dd_b;
        !           103:     $sec_cnt = ($bdoy - $adoy)*24*60*60 + ($hr_b - $hr_a)*60*60 + ($mm_b - $mm_a)*60 + ($ss_b-$ss_a);
        !           104:     $dsec = $sec_cnt % 60;
        !           105:     $dmm_cnt = ($sec_cnt - $dsec) / 60;
        !           106:     $dmm = $dmm_cnt % 60;
        !           107:     $dhr_cnt = ($dmm_cnt - $dmm) / 60;
        !           108:     
        !           109:     return ($dhr_cnt,$dmm,$dsec,$sec_cnt);
        !           110:   }
        !           111:   
        !           112:   
        !           113:   $Out_file = '/usr/user1/capadvt/CAPA_SRC/4.5/pProj/dur.out';
        !           114:   
        !           115:   
        !           116:   S_Enterpath();
        !           117:   
        !           118:   S_ScanDB("$Dfullpath");