Thread Mysql und Perl (33 answers)
Opened by Johannes at 2012-06-14 09:14

guest Johannes
 2012-06-14 09:14
#158979 #158979
Hallo zusammen,
ich bin gerade dabei ein Modul zur Verwaltung von Tabellen für unsere Perl Scripte zu Programmieren. Mein Problem ist wir habe verschiedene Tabellen (wo ich die Spaltenanzahl of nicht weiß). Zur Zeit hänge ich am Insert Befehl der auch gleichzeitig ein Update bei einem bereits vorhandenen Datensatz durchführen soll. Vielleicht könnt ihr mir helfen:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
# 1. INSERT INTO TABLE
# 2. SELECT FROM TABLE


sub insert_tab
{
$db = @_[0];
$table = @_[1];
@TAB = split (/ /,@_[2]);
@VALUES = split (/ /,@_[3]);
@VAL = ();

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

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

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

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

$sql = qq{ insert into $table ($fieldlist) values ($fieldvalues) on duplicate key update ?? };
#$sql = qq{ insert into $table ($fieldlist) values ($fieldvalues) };

$sth = $dbh->prepare($sql);
$sth->execute();
$sth->finish();
$dbh->disconnect();
}
return 1;


modedit Crian: [_code_] statt [_c_] macht die Sache übersichtlicher!
Last edited: 2012-06-14 09:24:16 +0200 (CEST)

View full thread Mysql und Perl