Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / [PERL] шестнадцатиричные числа / 7 сообщений из 7, страница 1 из 1
12.04.2012, 14:58
    #37750632
Владимир Г.
Владимир Г.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[PERL] шестнадцатиричные числа
Есть такой код где нужно выполнить оперецию с шестнадцатиричными кодами(х64)

$addr = 000000004001f950;
$baseaddr = 000000000012FAE0;
$prefbaseaddr = 0000000140000000;

$realaddr = hex($addr)-hex($baseaddr)+hex($prefbaseaddr); #line 170

понимаю в чем проблема но как решить не знаю(с х32 кодами все ок)
Integer overflow in hexadecimal number at хххх.pl line 170,
Hexadecimal number > 0xffffffff non-portable at хххх.pl line 170,

Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.04.2012, 15:08
    #37750664
Ренат
Ренат
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[PERL] шестнадцатиричные числа
Владимир Г.,

что за функция hex?
Код: php
1.
$realaddr = hexdec($addr)-hexdec($baseaddr)+hexdec($prefbaseaddr); #line 170
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.04.2012, 15:51
    #37750758
Владимир Г.
Владимир Г.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[PERL] шестнадцатиричные числа
Ренат,

Это перл - hex - Интерпретирует строковое ВЫРАЖЕНИЕ как шестнадцатиричное число и вычисляет его десятичный эквивалент.
проблема в том что это 10 ричное число выходит за грници инт.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.04.2012, 16:50
    #37750897
Владимир Г.
Владимир Г.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[PERL] шестнадцатиричные числа
Владимир Г.,

кажись она таки работает- получаю десятичное число 5368730473, но проблема в переводе полученого числа в шестнадцатиричную систему. для перевода (х32) использовал функцию
Код: plsql
1.
sprintf "%x", $addr;


в случае с большими числами ошибка Integer overflow in hexadecimal number at
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.04.2012, 18:35
    #37751132
Владимир Г.
Владимир Г.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[PERL] шестнадцатиричные числа
проблему решил делением числа на две части, каждую перевел в 16 и склеил
Код: plsql
1.
2.
3.
4.
5.
$div = hex '0xffffffff'; 
$realaddr = hex($addr)-hex($baseaddr)+hex($prefbaseaddr);
$intdiv = sprintf "%x", $realaddr/($div+1);
$remdiv = sprintf "%x", $realaddr%($div+1);
$realaddr = $intdiv.sprintf('%08s', $remdiv);
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.04.2012, 11:53
    #37752074
Warstone
Warstone
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[PERL] шестнадцатиричные числа
Владимир Г.,

Включите поддержку 64bit integer в Перле. Ключ компиляции сами поищите.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
26.11.2013, 21:20
    #38479029
volodin661
volodin661
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[PERL] шестнадцатиричные числа
Владимир Г.Есть такой код где нужно выполнить оперецию с шестнадцатиричными кодами(х64)

$addr = 000000004001f950;
$baseaddr = 000000000012FAE0;
$prefbaseaddr = 0000000140000000;

$realaddr = hex($addr)-hex($baseaddr)+hex($prefbaseaddr); #line 170

понимаю в чем проблема но как решить не знаю(с х32 кодами все ок)
Integer overflow in hexadecimal number at хххх.pl line 170,
Hexadecimal number > 0xffffffff non-portable at хххх.pl line 170,

Спасибо.


bigint - Transparent BigInteger support for Perl

use bigint;
$realaddr = hex($addr)-hex($baseaddr)+hex($prefbaseaddr);
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / [PERL] шестнадцатиричные числа / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]