in reply to Spreadsheet::ParseExcel::Simple
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)
|
---|