foreach my $f (@file){
$str = substr($f,32,39);
$str1 = substr($str,0,9);
$str2 = substr($str,10,27);
$str = $str1 . "-LAVG-" . $str2;
$loadavg ="c:\\Performance_svap\\OUTPUT_FILES\\$str";
}

prstat-Ls-LAVG-prstat-Ls-20080118-1800.xls

prstat-Ls-LAVG-20080118-1800.xls

$str1 = substr($str,0,9); # holds the value =prstat-Ls

$str=prstat-Ls-LAVG-prstat-Ls-20080118-1800.xls

#!/usr/bin/perl -w 
use strict; 
use Spreadsheet::ParseExcel::Simple; 
my $dir = 'C:\Performance_svap\INPUT_FILES\*.xls'; 
my @file=glob("$dir"); 
my @output;
my $loadavg;
my $str;
my

#!/usr/bin/perl -w 
use strict;

use of uninitialized value in concatenation (.) or string at excel.pl line 56.

C:\Performance_svap\misc>perl excel.pl
String found where operator expected at excel.pl line 55, near "EX "$data[0]\t$d
ata[1]\t$data[12]\t$data[13]\t$data[14]\n""
        (Do you need to predeclare EX?)
syntax error at excel.pl line 55, near "print"
Execution of excel.pl aborted due to compilation errors.

#!/usr/bin/perl -w
use strict;
use Spreadsheet::ParseExcel::Simple;
my $dir = 'C:\Performance_svap\INPUT_FILES\*.xls';
my @file=glob("$dir");
my @output;my @outfile;
foreach

#!/usr/bin/perl -w

 print "@data\n" if(exists $data[4]); ##prints data if LAVG_1min value is found

print "$data[12]\n" if(exists $data[12]); ##prints data if LAVG_1min value is found

18/01/2008 18:36:00 133 root 4560K 816K sleep 59 0 0:00:00 0.0% picld/1
18/01/2008 18:36:00 58 root 13M 5784K sleep 59 0 0:00:15 0.0% vxconfigd/1
18/01/2008 18:36:00 24992 vappr 1217M 1044M sleep 29 10 0:00:00 0.0% java/53
18/01/2008 18:36:00

#!/usr/bin/perl -w
use strict;
use Spreadsheet::ParseExcel::Simple;
my $dir = 'C:\Performance_svap\INPUT_FILES\*.xls';
my @file=glob("$dir");
my @output;
foreach my $f (@file){
print "$f\n";
        print "Processing $f please wait\n";
		my $xls = Spreadsheet::ParseExcel::Simple->read($f);

use strict;
#use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::Simple;

my $oExcel = new Spreadsheet::ParseExcel;

18/01/2008 20:00:00			5.31	5.48	5.33

DD/MM/YYYY HH:MM:SS PID USERNAME LAVG_1min LAVG_5min LAVG_15min
18/01/2008