Perl не видит hex-число в кавычках

[Ilya Evseev]

Как заставить PERL воспринять в виде числа строку '0xff112233' ?
При попытке распечатать её через printf("%x") или "%d" выводится ноль!

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[zg]

Как заставить PERL воспринять в виде числа строку '0xff112233' ?

какбэ в двойных кавычках нада писать

[lerryc]

Как заставить PERL воспринять в виде числа строку '0xff112233' ?

какбэ в двойных кавычках нада писать

или совсем бэз???
насколько я помню, хотя может и склероз подводит, в одинарных или двойных кавычках - это текстовая строка
а раз хочется

Код: Выделить всё

При попытке распечатать её через printf("%x") или "%d" выводится ноль!

то число должно быть как число, либо (с кавычками) печатать как текстовую строку (%s)

[Ilya Evseev]

Поясню вопрос.
У меня парсится строка из вывода команды ifconfig:

Код: Выделить всё

open N, "/sbin/ifconfig $iface_name |";
while(<N>) {
    next unless /\s+inet (\d+\.\d+\.\d+\.\d+) netmask (0x[[:xdigit:]]+) broadcast (\d+\.\d+\.\d+\.\d+)$/;
    my ($ip, $mask, $bcast) = ($1, $2, $3);
}

В $mask помещается "0xfffffff8", но при попытке использовать её в арифметических операциях
или при печати в цифровом формате она воспринимается как 0 (ноль).

[thefree]

Код: Выделить всё

open N, "/sbin/ifconfig $iface_name |";
while(<N>) {
    next unless /\s+inet (\d+\.\d+\.\d+\.\d+) netmask (0x[[:xdigit:]]+) broadcast (\d+\.\d+\.\d+\.\d+)$/;
    my ($ip, $mask, $bcast) = ($1, $2, $3);
    printf("%d \n", eval($mask));
}

[Ilya Evseev]

Точно, eval() рулит. Thanx!