#!/bin/perl -w

use strict;

my @log_lines;
my $log_line;

my $flag = 0;
my $SortTable_Start = 0;
my $SortTable_End = 0;
my $SortTable_Duration = 0;
my $LoadTable_Start = 0;
my $LoadTable_End = 0;
my $LoadTable_Duration = 0;
my $SortTable1_Start = 0;
my $SortTable1_End = 0;
my $SortTable1_Duration = 0;
my $LoadTable1_Start = 0;
my $LoadTable1_End = 0;
my $LoadTable1_Duration = 0;
my $SortTable2_Start = 0;
my $SortTable2_End = 0;
my $SortTable2_Duration = 0;
my $LoadTable2_Start = 0;
my $LoadTable2_End = 0;
my $LoadTable2_Duration = 0;
my $IndexTable_Start = 0;
my $IndexTable_End = 0;
my $IndexTable_Duration = 0;
my $AnalyzeTable_Start = 0;
my $AnalyzeTable_End = 0;
my $AnalyzeTable_Duration = 0;

open (LOGOUT, "<log.out");
@log_lines = <LOGOUT>;

foreach $log_line (@log_lines) {

 if ( $log_line =~ m/Sorting of Table data file started/ ) {
      $SortTable_Start = $1 if ( $log_line =~ m/(\d+)/ );
    }
 if ( $log_line =~ m/Starting Table table loading/ ) {
      $LoadTable_Start = $1 if ( $log_line =~ m/(\d+)/ );
      $SortTable_End = $LoadTable_Start;
    }
 if ( $log_line =~ m/Sorting of Table1 data file started/ ) {
      $SortTable1_Start = $1 if ( $log_line =~ m/(\d+)/ );
      $LoadTable_End = $SortTable1_Start;
    }
 if ( $log_line =~ m/Starting Table table loading/ ) {
      $LoadTable1_Start = $1 if ( $log_line =~ m/(\d+)/ );
      $SortTable1_End = $LoadTable1_Start;
    }
 if ( $log_line =~ m/Sorting of Table2 data file started/ ) {
      $SortTable2_Start = $1 if ( $log_line =~ m/(\d+)/ );
      $LoadTable1_End = $SortTable2_Start;
    }
 if ( $log_line =~ m/Starting Table table loading/ && ! $flag) {
      $flag=1;
      $LoadTable2_Start = $1 if ( $log_line =~ m/(\d+)/ );
      $SortTable2_End = $LoadTable2_Start;
    }
 if ( $log_line =~ m/Creating Table indexes/ ) {
      $IndexTable_Start = $1 if ( $log_line =~ m/(\d+)/ );
      $LoadTable2_End = $IndexTable_Start;
    }
 if ( $log_line =~ m/Analyzing table Table/ ) {
      $AnalyzeTable_Start = $1 if ( $log_line =~ m/(\d+)/ );
      $IndexTable_End = $AnalyzeTable_Start;
    }
 if ( $log_line =~ m/End of table_load/ ) {
      $AnalyzeTable_End = $1 if ( $log_line =~ m/(\d+)/ );
    }
}
close (LOGOUT);

$SortTable_Duration = $SortTable_End - $SortTable_Start;
$SortTable_Duration = sprintf ("%.0f", ($SortTable_Duration / 60));
$LoadTable_Duration = $LoadTable_End - $LoadTable_Start;
$LoadTable_Duration = sprintf ("%.0f", ($LoadTable_Duration / 60));
$SortTable1_Duration = $SortTable1_End - $SortTable1_Start;
$SortTable1_Duration = sprintf ("%.0f", ($SortTable1_Duration / 60));
$LoadTable1_Duration = $LoadTable1_End - $LoadTable1_Start;
$LoadTable1_Duration = sprintf ("%.0f", ($LoadTable1_Duration / 60));
$SortTable2_Duration = $SortTable2_End - $SortTable2_Start;
$SortTable2_Duration = sprintf ("%.0f", ($SortTable2_Duration / 60));
$LoadTable2_Duration = $LoadTable2_End - $LoadTable2_Start;
$LoadTable2_Duration = sprintf ("%.0f", ($LoadTable2_Duration / 60));
$IndexTable_Duration = $IndexTable_End - $IndexTable_Start;
$IndexTable_Duration = sprintf ("%.0f", ($IndexTable_Duration / 60));
$AnalyzeTable_Duration = $AnalyzeTable_End - $AnalyzeTable_Start;
$AnalyzeTable_Duration = sprintf ("%.0f", ($AnalyzeTable_Duration / 60));

printf "SortTable_Duration : $SortTable_Duration minutes\n";
printf "LoadTable_Duration : $LoadTable_Duration minutes\n";
printf "SortTable1_Duration : $SortTable1_Duration minutes\n";
printf "LoadTable1_Duration : $LoadTable1_Duration minutes\n";
printf "SortTable2_Duration : $SortTable2_Duration minutes\n";
printf "LoadTable2_Duration : $LoadTable2_Duration minutes\n";
printf "IndexTable_Duration : $IndexTable_Duration minutes\n";
printf "AnalyzeTable_Duration : $AnalyzeTable_Duration minutes\n";