getNextRow()numSheets()openSpreadsheet(fileName)currentSheetNum()currentSheetName()setCurrentSheetNum(num)getNextSheet()getFirstSheet()getFirstRow()setHeadingRow(rowNumber)setRow(rowNumber)logexp(message)
Spreadsheet::BasicRead - Methods to easily read data from spreadsheets
Provides methods for simple reading of a Excel spreadsheet row at a time returning the row as an array of column values. Properties can be set so that blank rows are skipped. The heading row can also be set so that reading always starts at this row which is the first row of the sheet by default. Properties can also be set to skip the heading row.
Note 1. Leading and trailing white space is removed from cell values.
Note 2. Row and column references are zero (0) indexed. That is cell
A1 is row 0, column 0
use Spreadsheet::BasicRead;
my $xlsFileName = 'Test.xls';
my $ss = new Spreadsheet::BasicRead($xlsFileName) ||
die "Could not open '$xlsFileName': $!";
# Print the row number and data for each row of the
# spreadsheet to stdout using '|' as a separator
my $row = 0;
while (my $data = $ss->getNextRow())
{
$row++;
print join('|', $row, @$data), "\n";
}
# Print the number of sheets print "There are ", $ss->numSheets(), " in the spreadsheet\n";
# Set the heading row to 4 $ss->setHeadingRow(4);
# Skip the first data line, it's assumed to be a heading $ss->skipHeadings(1);
# Print the name of the current sheet print "Sheet name is ", $ss->currentSheetName(), "\n";
# Reset back to the first row of the sheet $ss->getFirstRow();
The following modules are required:
Spreadsheet::ParseExcel
Optional module File::Log can be used to allow simple logging of errors.
There are no class methods, the object methods are described below. Private class method start with the underscore character '_' and should be treated as Private.
Called to create a new BasicReadNamedCol object. The arguments can be either a single string (see 'SYNOPSIS') which is taken as the filename of the spreadsheet of as named arguments.
eg. my $ss = Spreadsheet::BasicReadNamedCol->new(
fileName => 'MyExcelSpreadSheet.xls',
skipHeadings => 1,
skipBlankRows => 1,
log => $log,
);
The following named arguments are available:
getNextRow()Get the next row of data from the spreadsheet. The data is returned as an array reference.
eg. $rowDataArrayRef = $ss->getNextRow();
numSheets()Returns the number of sheets in the spreadsheet
openSpreadsheet(fileName)Open a new spreadsheet file and set the current sheet to the first sheet. The name and optionally path of the spreadsheet file is a required argument to this method.
currentSheetNum()Returns the current sheet number or undef if there is no current sheet. 'setCurrentSheetNum' can be called to set the current sheet.
currentSheetName()Return the name of the current sheet or undef if the current sheet is not defined. see 'setCurrentSheetNum'.
setCurrentSheetNum(num)Sets the current sheet to the integer value 'num' passed as the required argument to this method. Note that this should not be bigger than the value returned by 'numSheets'.
getNextSheet()Returns the next sheet ``ssBook'' object or undef if there are no more sheets to process. If there is no current sheet defined the first sheet is returned.
getFirstSheet()Returns the first sheet ``ssBook'' object.
Returns the value of the cell defined by (row, col)in the current sheet.
getFirstRow()Returns the first row of data from the spreadsheet (possibly skipping the column headings 'skipHeadings' as an array reference.
setHeadingRow(rowNumber)Sets the effective minimum row for the spreadsheet to 'rowNumber', since it is assumed that the heading is on this row and anything above the heading is not relavent.
Note: the row (and column) numbers are zero indexed.
setRow(rowNumber)Sets the row to be returned by the next call to 'getNextRow'. Note that if the heading row has been defined and the row number set with setRow is less than the heading row, data will be returned from the heading row regardless, unless skip heading row has been set, in which case it will be the row after the heading row.
logexp(message)Logs an exception message (can be a list of strings) using the File::Log object if it was defined and then calls die message.
If a File::Log object was passed as a named argument 'new' and if 'debug' (integer value) is equal to or greater than the current debug Level (see File::Log) then the message is added to the log file.
If a File::Log object was not passed to new then the message is output to STDERR.
None, however please contact the author at gng@cpan.org should you find any problems and I will endevour to resolve then as soon as possible.
If you have any enhancement suggestions please send me an email and I will try to accommodate your suggestion.
Spreadsheet:ParseExcel on CPAN does all the hard work, thanks Kawai Takanori (Hippo2000) kwitknr@cpan.org
Greg George, IT Technology Solutions P/L, Australia Mobile: +61-404-892-159, Email: gng@cpan.org
Copyright (c) 1999- Greg George. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
$Id: BasicRead.pm,v 1.3 2004/09/30 12:32:25 Greg Exp $