use DBI;
use DBD::mysql;

# ---- DBI
my $db_user = "";
my $db_password = "";
my $dsn = 'DBI:mysql:cms:localhost';  # datasourcename:  wenn myserver weggelassen wird,
                         # wird standardmäßig localhost verwendet.
my $db_attributes = { PrintError => 0, RaiseError => 0, "AutoCommit" => 1, }; # siehe Doku zu DBI
my $dbh = DBI->connect($dsn, $db_user, $db_password, $db_attributes)
or print("Error in connecting to $dsn", die => 1); # immer Returncodes und Fehler auswerten!!!

my $query = {
    neu_titel => "neu_titel",
    meta_keywords => "meta_keywords",
    description => "description",
    meta_page_topic => "pt",
    webseite => "webseite",
};

my $cmd = "";

my @params = qw( neu_titel meta_keywords description meta_page_topic webseite);
foreach( @params ){
    my $test = $query->{$_};
    $cmd .= $dbh->quote( $test ) . ", ";
}

print $cmd;

$dbh->disconnect();

                        my @params = qw( neu_titel meta_keywords description meta_page_topic webseite);
                        #foreach( @params ){
                        #    my $test = $query->{$_};
                        #    $cmd .= $dbh->quote( $test ) . ", ";
                        #}
                        foreach( @params ){
                            $cmd .= $dbh->quote( $query->{$_} ) . ", ";
                        }