Birisi ben appreaciate istiyorum biraz yardımcı olabilir, PHP fonksiyonu için aşağıdaki perl işlevi dönüştürmek istiyorum:

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($_);
}

Şimdiden teşekkürler.