Hi ,
The xls spreadsheets can be generated using the distribution
Spreadsheet::WriteExcel like as in here
use Spreadsheet::WriteExcel;
# open the text one in here
my $Files = shift;
my $FilesExcel =$Files . "\.xls";
$FilesExcel =~ s/\.txt//g;
my $WorkbookForFiles = Spreadsheet::WriteExcel->new($FilesExcel);
my $WorksheetForFiles = $WorkbookForFiles->addworksheet('FTP_Outg
+oing_Alert_Tracking_
Report');
# Change the permission to 770 however you have to
my $format_for_WorkbookFiles= $WorkbookForFiles->addformat();
$format_for_WorkbookFiles->set_bold(1);
$format_for_WorkbookFiles->set_color('black');
$format_for_WorkbookFiles->set_align('center');
$WorksheetForFiles->set_column(0,20,20);
open(fh , "<$Files");
my $rownum = 0;
my @fields;
my $columnum;
while (<fh>){
$columnnum = 0;
chomp;
@fields = split('\|',$_);
$WorksheetForFiles->activate();
foreach my $Fields(@fields){
$WorksheetForFiles->write($rownum ,$columnnum,$Fields,$for
+mat_for_WorkbookFile
s);
$columnnum++;
}
$rownum++;
}
}