如何十六进制转换为字符串在Perl

Question

我使用Perl和我得到的字符串：

AGN \ u00e8s b

我怎样才能将其转换为

agnèsb

？

我试过使用下面的代码。

my $hex = "agn\u00e8s b"; 
$hex =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; 
print "$hex\n"; 

但它失败并显示出一些奇怪的字符。更重要的是，我还需要展示中文单词。例如，

\ u9eb5 \ u5305

如何将其转换为以下？

面包

Answer 1

my $s = "agn\\u00e8s b"; 
$s =~ s/\\u(....)/chr(hex($1))/eg; 
print "$s\n"; 

不要忘了你的编码输出

use open ':std', ':encoding(UTF-8)'; 

Answer 2

使用

此：

$十六进制=〜S /（\ U [A-FA-F0-9] [A-FA-F0-9] [ （'utf-8'，chr（hex（$ 1）））/ eg;