- perl + netmask, NuINu, 11:25 , 19-Мрт-07 (1)
- perl + netmask, arto, 12:08 , 19-Мрт-07 (3)
- use Socket; $hex=unpack('H16', inet_aton($ip));, A, 12:23 , 19-Мрт-07 (4)
- perl + netmask, Straus_Zloy, 22:31 , 22-Июн-10 (5)
>[оверквотинг удален] >$subj. Как в перле перевести netmask из десятичного формата в hex? >Самому писать неохота, наверняка что-то готовое есть, вот только отыскать не могу >пока. Не поможете? :) > >e.g. 255.255.255.192 -> 0xffffffc0 > >p.s. А может я что-то пропустил, и в Перле что-то "готовое" есть? > > >Спасибо! $hex = sprintf '%02x' x 4, split '\.', $netmask ;
|