perl将二进制转化为十进制

在 Perl 中，可以使用 `oct()` 函数将二进制字符串转换为十进制数字。例如，要将二进制字符串 `1101` 转换为十进制数字，可以按照以下方式编写代码：

my $binary = '1101';
my $decimal = oct("0b$binary");
print $decimal;  # 输出 13

在这里，`oct()` 函数将字符串 `"0b1101"` 解释为二进制数，并将其转换为相应的十进制数字。