--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/genericopenlibs/cppstdlib/test/tools/ph_log_analysis.pl	Tue Feb 02 02:01:42 2010 +0200
@@ -0,0 +1,91 @@
+#
+# Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).
+# All rights reserved.
+# This component and the accompanying materials are made available
+# under the terms of "Eclipse Public License v1.0"
+# which accompanies this distribution, and is available
+# at the URL "http://www.eclipse.org/legal/epl-v10.html".
+#
+# Initial Contributors:
+# Nokia Corporation - initial contribution.
+#
+# Contributors:
+#
+# Description:
+#
+#!C:\Perl\bin
+
+#run this from a same drive as your epoc.
+# set EPOCROOT=\ before you run
+
+
+#$infile_exe="Q:\epoc32\release\winscw\udeb\z\phexe_list.bat";
+#open (EXELIST, "$infile_exe");
+#@exelist=<EXELIST>;
+#$execount = 0;
+
+$logfile="\\epoc32\\winscw\\c\\PH.log";
+open(INFILED, $logfile);	
+@lines=<INFILED>;
+#print "lines = @lines[0]\n";
+
+$outfile="PH_report.txt";
+open(OUTFILE, ">$outfile");
+
+$successful = 0;
+$errors = 0;
+$skipped = 0;
+
+
+#@results;
+foreach $line (@lines)	
+{
+   #print "comparing..\n";
+   #if ($line =~ /individual/)
+   #{
+      #no need to write this
+      #print OUTFILE $line;      
+   #}
+   if ($line =~ /successful test cases/)
+   {
+      #starting of a result
+      print OUTFILE $line;            
+      @success = split(/ /, $line);
+      $successful += @success[1];
+      #print OUTFILE "@success[1]\n";
+   }
+   if ($line =~ /errors/)
+   {
+      #starting of a result
+      print OUTFILE $line;      
+      @failures = split(/ /, $line);
+      $errors += @failures[1];
+   }
+   if ($line =~ /skipped/)
+   {
+      #starting of a result
+      print OUTFILE $line;    
+      @skippedline = split(/ /, $line);
+      $skipped += @skippedline[1];      
+   }
+   
+}
+print OUTFILE "************************ Final Summary ************************\n";
+print OUTFILE "Total successful = $successful\n";
+print OUTFILE "Total errors     = $errors\n";
+print OUTFILE "Total skipped    = $skipped\n";
+$totalcases = $successful+ $errors + $skipped;
+print OUTFILE "Total test cases = $totalcases\n";
+$passpercentage = $successful/$totalcases * 100;
+print OUTFILE "Pass percentage  = $passpercentage\n";
+
+print "\n\n************************ Final Summary ************************\n";
+print "Total successful = $successful\n";
+print "Total errors     = $errors\n";
+print "Total skipped    = $skipped\n";
+print "Total test cases = $totalcases\n";
+print "Pass percentage  = $passpercentage\n";
+print "***************************************************************\n";
+#close (EXELIST);
+close (INFILED);	
+close (OUTFILE);