[no subject]

Hallo Stefan,




Stefan Bauer wrote:
> Hallo Liste,
> [...]
>
>
> #!/usr/bin/perl -w
>
> use strict;

sehr löblich ;-)

> use CGI;
> my $cgi = new CGI;
> use CGI::Carp qw(fatalsToBrowser);
>
> my @Feldnamen = $cgi->param();
>
> use DBI;
>
> $user = "dbi";
> $passwort = "dbi";
> $datenbank = "dbi";
> $treiber = "dbi:mysql:" . $datenbank;

Hier fehlt jeweils ein "my" davor...
Also

my $user = ...
my $passwort = ...
my $datenbank = ...
my $treiber = ...

>
> #oeffnen der datenbankverbindung
>
>         my $dbh = DBI->connect($treiber, $user, $passwort)
>                 or die "Kann nicht zur DB verbinden: " . DBI->errstr;
>
>
> # eintragung durchfuehren
>
>       foreach my $Feld (@Feldnamen) {
>
>
> my $sth = $dbh->prepare('INSERT INTO spieler ($Feld)
> VALUES('$cgi->param($Feld)')
>                 or die "Kann Daten nicht eintragen: " . $dbh->errstr;

Besser
$sth = $dbh->prepare('INSERT INTO spieler ($Feld)VALUES(?)');

Und dann statt:
>
> $sth->execute;

Einfach:

$sth->execute($cgi->param($Feld));


Gruß,
Renée

--
Renée Bäcker
renee.baecker@smart-websolutions.de

Smart-Websolutions
André Windolph und Renée Bäcker GbR
Maria-Montessori-Str. 13
64584 Biebesheim

USt-ID: DE 228 935 695

Tel: 0177-2416996

XING: http://www.xing.com/profile/Renee_Baecker
Foo-Magazin: http://foo-magazin.de