簡體   English   中英

使用encode_json后,重音字符被雙重編碼

[英]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.

 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM