форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Перевести на perl"

Сообщение от AD (ok) on 26-Фев-06, 14:13

есть функция char *bin2ip(int *ip) {   char *res = (char *)malloc(16);   unsigned n = *ip + 0x80000000;   sprintf(res, "%u.%u.%u.%u", n>>24 & 0xff, n>>16 & 0xff, n>>8 & 0xff, n & 0xff);   return res; } как такое написать на perl?

Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

Сообщения по теме

[Сортировка по времени, UBB]

1. "Перевести на perl"

Сообщение от chip (ok) on 26-Фев-06, 19:09

>есть функция >char *bin2ip(int *ip) { >  char *res = (char *)malloc(16); >  unsigned n = *ip + 0x80000000; > >  sprintf(res, "%u.%u.%u.%u", n>>24 & 0xff, n>>16 & 0xff, n>>8 & 0xff, n & 0xff); >  return res; >} >как такое написать на perl? perldoc Socket inet_ntoa() #!/usr/bin/env perl use Socket; sub bin2ip($) {   my $ip = shift;   return inet_ntoa(pack("N", unpack("N", $ip) + 0x80000000)); }

Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

Архив | Удалить	Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]