php - 将 Perl 函数转换为 PHP

Question

我想将下面的 perl 函数转换为 PHP 函数，如果有人可以提供一点帮助，我会欣赏它：

sub encode32
{
    $_=shift;
    my($l,$e);
    $_=unpack('B*',$_);
    s/(.....)/000$1/g;
    $l=length;
    if($l & 7)
    {
        $e=substr($_,$l & ~7);
        $_=substr($_,0,$l & ~7);
        $_.="000$e" . '0' x (5-length $e);
    }
    $_=pack('B*', $_);
    tr|\0-\37|A-Z2-7|;
    lc($_);
}

提前致谢。

Answer 1

它是来自RFC 3548的 Base32 编码的本土实现。Fremnet提供了根据 GPL 条款分发的 PHP 实现。

示例使用：

<?
include('class.base32.php5');

function encode32($str) {
  $b = new Base32(Base32::csRFC3548);
  return strtolower($b->fromString($str));
}

print encode32("foo bar baz quux") . "\n";
?>

输出：

mzxw6idcmfzcaytbpiqhc5lvpa