in reply to Re^2: Reading excel file using PERL
in thread Reading excel file using PERL
#!/usr/bin/perl use strict; use warnings; use Spreadsheet::ParseExcel; my $Usage = "Usage: $0 filename.xls\n"; die $Usage unless ( @ARGV == 1 and -f $ARGV[0] ); my $xcl = Spreadsheet::ParseExcel::Workbook->Parse( $ARGV[0] ); for my $sheet ( @{$xcl->{Worksheet}} ) { printf( "Sheet: %s\n", $sheet->{Name} ); for my $row ( $sheet->{MinRow} .. $sheet->{MaxRow} ) { for my $col ( $sheet->{MinCol} .. $sheet->{MaxCol} ) { my $cell = $sheet->{Cells}[$row][$col]; printf( " row %s, col %s: unformatted= %s, formatted= %s\n +", $row, $col, $cell->{Val}, $cell->Value ); } } }
|
|---|