- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我在 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 代码中?
最佳答案
表的字符集无关紧要。 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"]
关于javascript - 使用 encode_json 后重音字符被双重编码,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/33562344/
我在 use JSON::XS qw(encode_json); 中遇到了 encode_json 函数的问题。我们有一个基于 Web 的项目,以 Perl、JavaScript、jQuery 和 M
我的 Perl 版本支持 64 位。我从多个来源接收 JSON 数据,然后对它进行解码、处理,然后重新编码,以便将数据保存在 MySQL 队列中,供不同的服务器进一步处理。 所有数据都包含 64 位整
我是一名优秀的程序员,十分优秀!