Take a look at Spreadsheet::WriteExcel and Spreadsheet::WriteExcel::Simple.

     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++;
      }
}
[download]

--->
SV* sv_bless(SV* sv, HV* stash);
[download]

-derby

I dunno about xls, but I know that csv will work.

thor

Agreed, just be careful if fields starting with a double quote which is not matched later on. This starts an ad-hoc interpretation of the rest of the file as CSV...

I was bitten by this just recently. Of course a simple regex will help in this case (pseudo code):

for each $field
{ 
  $field =~ s/^"//;
}
[download]

--
Cheers, Joe

Just fire up perldoc win32::ole for an example.