--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/kerneltest/e32test/pccd/t_med_writebm_filter.pl	Mon Oct 19 15:55:17 2009 +0100
@@ -0,0 +1,107 @@
+#!perl
+#
+# 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 the License "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:
+#
+
+#--------------------------------------------------------------------------------------------
+#   This is a filter script for MMC/SD cards benchmark test     t_med_writebm
+#   Produces csv file from given input
+#
+#   usage:  filter1.pl <log file>
+#
+#   See t_med_writebm.cpp for more details.
+#--------------------------------------------------------------------------------------------
+
+use strict;
+
+
+my $inpFile;    #-- input file name
+my $line;
+my $printHdr;   #-- 1 if we need to print a header
+
+#-----------------------------------------------------
+#-- test tags that we expect to find in the input file
+#my $KTagPrefix  = "~#";
+#-----------------------------------------------------
+
+#-- input file
+$inpFile = $ARGV[0];
+
+$printHdr = 1;
+
+#-- process imput file
+open(INP_FILE, "$inpFile") || die "Can't open input file $inpFile !\n";
+
+  while($line = <INP_FILE>)
+  {
+    if($line=~ /~#pos:(\d*):(\d*).*time:(\d*)/i)
+    {#-- found a string matching pattern; return
+      if($printHdr)
+      {
+        print "W1_pos,W2_pos,time_us\n";
+        $printHdr = 0;
+      }
+
+      print "$1,$2,$3\n";
+      #chomp($line);
+      #print $line."\n";
+      #$matchLine=$line;
+      #last;
+    }
+    elsif($line=~ /~#Local Drive:(\d*)/i)
+    {
+        print("local drive=$1; ");
+    }
+    elsif($line=~ /~#MediaPos:(\d*):(\d*)/i)
+    {
+        print("Media pos=$1:$2; ");
+    }
+    elsif($line=~ /~#WinNum:(\d*)/i)
+    {
+        print("Windows=$1; ");
+    }
+    elsif($line=~ /~#NumWrites:(\d*)/i)
+    {
+        print("NumWrites=$1\n");
+    }
+    elsif($line=~ /~#Window(\d).*sz:(\d*).*posInc:(.\d*)/i)
+    {
+        print("Window$1: size=$2; PosInc=$3\n");
+    }
+
+  }
+
+
+close (INP_FILE);
+
+#---
+
+exit;
+
+
+#--------------------------------------------------------------------------------------------
+# Strip spaces from the beginning & end of the string
+#--------------------------------------------------------------------------------------------
+sub TrimStr 
+{
+    my @out = @_;
+    for (@out) 
+    {
+        s/^\s+//;
+        s/\s+$//;
+    }
+    return wantarray ? @out : $out[0];
+}
+