将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编码的本地实现。根据GPL条款分发的PHP实现可在Fremnet获得。

使用示例：

<?
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