我从命令行将utf8编码的字符串传递到Perl程序中：
> ./test.pl --string='ḷet ūs try ṭhiñgs'
这似乎可以正确识别字符串：
use utf8;
GetOptions(
'string=s' => \$string,
) or die;
print Dumper($string);
print Dumper(utf8::is_utf8($string));
print Dumper(utf8::valid($string));
印刷
$VAR1 = 'ḷet ūs try ṭhiñgs';
$VAR1 = '';
$VAR1 = 1;
当我将此字符串存储到哈希中并在其上调用encode_json时，该字符串似乎已被再次编码，而to_json似乎有效（如果我正确读取了输出）：
my %a = ( 'nāme' => $string ); # Note the Unicode character
print Dumper(\%a);
print Dumper(encode_json(\%a));
print Dumper(to_json(\%a));
印刷
$VAR1 = {
"n\x{101}me" => 'ḷet ūs try ṭhiñgs'
};
$VAR1 = '{"nāme":"ḷet Å«s try á¹hiñgs"}';
$VAR1 = "{\"n\x{101}me\":\"\x{e1}\x{b8}\x{b7}et \x{c5}\x{ab}s try \x{e1}\x{b9}\x{ad}hi\x{c3}\x{b1}gs\"}";
但是，将其转换回原始哈希似乎不适用于这两种方法，并且在两种情况下均无法实现哈希，字符串和破损：
print Dumper(decode_json(encode_json(\%a)));
print Dumper(from_json(to_json(\%a)));
印刷
$VAR1 = {
"n\x{101}me" => "\x{e1}\x{b8}\x{b7}et \x{c5}\x{ab}s try \x{e1}\x{b9}\x{ad}hi\x{c3}\x{b1}gs"
};
$VAR1 = {
"n\x{101}me" => "\x{e1}\x{b8}\x{b7}et \x{c5}\x{ab}s try \x{e1}\x{b9}\x{ad}hi\x{c3}\x{b1}gs"
};
哈希查找$a{'nāme'}现在失败。
问题：如何在Perl中正确处理utf8编码和字符串以及JSON编码/解码？
您需要解码输入：
use Encode;
my $string;
GetOptions('string=s' => \$string) or die;
$string = decode('UTF-8', $string);
放在一起，我们得到：
use strict;
use warnings;
use 5.012;
use utf8;
use Encode;
use Getopt::Long;
use JSON;
my $string;
GetOptions('string=s' => \$string) or die;
$string = decode('UTF-8', $string);
my %hash = ('nāme' => $string);
my $json = encode_json(\%hash);
my $href = decode_json($json);
binmode(STDOUT, ':encoding(utf8)');
say $href->{nāme};
例子：
$ perl test.pl --string='ḷet ūs try ṭhiñgs'
ḷet ūs try ṭhiñgs
确保您的源文件实际上被编码为UTF-8！
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句