#!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];
}