- RU.PERL ----------------------------------------------------------- RU.PERL - Msg : #3549 [639] От : Yury Kopyl 2:5020/400 14 мая 04, 21:57 Кому : Stanislav Yadykin 14 мая 04, 21:49 Тема : Re: транслирование кода из С++ в перл ------------------------------------------------------------------------------- From: "Yury Kopyl"Stanislav Yadykin -> "транслирование кода из С++ в перл" : SY> Hello everybody. SY> Возникла надобность портировать код, написанный на С++ в перл. SY> Hо появилась проблема с одним участком кода: >> hashbuf->iWBuf[14] = (dword)(tmpLength / 0x100000000); SY> Перл ругается на это строку >> Integer overflow in hexadecimal number at XXXXXX.pm line 150. >> Hexadecimal number > 0xffffffff non-portable at XXXXXX.pm line 150. Попробуй финт ушами: my $tmp=(dword)(tmpLength / 0x10000); hashbuf->iWBuf[14] = $tmp/0x10000; Yury Kopyl aka hrg | http://id.totem.ru | "Хоббиты-маздай! Мордовия-фарева!" (С)Сарумян --- ifmail v.2.15dev5.3 * Origin: IAC Samara-Internet, Ltd. (2:5020/400)