LINUX.ORG.RU
Форум — Development  

inet_aton = (mysql <> perl)


0

0 

Как получить ip aдрес в perl, как в mysql (inet_aton). 
mysql: 
SELECT inet_aton('192.168.1.1'); 
3232235777
★★
← Исходники для разных платформ
программа бэкапа (вопрос выбора) → 

/(\d+)\.(\d+)\.(\d+)\.(\d+)/ =~ $addr_str;
$addr_num = $1 << 24 | $2 << 16 | $3 << 8 | $4;

Это если нет библиотечной функции, в чём я сильно сомневаюсь. И с endianness-ом поаккуратней.

Legioner ★★★★★
()
Ответ на: комментарий от Legioner 

>/(\d+)\.(\d+)\.(\d+)\.(\d+)/ =~ $addr_str;
>$addr_num = $1 << 24 | $2 << 16 | $3 << 8 | $4;
не получается, делаю что-то не то... поподробней можешь объяснить?

а аналогичные библиотечные функции, какие есть?

lioncub ★★
() автор топика
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
← Исходники для разных платформ
Development
программа бэкапа (вопрос выбора) →