Help in Perl script for converting excel sheet data into a delimited f

[r9ronaldo]

Hi All,

I am a novice to Perl Programming. I would greatly appreciate if somebody can just lead me some way on How I could handle this problem.
As of Now I recieve Excel sheet data which is updated monthly. I need to automate the process of extracting the data in Excel sheets and placing the data into a
delimited file.

AS of now I am manually converting these excel sheets into a delimited file and using that delimited file as my source for operations.

It would be of immense help if Somebody could provide lead on how to proceed on this? Any skeleton script will greatly help.

Please don't consider this as an effort of being lazy, Just an effort in learning ropes of new Programmin Language

Thanking you in Anticipation
Ron

 

[chazoid]

I just made some minor modifications to this example from the documentation for the module: Spreadsheet:arseExcel::Simple

http://search.cpan.org/~tmtm/Spreadsheet-ParseExcel-Simple-1.01/Simple.pm

It's kind of crude, but it should get you started..

use Spreadsheet::ParseExcel::Simple;

$delim = "|";

open (OUTPUT,">c:/output.txt");
my $xls = Spreadsheet::ParseExcel::Simple->read('c:/test.xls');
  foreach my $sheet ($xls->sheets) {
     while ($sheet->has_data) {
         @data = $sheet->next_row;
         $line = join($delim,@data);
         print OUTPUT $line,"\n";
     }
  }
  
close OUTPUT;