Thank you so much fpr your help here at first ! Here is my testscript: 

#! /usr/bin/perl

use lib "/data14/progs/perl_moduls";
use Vars;
%v = new Vars;
use EdifactSplit;
use PK_id;
use PK_prot;
use File::Basename;
use Error;
use Switch;
use DBI;
use edi_mysql; (my module)
use IO::Handle;
use test2db;   (module from topeq for testing)

open IN, "< /data14/docs/konvdocs/ebookkto.txt.old";

while (<IN>)
{
    chomp;
    @val = split(/\:/);
    @ins = ("tab1","tab2");    

        &insert_tab ("testdb","testtab", "@ins","@val");
}
close IN;

[download]
And here the module how it looks like at the moment (very confusing ) 

# 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 con
+nection 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 ($fieldvalu
+es) };    ## 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;

[download]

In reply to Re^4: Mysql and Perl Module by endymion
in thread Mysql and Perl Module by endymion

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.