Re-instated call to process raptor logs for BRAG purposes.
#!perl -w# Copyright (c) 2009 Symbian Foundation Ltd# 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:# Symbian Foundation Ltd - initial contribution.# # Contributors:## Description:# Recursive listing of a directory, outputting lower-cased relative paths with unix dir separatorsuse strict;my $dir = shift or die "Usage: $0 <dir> \n"; # provided dir to traversemy $filelist = [];my $init = $dir = lc($dir);$init =~ s{\\}{\\\\};# fwd declaration to prevent warningsub recursedir($$);# run recurse and printrecursedir ($dir, $filelist);print $_, "\n" for(@$filelist);sub recursedir($$) { my $dir = shift @_; my $list = shift @_; if(opendir(DIR, "$dir")) { # list dir for my $file(grep { !/^\./ } readdir DIR) { if(-d "$dir/$file") { # traverse subdirs recursedir("$dir/$file", $list); } elsif(-f "$dir/$file") { my $formatted = lc($dir)."/".lc($file); $formatted =~ s!$init/!!; push @$list, $formatted; } } closedir DIR; } else { warn "Cannot open the directory '$dir' $!\n"; }}