[英]Accented characters are getting double encoded after using encode_json
我在use JSON::XS qw(encode_json);
遇到encode_json函數的問題use JSON::XS qw(encode_json);
。 我們有一個基於Web的項目,以Perl,JavaScript,jQuery和MySQL為后端。
在應用程序的特定屏幕中,用戶名失真。
問題是用戶名是西班牙語,並且帶有重音字符。 我們保存數據庫的表是舊表,並且具有字符集拉丁語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"]
嘗試這個
use JSON;
use utf8;
use Data::Printer;
utf8::encode($data) unless (utf8::is_utf8($data));
p encode_json($data);
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.