The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка  RSS
"PERL DEC->HEX"
Вариант для распечатки  
Пред. тема | След. тема 
Форум Программирование под UNIX (Perl)
Изначальное сообщение [ Отслеживать ]

"PERL DEC->HEX"  +/
Сообщение от KobaLTD email on 05-Дек-06, 12:14 
Собственно сабж, есть в стандартном наборе функия для такого преобразования и обратно, если нет то какие библиотечки надо доставить.

P.S. my $dec = 255; my $hex = sprintf "%x",$dec; не катит так как не может обработать к примеру число 123238095734195632875428137146093219123, оно для него слишком большое.

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

Оглавление

Сообщения по теме [Сортировка по времени | RSS]


1. "PERL DEC->HEX"  +/
Сообщение от DiverD (ok) on 05-Дек-06, 13:25 
Посмотри реализацию тут http://samy.pl/3.pl
Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

2. "PERL DEC->HEX"  +/
Сообщение от KobaLTD email on 05-Дек-06, 13:44 
>Посмотри реализацию тут http://samy.pl/3.pl


Извратно
Вобщем все вопрос снимаеться проще написать собственную фукцию, что уже в принцепе сделано.

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

3. "PERL DEC->HEX"  +/
Сообщение от DiverD (??) on 05-Дек-06, 14:38 
покажи решение
Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

4. "PERL DEC->HEX"  +/
Сообщение от JonnyB (ok) on 05-Мрт-10, 10:38 
>покажи решение

извиняюсь за никрофилию, но вдруг кому-то понадобится, как недавно мне

sub DecToHex
    {
        $res = '';
        $rests = '';
        $num = $_[0];
        @hex = (0..9, A..F);
        while($num > 15){
            $rests = $num%16;
            $num = int($num/16);
            $res = join("", $hex[$rests], $res);
        }
        $res = join("", $hex[$num], $res);
        return $res
    }

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

5. "PERL DEC->HEX"  +/
Сообщение от mee (ok) on 20-Июл-10, 14:05 
Можно проще:

sub dec2hex($)
{
  return sprintf("%x",shift);
}

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

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру