diff -r 000000000000 -r 8e480a14352b messagingfw/msgtest/targetautomation/Script/logsplit.pl --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/messagingfw/msgtest/targetautomation/Script/logsplit.pl Mon Jan 18 20:36:02 2010 +0200 @@ -0,0 +1,59 @@ +# Copyright (c) 2004-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: +# + +#!perl + +$count = @ARGV; +die "ERROR: Bad arguments\n\nUsage: \n\nlogsplit logfilename\n\n" if ($count!=1); + +$state = 1; +while (<>) { + if ($state==1) { + # regular expression here searching for ---->START + if (/=====> START /) { + @fields = split /\[/; + shift @fields; + @fields = split /\]/; + $_ = shift @fields; + @fields = split / /; + $filename = $fields[2]; + @fields = split /\\/, $filename; + $filename = $fields[@fields-1]; + # open file here + print "$filename \n"; + open LOGHANDLE, ">$filename" + or die "FAILED: opening file $filename.\n($!)\n"; + $state=2; + } + } + elsif ($state==2) { + # regular expression here searching for ---->STOP + if (/=====> STOP /) { + # check that start and stop matches ? + # close file here + close LOGHANDLE; + $state=1; + } + elsif (/=====> START /) { + # Start found during a file...? + close LOGHANDLE; + die "FAILED: source file corrupt!\n\n"; + } + else { + print LOGHANDLE $_; + # write line to file + } + } +}