问将十六进制转换为二进制，并保持前导0的Perl

EN

我有一个十六进制数的数组，我想要转换成二进制数，问题是，在我的代码中，它删除了像0,1,2,3这样的东西的前导0。我需要这些前导0在我的代码的未来部分处理。有没有一种简单的方法可以将十六进制转换为二进制，并将前导0保留在perl中？

use strict;
use warnings;
my @binary;
my @hex = ('ABCD', '0132', '2211');
foreach my $h(@hex){
my $bin = sprintf( "%b", hex($h));
push @binary, $bin;
}

foreach (@binary){
print "$_\n";
}

运行代码会得到1010101111001101 100110010 10001000010001

编辑:使用打包和解包找到类似的答案，已替换

使用unpack( 'B*', pack('H*' ($h))的sprint( "%b", hex($h));