perl - 将整数数组转换为十六进制字符串

Question

我有一个包含一些整数的数组，我想将它转换为十六进制值的字符串。这是我使用的代码，它运行良好。我只是想知道是否有更简单的方法来做到这一点。

my @arr = get_tw() ; ##array of integer

for(my $i=0;$i<@arr;$i++){ 

  $arr[$i]= sprintf('%02x',$arr[$i]); ##overwrite with the hex value

} 

my $string  = join('',@arr); ##build a string from a array

谢谢

Answer 1

使用打包/解包:

my $string = join '', unpack('H*', pack('c*',@arr));