Perl (Scripting) - Read an Excel 95-2003 spreadsheet (xls)

by
Jeremy Canfield |
Updated: March 09 2020
| Perl (Scripting) articles
The Spreadsheet::ParseExcel module can be used to read an Excel 95-2003 spreadsheet in Perl (files with the .xls extension). The Spreadsheet::XLSX module is used to read an Excel 2007 spreadsheet in Perl (files with the .xlsx extension).
Install the Spreadsheet::ParseExcel module. Import the Spreadsheet::ParseExcel module into your Perl script.
use Spreadsheet::ParseExcel;
These two lines are used to define the spreadsheet you are going to parse (example.xls in this example).
my $ParseExcel = Spreadsheet::ParseExcel->new();
my $ExcelFile = $ParseExcel->Parse("/path/to/example.xls");
This markup will parse through each value in each cell in the spreadsheet.
foreach my $worksheet ( $workbook->worksheets() ) {
my ( $first_row, $last_row ) = $worksheet->row_range();
my ( $first_column, $last_column ) = $worksheet->col_range();
foreach my $row ( $first_row .. $last_row ) {
foreach my $column ( $first_column .. $last_column ) {
my $cell = $worksheet->get_cell( $row, $column );
next unless $cell;
print "Row, Column = ($row, $column)\n";
print "Value = ", $cell->value(), "\n";
print "\n";
}
}
}
This will produce the following output like this:
Row, Column = (1,1)
Value = Hello
Row, Column = (1,2)
Value = World
Did you find this article helpful?
If so, consider buying me a coffee over at