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));