Коллеги, доброго времени суток.
Так уж случилось, что я не perl-разработчик. И не имею желания им стать.
Есть некоторый объем кода, который надо "портировать с perl'а".
В целом это не вызывало проблем, до момента когда мы дошли до "энкодинга" в определенной части приложения.
И там есть пару конструкций, которые просто не получатся понять. Возможно я тупой.
И тем не менее, вот такой код:
sub encode32
{
$_=shift; # входное значение
my($l,$e); # инициализация переменных
$_=unpack('B*',$_); # unpack sprintf('%08d', decbin(ord($char))) посимвольно
s/(.....)/000$1/g; # ??? какая-то регулярка, но как она работает?
$l=length; # ??? что тут length?
if($l & 7)
{
$e=substr($_,$l & ~7);
$_=substr($_,0,$l & ~7);
$_.="000$e" . '0' x (5-length $e); # ??? что за x?
}
$_=pack('B*', $_); # pack обратно
tr|\0-\37|A-Z2-7|; # ??? что тут вообще происходит?
lc($_); # lowercase входящего значения
}
строки с вопросами сильно отличаются от того к чему мы простые смертные привыкли...
мб найдется кто-то, кто будет готов их расшифровать и перевести на понятный язык.
Собственно прошу вашей помощи. За любую работу привык платить, здесь не исключение, готов оплатить ваш труд по вашему ценнику.
