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, unformatted
        if($date eq $cell_data)
        {
                $sqi  = $worksheet->{cell}[4][$row_num]; # same, unformatted
                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 => 27017);
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);

##</code><code>##

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