[Perl] Perl -> PHP

[MrDevil]

habe diesen Perl-Schnippsel

sub toFilename
{my($username)=@_;
lowercase($username);
my $bits = unpack("b*", $username);
my $ret="_";
for (my $i=0;$i<length($bits);$i+=5)
{my $part=substr($bits,$i,5);
$n=ord(pack("b8",$part));
if ($n<26)
{$n+=ord('a');
}else
{$n+=ord('0')-26;
}$ret .= chr($n);
}return $ret;


diesen hät ich gerne in PHP!
Habe dabei aber Probleme
die Funktion unpack bez Pack gennt in PHP nicht Parameter b sowie b8

wer kann mir helfen! ich ahbe von Perl NULL ahnung!
bekomme nicht mal sowas wie


-
#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser) ;
use strict ;
print "Hello World!\n";
-
zum laufen obwohl rechte auf 755 stehen!