#!/bin/perl
use Text::CSV;
use Data::Dumper;
my $file="/www/detalleiuni/iuni_cdr.csv";
open (CSV, $file) or die $!;
use Text::CSV;

use DBI;

        my $data_source="dbi:mysql:database=ICV;host=172.16.210.163;mysql_multi_results=1;port=3306";
        my $username= "icv";
        my $password = "icv1234";

        my $db_qoe = DBI->connect($data_source, $username, $password) or die $DBI::errstr."\n";

my $csv = Text::CSV->new({binary => 1,escape_char => "\\"});
while (<CSV>) {
	if ($csv->parse($_)) {
        my @columns = $csv->fields();
	print Dumper(@columns)."\n";
#	if (scalar(@columns) ne 197){
#	print "Columnas: ".scalar(@columns)."\n"; 
#	print Dumper(@columns)."\n";}
#	else{
#        	my $sql="insert into cdr(id_cdr,service_provider,type,user_number,group_number,direction,calling_number,calling_presentation_indicator,called_number,start_time,user_timezone,answer_indicator,answer_time,release_time,termination_cause,network_type,dialed_number,releasing_party,codec,remote_ip,group_name,department,data_1,other_party_name,data_2) values('$columns[0]','$columns[1]','$columns[2]','$columns[3]','$columns[4]','$columns[5]','$columns[6]','$columns[7]','$columns[8]','$columns[9]','$columns[10]','$columns[11]','$columns[12]','$columns[13]','$columns[14]','$columns[15]','$columns[17]','$columns[22]','$columns[25]','$columns[26]','$columns[31]','$columns[32]','$columns[40]','$columns[121]','$columns[147]')";
#print "QUERY: ".$sql."\n";
#exit;
# my $sql=" CALL fu_add_cdr('$columns[0]','$columns[1]','$columns[2]','$columns[3]','$columns[4]','$columns[5]','$columns[6]','$columns[7]','$columns[8]','$columns[9]','$columns[10]','$columns[11]','$columns[12]','$columns[13]','$columns[14]','$columns[15]','$columns[17]','$columns[22]','$columns[25]','$columns[26]','$columns[31]','$columns[32]','$columns[40]','$columns[121]','$columns[147]')";

#        	my $statement = $db_qoe->prepare($sql);
#        	$statement->execute();
#       	}
	
	}
      else {
         my $err = $csv->error_input;
         print "Failed to parse line: $err"; # some characters hit this
     }
}
close CSV;