使用 encode_json 后，重音字符被双重编码答案

【问题标题】：Accented characters are getting double encoded after using encode_json使用 encode_json 后，重音字符被双重编码
【发布时间】：2016-02-07 08:06:02
【问题描述】：

我遇到了use JSON::XS qw(encode_json); 中的 encode_json 函数问题。我们有一个基于 Web 的项目，以 Perl、JavaScript、jQuery 和 MySQL 作为后端。

在应用程序的特定屏幕中，用户名被扭曲。

问题是用户名是西班牙语并且有重音字符。我们保存数据库的表是旧表并且具有 charset latin 1，但是当我获取数据时，我使用强制转换并将其编码为 UTF-8 格式。

select CONVERT(CAST(CONVERT(u.last_name USING  latin1) AS BINARY) USING utf8) AS last_name from user where user_id = 'XXX'

在我存储数据库结果的结构中，数据看起来很好。

{ last_name => Cvas García}

这个结构被传递给呈现页面的javascript函数

$data_json = encode_json( $data )

当我打印$data_json 时，重音字符再次失真。

"user_permissions":[{"last_name":"Cvas GarcÃa"}]},

谁能帮我解决这个问题，无论是在 Mysql 还是 perl 或 javascript 代码中？

【问题讨论】：

标签： javascript mysql ajax perl utf-8

【解决方案1】：

表格的字符集无关紧要。 MySQL 会自动将表的编码转换为连接的编码。然后，您必须在 Perl 端对其进行解码，显式地或通过将mysql_enable_utf8 => 1 传递给connect。我推荐后者。

use utf8;                             # Source code encoded using UTF-8.
use open ':std', ':encoding(UTF-8)';  # Terminal expects/provides UTF-8.

use DBI      qw( );
use JSON::XS qw( encode_json );

my $user_id = "...";

my $dsn = "...";
my $user = "...";
my $password = "...";

my $dbh = DBI->connect("dbi:mysql:".$dsn, $user, $password, {
   PrintError => 0,
   RaiseError => 1,
   mysql_enable_utf8 => 1,  # Switch to UTF-8 for communication and decode.
});

my $name = $dbh->selectrow_array("
   SELECT `last_name`
     FROM `user`
    WHERE `user_id` = ?
", undef, $user_id);

# Encoding being performed by "use open".
print(sprintf("%vX", $name), "\n");        # 47.61.72.63.ED.61
print($name, "\n");                        # García

# Encoding being performed by "use open".
my $json = JSON::XS->new->encode([$name]);
print(sprintf("%vX", $json), "\n");        # 5B.22.47.61.72.63.ED.61.22.5D
print($json, "\n");                        # ["García"]

binmode(STDOUT); # Override "use open".
my $json_utf8 = JSON::XS->new->utf8->encode([$name]);  # aka encode_json([$name])
print(sprintf("%vX", $json_utf8), "\n");   # 5B.22.47.61.72.63.C3.AD.61.22.5D
print($json_utf8, "\n");                   # ["García"]

【讨论】：

感谢您的建议。我没有得到与您的代码中提到的相同的输出。这是我得到的输出。 43.75.65.76.61.73.20.47.61.72.63.ED.61 Cuevas GarcÃa 5B.22.43.75.65.76.61.73.20.47.61.72.63.ED.61.22.5D ["Cuevas GarcÃa"] 5B.22.43.75.65.76.61.73.20.47.61.72.63.C3.AD.61.22.5D ["Cuevas GarcÃa"]... 保存到用户表中的初始数据是否本身已损坏？
十六进制显示字符串是正确的，所以你根本没有为你的终端指定正确的编码。
ED 是 latin1 编码； C3 AD 是 utf8 编码。

【解决方案2】：

试试这个

use JSON;
use utf8;
use Data::Printer;
utf8::encode($data) unless (utf8::is_utf8($data));
p encode_json($data);

【讨论】：