#!/usr/bin/perl

use DBI;
use Encode;

my $AbsFileName = "E:\\Ajay\\sample\\sample\.pnx";

	  if (-e "$AbsFileName")
	  {

		my ($DSN,$dbh,$sth);
		$dbh = DBI->connect("dbi:ODBC:DSN=<DSN>;UID=<USER>;PWD=<PASSWD>") or die "$DBI::errstr\n";

		$dbh->{odbc_utf8_on} = 1;

		my $sth = $dbh->prepare(<<SQL) or die "$DBI::errstr\n";
		
		INSERT INTO BK_imageINfo (CustFld1,CustFld2,CustFld3,CustFld4,CustFld5,CustFld6,CustFld7,CustFld8,CustFld9,CustFld10,CustFld11,CustFld12,Efield1,Efield2,Efield3,Efield4,Efield5)
		VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)
SQL

		open INFILE, "<:encoding(UTF-8)", "$AbsFileName" or die "Can't open File $AbsFileName for reading: $!\n";
		while (my $data = <INFILE>)
		{
			chomp($data);
			my ($cfd1, $cfd2, $cfd3, $cfd4, $cfd5, $cfd6, $cfd7, $cfd8, $cfd9, $cfd10, $cfd11, $cfd12, $enr1, $enr2, $enr3, $enr4, $enr5) = split /:/, $data;

			my $outfl = "E:\\Ajay\\sample\\query.txt";
			open OUTFILE, ">>:encoding(UTF-8)", "$outfl" or die "Can't open File $outfl for writing: $!\n";
			
			my $sql = "INSERT INTO BK_imageINfo (CustFld1,CustFld2,CustFld3,CustFld4,CustFld5,CustFld6,CustFld7,CustFld8,CustFld9,CustFld10,CustFld11,CustFld12,Efield1,Efield2,Efield3,Efield4,Efield5) VALUES ($cfd1, $cfd2, $cfd3, $cfd4, $cfd5, $cfd6, $cfd7, $cfd8, $cfd9, $cfd10, $cfd11, $cfd12, $enr1, $enr2, $enr3, $enr4, $enr5)";

			print OUTFILE "\n$sql\n";
			close OUTFILE;
			$sth->execute($cfd1, $cfd2, $cfd3, $cfd4, $cfd5, $cfd6, $cfd7, $cfd8, $cfd9, $cfd10, $cfd11, $cfd12, $enr1, $enr2, $enr3, $enr4, $enr5) or die "$DBI::errstr\n";
		}
		close INFILE;
	  #Close the database
	  $sth->finish;
	  $dbh->disconnect;
	  }
	  else
	  {
		print "\n\n $AbsFileName doesn't exists\n";
	  }