$dbh = DBI->connect( "$dbms:$dbname","$dbuser","$dbpasswd", {PrintError => 0, RaiseError => 1}) || die "Verbindung zur Datenbank fehlgeschlagen: $DBI::errstr"; $sql = qq{UPDATE ${table_prefix}config SET config_name= ?, config_value = ?}; $sth = $dbh->prepare( $sql ) or die DBI::errstr; foreach $conf(@config) { ($name,$value)=@$conf; $sth->execute($name,$value); } $sth->finish(); $dbh->disconnect();