use strict;
use warnings;
use MongoDB;
use MongoDB::OID;
use Spreadsheet::ParseExcel;
use Spreadsheet::XLSX;
use Spreadsheet::Read;
use Tie::IxHash;
my $date=$ARGV[0];

$date or $date=`date --date='1 day ago'  +%d-%m-%Y`;
chomp $date;

my $file_path="/root/prac/packages/SDP_VAS_NQI-17-06-2015.xlsx";
my $workbook = ReadData($file_path,cells => 0 );

if(defined $workbook->[0]{'error'})
{
        print "Error occurred while processing $file_path:".$workbook-
+>[0]{'error'}."\n";
        exit(-1);
}

my $worksheet = $workbook->[1];
my $max_rows = $worksheet->{'maxrow'};
my $sqi;
my $cell_data=0;
for my $row_num (15..($max_rows))
{
        $cell_data  = $worksheet->{cell}[2][$row_num]; # same, unforma
+tted
        if($date eq $cell_data)
        {
                $sqi  = $worksheet->{cell}[4][$row_num]; # same, unfor
+matted
                print "$sqi\n";
                print "$cell_data\n";
                print "$row_num\n";
#               break;
                last;
        }
}
#chomp $sqi;
my $db_host="172.16.15.115";
my $db_name="ravi";
my $client     = MongoDB::MongoClient->new(host => $db_host, port => 2
+7017);
my $database   = $client->get_database( $db_name );
my $data = $database->get_collection("SDP_SQI");
my %insert_data_hourly=();
$insert_data_hourly{'date'}=$date;
$insert_data_hourly{'SQI'}=$sqi;
my $id=$data->insert(\%insert_data_hourly);

[download]
Here i am trying to read the value in C15 in the below excel sheet. 
15th 12-06-2015    100    19.95    48.7087375    0.97    33.48214286  
+  0.98    114.2
16th 13-06-2015    100    19.95    49.0446825    0.97    33.48214286  
+  0.98    113.4
17th 14-06-2015    100    19.95    49.1407375    0.97    33.48214286  
+  0.98    115
18th 15-06-2015    100    19.95    49.55261    0.97    33.48214286    
+0.98    115.6
19th 16-06-2015    100    19.95    49.91307    0.97    33.48214286    
+0.98    118.4
20th 17-06-2015    100    19.95    50.625125    0.97    33.48214286   
+ 0.98    111.8
21th            18.05                1.00            1.00    
22th            18.05            1.00            1.00    
23th            18.05            1.00            1.00    
24th            18.05            1.00            1.00    
25th            18.05            1.00            1.00

[download]
In this excel sheet C15 contains a formulae  =IF(C15>C$13,IF(C15>C$12,C$8,((C15-C$13)*(C$8-C$9)/(C$12-C$13))+C$9),IF(C15<C$14,C$10,C$9-((C$13-C15)*(C$9-C$10)/(C$13-C$14)))) The default value is 18.05. When i try to read the cell value its giving the default value. But not the modified value. Ex: The default value is 18.05 (generated through formulae). The modified value is 19.95 But when u read through the code it return 18.05 but not 19.95. Note: The program working properly for general data(cell without having formulas). In the last coloumn i need only one digit after '.'.But when i read that it returns upto 8 digits after '.' Ex: Existing value: 114.2 Returning value: 114.198682 How to set limit after the decimal point.

In reply to Excel-Error reading in formulae value by ravi45722

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.