Хозяйке на заметку: IP ↔ longint

[shoorick]

Туда:

unpack('l', pack('C*', split(/\./, $ip)))

Обратно:

join('.', unpack('C*', pack('l', $pa)))

Comments

[sappa.livejournal.com]

Нет в perl такого типа данных longint. И вообще, есть чувство, что ты изобретаешь inet_aton и inet_ntoa из штатного модуля Socket, только в исковерканном варианте.

Ну

[shoorick.livejournal.com]

1. Знаю, что нет.

2. Изобретение лисапеда — наше всё. Спасибо за подсказку — в следующий раз напишу правильнее.