Spreadsheet::ParseExcel::Simple

[hpuxperl]

I am very new to Perl, and I was wondering if anyone had a commented example of how to use this module to ask for columns of data you want out of a excel file you specify, and copy them to a text file you specify. The data fields are named and are in separate columns. The data for any specified item is in the same row. Example of flow: What is your excel file? Answer: /tmp/carlist.xls What columns do you want? Vin model year (These would be column headers) What is the output text file name (just text, not csv/commas) It write file. Thanks

[jeffa]

You need to be concentrating on Learning Perl, as this code will not teach you all the parts you need to understand the whole. But here goes. All i did was grab the Synopsis code from the documention for Spreadsheet::ParseExcel::Simple and added a line to open the output file and line to print each row of data from the spreadsheet (seperated by a single space) to that output file. Since you didn't specify the column numbers for vin, model, and year ... well ... i'll just make them up! This code is untested:

use strict;
use warnings;

my $xls = Spreadsheet::ParseExcel::Simple->read('/tmp/carlist.xls');
open OUT, '>', 'carlist.txt' or die $!;

# these are made up: vin = 2, model = 4, year = 7
# put the right column numbers in here
my @cols = (2,4,7);

foreach my $sheet ($xls->sheets) {
   while ($sheet->has_data) {  
      my @data = $sheet->next_row;
      print OUT, "@data[@cols]\n";
   }
}

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)