小编Yus*_*Ali的帖子

我有一个本质上是二进制的字符串

my $string = "000110";

我一直在尝试使用 encode_base64 但它编码字符串，如果我正确阅读文档。

my $j = MIME::Base64->encode_base64($string);
print "$j\n"; # should print 'A'
>> TUlNRTo6QmFzZTY000000

我怎样才能在 perl 中做到这一点？该字符串的长度预计为 ~120 个二进制位。我宁愿不使用默认情况下未安装 perl 的任何模块，此脚本的目标受众不熟悉 shell。

编辑：这个问题的很多答案都围绕字符串，而不是实际数字，我找到了一个解决方案，但它需要安装 Math::BaseCalc 模块。

Edit2：基本上，如果我有

my $binary_string = "000110";

我想让它以 base64 编码（作为数字），所以它返回

>>G  # for this case (binary number 000110 to base64 number = G)

我有一个我正在尝试编写的方法,可以将数据发布到php文件并获取结果并在变量中返回输出.出于某种原因,我的代码块无效.

function post_get(){

var result = null;

$.post("modules/data.php", { "func": "getNameAndTime" },
function(data){
    result = JSON.parse(data);
}, "json");


return result;
}

使用此方法时出现此错误

SyntaxError:JSON解析错误:意外的标识符"undefined"