如何十六進制轉換爲字符串在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;