Wie kann ich Unicode mit Perl's DBI behandeln?

Question

Meine lecker-zu-wp Perl-Skript funktioniert, gibt aber für alle "seltsamen" Zeichen eine noch seltsamere Ausgabe. Also habe ich versucht

$description = decode_utf8( $description ); 

aber das macht keinen Unterschied. Ich möchte z.B., dass "go live" zu "go live" wird und nicht zu "go live". Wie kann ich Unicode in Perl behandeln, damit das funktioniert?

UPDATE: Ich fand das Problem war, um utf von DBI musste ich in Perl gesetzt:

my $sql = qq{SET NAMES 'utf8';};
$dbh->do($sql);

Das war der Teil, den ich einstellen musste, der schwierig war. Danke!

Answer 1

Es ist erwähnenswert, dass Sie Folgendes tun können, wenn Sie eine neue Version von DBD::mysql verwenden (ab 3.0008): $dbh->{'mysql_enable_utf8'} = 1; und dann wird alles für Sie auf dem Weg von/nach DBI decodiert()ed/encode()ed.

Answer 2

Aktivieren Sie UTF8, wenn Sie eine Verbindung zur Datenbank wie folgt herstellen:

my $dbh = DBI->connect(
    "dbi:mysql:dbname=db_name", 
    "db_user", "db_pass",
     {RaiseError => 0, PrintError => 0, mysql_enable_utf8 => 1}
 ) or die "Connect to database failed.";

Damit sollten Sie Zeichenketten im Zeichenmodus mit gesetztem UTF8-Flag nach Bedarf erhalten.

Desde DBI Allgemeine Schnittstellenregeln und Vorbehalte :

Perl unterstützt zwei Arten von Zeichenketten: Unicode (intern utf8) und Nicht-Unicode (standardmäßig iso-8859-1, wenn eine Kodierung angenommen werden muss). Treiber sollten beide Arten von Strings akzeptieren und, falls erforderlich, in den Zeichensatz der verwendeten Datenbank konvertieren. Ebenso sollte der Treiber beim Abrufen von Zeichendaten aus der Datenbank, die nicht iso-8859-1 sind, diese in utf8 konvertieren.

Und die Einzelheiten aus DBD::mysql für mysql_enable_utf8

Außerdem teilt das Einschalten dieses Flags MySQL mit, dass eingehende Daten als UTF-8 behandelt werden sollen. Dies wird nur wirksam, wenn es als Teil des Aufrufs von connect() verwendet wird. Wenn Sie das Flag nach dem Verbindungsaufbau einschalten, müssen Sie den Befehl SET NAMES utf8 eingeben, um den gleichen Effekt zu erzielen.

Answer 3

Der Begriff

$dbh->do(qq{SET NAMES 'utf8';});

rettet definitiv den Tag für den Zugriff auf eine utf-8 deklarierte Datenbank, aber beachten Sie, wenn Sie irgendeine Perl-Verarbeitung von alle aus der Datenbank gewonnenen Daten wäre es ratsam, sie in einer Perl-Var als utf8-String mit zu speichern, da diese Operation nicht implizit ist.

$utfstring = decode('utf8',$string_from_db);

Natürlich muss für die korrekte Verarbeitung von utf8-Zeichenfolgen (Lesen, Drucken, Schreiben in die Ausgabe) die Einstellung

use open ':utf8';

y

binmode STDOUT, ":utf8";

Letzteres ist für den Ausdruck von utf8-Strings unerlässlich. Ich hoffe, das hilft.

Answer 4

Das hat vielleicht nichts mit Perl zu tun. Stellen Sie sicher, dass Sie UTF-Kodierungen in den entsprechenden MySQL-Tabellenspalten verwenden.

Answer 5

Lassen Sie diese Öne weg:

binmode STDOUT, ":utf8";

bei der Verwendung:

$dbh->do(qq{SET NAMES 'utf8';});

Andernfalls wird Ihre Ausgabe eine doppelte utf8-Kodierung aufweisen, was zu unlesbaren Doppelbyte-Zeichen führt! Ich habe ein paar Stunden gebraucht, um das herauszufinden