從兩個HEX對生成一個UTF-8字符

Question

我想從2個HEX對生成一個UTF-8字符。 HEX對來自字符串。

此代碼：

use Encode; 

my $bytes = "\xC3\xA9"; 
print decode_utf8($bytes); 

# Prints: é and is correct 

此代碼不起作用：

use Encode; 

my $byte1 = "C3"; 
my $byte2 = "A9"; 
my $bytes = "\x$byte1\x$byte2"; 
print decode_utf8($bytes); 

這裏是我想生成的字符：http://www.fileformat.info/info/unicode/char/00e9/index.htm

感謝您的任何提示！

Answer 1

use Encode; 

my $byte1 = "C3"; 
my $byte2 = "A9"; 
my $bytes = chr(hex($byte1)) . chr(hex($byte2)); 
print decode_utf8($bytes); 

Answer 2

啊哈YSTH打我：字符串文字的

#!/usr/bin/env perl 

use strict; 
use warnings; 

use Encode; 
use utf8::all; 

my $byte1 = "C3"; 
my $byte2 = "A9"; 
my $bytes = join '', map {chr hex} $byte1, $byte2; 

print decode_utf8($bytes); 

Answer 3

覺得作爲一個小型的語言。你不能這樣做

"\x$hex" 

任何比你更可以做

my $for = 'for'; 
$for (1..4) { } 

但也有很多方法可以做你想做的。

my $bytes = join '', map chr hex, @bytes_hex; 
my $bytes = pack 'C*', map hex, @bytes_hex; 
my $bytes = pack '(H*)*', @bytes_hex;