为什么MySQL和Perl中汉字显示异常？

Question

我使用 Perl ORM Rose::DB::Object 和 MySQL 表/列排序规则 utf8_general_ci。保存数据的代码：

Motorcycle->new(
    type  => $self->param('type'),
    brand => $self->param('brand'),
    color => $self->param('color')
)->save;

Mojolicious 中检索数据的代码（该代码相当于 utf8::decode）：

<td><%= Mojo::ByteStream->new($cycle->type)->decode('utf-8') %></td>
<td><%= Mojo::ByteStream->new($cycle->brand)->decode('utf-8') %></td>
<td><%= Mojo::ByteStream->new($cycle->color)->decode('utf-8') %></td>

中文字符在我的应用程序中看起来很好，但在 phpMyAdmin 中看起来很奇怪。如果我将这些字符保存在 phpMyAdmin 中，它们在 phpMyAdmin 中会很好，但在我的应用程序中看起来很奇怪。

我已经在 SQLite 和 Firefox SQLite 附加组件中对其进行了测试，字符在 Firefox SQLite 附加组件和我的应用程序中看起来都很好。

我认为这是服务器问题。如果我将 Perl 与 PHP 融合，那可能会变成一场灾难。

感谢您的帮助。

---

解决如下：

__PACKAGE__->use_private_registry;
__PACKAGE__->default_connect_options( mysql_enable_utf8 => 1 );
__PACKAGE__->register_db(
driver   => 'mysql',
database => 'test',
host     => 'localhost',
username => 'root',
password => '',

重要的是添加此行：

__PACKAGE__->default_connect_options( mysql_enable_utf8 => 1 );

读回数据时无需解码。

Answer 1

在 Perl 代码中，您需要确保 Encode::decode() 输入，以便您的数据采用 Perl 的内部字符表示形式，处理您的数据，然后在写入数据库之前对输出进行 Encode::encode() 编码。您可能还想做：

$dbh->do('SET NAMES "utf8"');

连接到数据库后，以便 MySQL 客户端库和服务器在字符集上达成一致。

请参阅：http://perldoc.perl.org/perlunitut.html 和 http://perldoc.perl.org/perlunicode.html

Answer 2

如果没有看到你的 MySQL 连接代码，很难确定，但最有可能的是，你需要告诉 MySQL 你的连接将使用 UTF-8 - 否则，它会将你的字节解释为其他字符集，这可以解释为什么 phpMyAdmin没有向您显示预期的结果。

对于具有默认 mysql 库的 PHP，这就是 mysql_set_charset 的用途（假设您使用的是普通的旧 mysql_query）；对于 mysqli，您有等效的 mysqli_set_charset。

如果您使用其他库来访问 MySQL，则必须查看其文档以获取类似的内容。 Perl 也是如此；我对那种语言一无所知，所以我无法给你任何细节。