Perl speichert nicht als UTF-8 in MySQL DB - #121644 (Datenbanken und Verzeichnisdienste)

roooot

2009-05-17 23:23

User since
2008-03-03
276 Artikel
BenutzerIn
[default_avatar]

Ich prüfe vor dem Schreiben in die DB den String so:

Code (perl): (dl )

    if(!utf8::is_utf8($fieldvalue)) {
        croak qq{
            Adressbook::User::Data->set_data() does not get a utf8 flagged 
            fieldvalue.
           
            Died.
        }  
    }

Ich gehe also davon aus, dass es ein UTF-8 geflaggter String ist.

Dein

Code (perl): (dl )

{ mysql_enable_utf8 => 1 }

bringt mich aber auch nicht zu dem gewünschen Ergebnis - habe ichs vllt falsch eingesetzt?

Code (perl): (dl )

    my $mysql_config = $new_object->load_config();

    use DBI;
        $database_handle_of{ident $new_object} = DBI->connect(
            "DBI:mysql:database=$mysql_config->{'table'};
                host=$mysql_config->{'host'};
                port=$mysql_config->{'port'};",
            $mysql_config->{'user'}, $mysql_config->{'password'},
            { 
                mysql_enable_utf8 => 1 
            } 
        ) or croak $DBI::errstr;
        my $drh = DBI->install_driver("mysql");

Code: (dl )

Täststring wird zu TÃ¤ststring

Ich benutze mein MySQL Modul schon Ewigkeiten und das fällt mir gerade zum ersten Mal auf, dass das so ist (war auch vorher nicht so).

Viele Grüße :)