|
Hello,
I am trying to read a numeric cell from an excel spread sheet. This is the simple script, I am using.
----------------------------------------------------------------------
#!/usr/local/bin/perl
use strict;
use warnings;
use Spreadsheet::ParseExcel;
my $file = shift @ARGV;
my $excel = Spreadsheet::ParseExcel::Workbook->Parse($file);
my $worksheet = $excel->Worksheet(0);
my $cell = $worksheet->{Cells}[33][13];
print $cell->Value,"\n";
----------------------------------------------------------------------
The script is returning some junk value.
For example: In the cell above, I have -4.1, script returns....7.42648557919274e+275
Please help me fix this problem.
Thanks
|