помогите плиз перевести пару строк из перла в пхп

[tull]

Код: Выделить всё

while ($base <= $end)  {
  $step = 0;
  while (($base | (1 << $step))  != $base) {
    if (($base | (((~0) & $thirtytwobits) >> (31-$step))) > $end) {
       last;
    }
    $step++;
  }
  $base += 1 << $step;
}

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[FreeBSP]

что за ласт?
а в остальном так и будет

[tull]

что за ласт?

откуда же я знаю? я в перле полный ноль.
это кусок кода из ipcalc, переводящий диапазон в cidr.
отдельно этот код работает, я проверял (ессно там еще принт есть, просто я выкинул его).

upd: break это.
действительно, остальное работает