Perl 将 base64 转换回二进制

Question

我有一个形式为二进制字符串

"000000110111010100110110001010001010110111010110010001111111101010000001"  # for example

要编码为 base 64，我使用 pack 和 encode_base64

my $base64 = encode_base64 pack 'B*', $binaryString;

然后我会得到。

A3U2KK3WR/qB

我想恢复到字符串的原始二进制形式，我试过了

my $binString = decode_base64 $base64;  

但是会返回

u6(��G��

我怎样才能恢复原来的二进制字符串？

Answer 1

倒数

my $base64 = encode_base64(pack('B*', $binary));

是

my $binary = unpack('B*', decode_base64($base64));