json - 在 JSON::XS for Perl 中用 "\u four-hex-digits"编码

Question

我的散列包含具有 UTF-8 字符的字符串，例如:

$hash = { text => 'Dragón' };

当我使用 JSON::XS 将其编码为 JSON 时，我得到如下内容:

{"text":"Dragón"}

虽然看起来很丑，但是可​​以用，但我想得到这样的东西:

{"text":"Drag\u00f3n"}

这可能吗？

Answer 1

->ascii 将输出限制为 US-ASCII 字符。

my $json = JSON::XS->new->ascii;

my $text = $json->encode($hash);