# 1  INSERT INTO TABLE
# 2. SELECT FROM TABLE


sub insert_tab
{
        $db             = @_[0];
        $table          = @_[1];
        @TAB            = split (/ /,@_[2]);
        @VALUES         = split (/ /,@_[3]);
        @VAL            = ();
        $csv_in         = "/data14/docs/konvdocs/ebookkto.txt.old";
        $csvfile        = "/data14/docs/konvdocs/ebookkto.txt.old";

        open ($infh), '<', $csvfile;

	#------------------------------old script---------------
        #foreach $i (@VALUES)
        #{
                #push (@VAL,"\'".$i."\'");
        #}

        #$fieldlist      = join (",", @TAB);
        #$fieldvalues    = join (",", @VAL);

        $con            = "DBI:mysql:$db";
        $user           = "root";
        $passwort       = "mypass";

        $dbh = DBI->connect("$con","$user","$passwort") || die "DB connection not made: $DBI_errstr";

        $sql = sprintf "insert into (%s) values (%s) on duplicate key update", join(',', ,map { $dbh->quote_identifier($_) } @TAB ),join ( ',', ('?') x @TAB);

        #$sql = qq{ insert into $table ($fieldlist) values ($fieldvalues) };	## is working but only inserting data, no update

        $sth = $dbh->prepare($sql);
        while ($row = $csv_in->getline( $infh ) )
        { $sth->execute( @{ $row } );
        }
        #$sth->execute();
        #$sth->finish();
        $dbh->disconnect();
        
}
return 1;