View of /trunk/webwork2/bin/timing_log_check.pl

    1 #!/usr/bin/perl
    2 
    3 # This script reads the timing log and outputs timing information including
    4 # the number and per cent of accesses taking various amount of time.
    5 # It can give you a rough idea of how well your server id performing.
    6 # If you have a large timing log, it can tale awhile for the script to complete processing.
    7 
    8 # To run the script, cd to the WeBWorK logs directory (usually /opt/webwork/webwork2/logs)
    9 # and enter the command: timing_log_check.pl
   10 
   11 # Note that this assumes perl is locates in /usr/bin/perl (check with the command "which perl")
   12 # and /opt/webwork/webwork2/bin/ is in your path.
   13 
   14   open(PGFILE,'timing.log') || warn "Can't read timing.log: $!";
   15   my @lines = <PGFILE>; close(PGFILE);
   16 
   17   my $under0point1sec = 0;
   18   my $under0point2sec = 0;
   19   my $under0point5sec = 0;
   20   my $under1sec = 0;
   21   my $under2sec = 0;
   22   my $under3sec = 0;
   23   my $under4sec = 0;
   24   my $under5sec = 0;
   25   my $under10sec = 0;
   26   my $over10sec = 0;
   27   my $nonvalid = 0;
   28   my $line;
   29   my $count = 0;
   30   my $time = 0;
   31 
   32   foreach $line (@lines) {
   33     $count++;
   34     $line =~ /runTime = (\d+\.\d+) sec/;
   35     $time = $1;
   36     if ($time < 0.1){
   37       $under0point1sec++;
   38     }
   39     elsif ($time < 0.2){
   40       $under0point2sec++;
   41     }
   42     elsif ($time < 0.5){
   43       $under0point5sec++;
   44     }
   45     elsif ($time < 1.0){
   46       $under1sec++;
   47     }
   48     elsif ($time < 2.0){
   49       $under2sec++;
   50     }
   51     elsif ($time < 3.0){
   52       $under3sec++;
   53     }
   54     elsif ($time < 4.0){
   55       $under4sec++;
   56     }
   57     elsif ($time < 5.0){
   58       $under5sec++;
   59     }
   60     elsif ($time < 10.0){
   61       $under10sec++;
   62     }
   63     elsif ($time >= 10.0){
   64       $over10sec++;
   65     }
   66     else {
   67       $nonvalid++;
   68     }
   69   }
   70   my $percent_under0point1sec = 0;
   71   my $percent_under0point2sec = 0;
   72   my $percent_under0point5sec = 0;
   73   my $percent_under1sec = 0;
   74   my $percent_under2sec = 0;
   75   my $percent_under3sec = 0;
   76   my $percent_under4sec = 0;
   77   my $percent_under5sec = 0;
   78   my $percent_under10sec = 0;
   79   my $percent_over10sec = 0;
   80   my $percent_nonvalid = 0;
   81 
   82   $percent_under0point1sec = (int($under0point1sec/$count*1000 +.5))/10;
   83   $percent_under0point2sec = (int($under0point2sec/$count*1000 +.5))/10;
   84   $percent_under0point5sec = (int($under0point5sec/$count*1000 +.5))/10;
   85   $percent_under1sec = (int($under1sec/$count*1000 +.5))/10;
   86   $percent_under2sec = (int($under2sec/$count*1000 +.5))/10;
   87   $percent_under3sec = (int($under3sec/$count*1000 +.5))/10;
   88   $percent_under4sec = (int($under4sec/$count*1000 +.5))/10;
   89   $percent_under5sec = (int($under5sec/$count*1000 +.5))/10;
   90   $percent_under10sec = (int($under10sec/$count*1000 +.5))/10;
   91   $percent_over10sec = (int($over10sec/$count*1000 +.5))/10;
   92   $percent_nonvalid = (int($nonvalid/$count*1000 +.5))/10;
   93 
   94 
   95   print "count = $count\n";
   96   print "under 0.1 seconds = $under0point1sec: ${percent_under0point1sec}%\n";
   97   print "between 0.1 and 0.2 seconds = $under0point2sec: ${percent_under0point2sec}%\n";
   98   print "between 0.2 and 0.5 seconds = $under0point5sec: ${percent_under0point5sec}%\n";
   99   print "between 0.5 and 1.0 seconds = $under1sec: ${percent_under1sec}%\n";
  100   print "between 1.0 and 2.0 seconds = $under2sec: ${percent_under2sec}%\n";
  101   print "between 2.0 and 3.0 seconds = $under3sec: ${percent_under3sec}%\n";
  102   print "between 3.0 and 4.0 seconds = $under4sec: ${percent_under4sec}%\n";
  103   print "between 4.0 and 5.0 seconds = $under5sec: ${percent_under5sec}%\n";
  104   print "between 5.0 and 10.0 seconds = $under10sec: ${percent_under10sec}%\n";
  105   print "over 10.0 seconds = $over10sec: ${percent_over10sec}%\n";
  106   print "non valid response = $nonvalid: ${percent_nonvalid}%\n";
  107 
  108 exit(0);