#!/usr/bin/perl
use MongoDB;
use MongoDB::OID;
use Spreadsheet::ParseExcel;
use Spreadsheet::XLSX;
use Spreadsheet::Read;

$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 $max_cols = $worksheet->{'maxcol'};

for my $row_num (15..($max_rows))
{
	my $cell  = $worksheet->{cell}[2][$row_num]; # same, unformatted
	if($date eq $cell)
	{
		my $sqi  = $worksheet->{cell}[36][$row_num]; # same, unformatted
		print "$sqi\n";
		print "$cell\n";
		print "$row_num\n";
		break;
	}
}
chomp $sqi;
$db_host="172.16.15.115";
$db_name="ravi";
$client     = MongoDB::MongoClient->new(host => $db_host, port => 27017);
$database   = $client->get_database( $db_name );
$data = $database->get_collection("SDP_SQI");
%insert_data_hourly=();
$insert_data_hourly{'date'}=$date;
$insert_data_hourly{'SQI'}=$sqi;
$id=$data->insert(\%insert_data_hourly);


##</code><code>##

97.327499999999986
15-06-2015
30

##</code><code>##

{ "_id" : ObjectId("55cd825c783d4e53ee307201"), "date" : "06-06-2015", "SQI" : null }
{ "_id" : ObjectId("55cd82ed783d4e55b22035c1"), "date" : "02-06-2015", "SQI" : null }
{ "_id" : ObjectId("55cd83a6783d4e582a085531"), "date" : "06-06-2015", "SQI" : null }
{ "_id" : ObjectId("55cd83fa783d4e58555cf201"), "date" : "06-06-2015", "SQI" : null }
{ "_id" : ObjectId("55cd8457783d4e58c2363781"), "date" : "06-06-2015", "SQI" : null }
{ "_id" : ObjectId("55cd84de783d4e598e302711"), "date" : "06-06-2015", "SQI" : null }
{ "_id" : ObjectId("55cd8644783d4e5a0667b1b1"), "date" : "06-06-2015", "SQI" : null }
{ "_id" : ObjectId("55cd8684783d4e5a1e2ed1a1"), "date" : "15-06-2015", "SQI" : null }
{ "_id" : ObjectId("55cd86cb783d4e5a2c05b7b1"), "date" : "15-06-2015", "SQI" : null }
{ "_id" : ObjectId("55cd8acb783d4e5f8d272f71"), "date" : "13-08-2015", "SQI" : null }
{ "_id" : ObjectId("55cd8ae6783d4e5fa51b6e21"), "date" : "15-06-2015", "SQI" : null }
{ "_id" : ObjectId("55cd8b6c783d4e601d19b791"), "date" : "15-06-2015", "SQI" : null }
{ "_id" : ObjectId("55cd8c44783d4e604261e121"), "date" : "15-06-2015", "SQI" : NumberLong(0) }
{ "_id" : ObjectId("55cd8cab783d4e6050106bc1"), "date" : "15-06-2015", "SQI" : null }
{ "_id" : ObjectId("55cd8d08783d4e60653b84c1"), "date" : "27-05-2015", "SQI" : null }
{ "_id" : ObjectId("55cdab74783d4e791c7b7531"), "date" : "13-08-2015", "SQI" : null }
{ "_id" : ObjectId("55cdab96783d4e791f0321b1"), "date" : "15-06-2015", "SQI" : null }