※ 引述《CindyLinz (Cindy Wang)》之銘言： : ※ 引述《rkcity (喵。罐頭)》之銘言： : : 今天在寫個小tool的時候發現 : : Perl 的 & 運算好像怪怪的... : : Source: : : $value = 4294967296; : : print ($value & 0xFFFFFFFF); : : Output: : : 4294967295 : : Expect: : : 預期應該是0 : : Excute Perl Online: : : http://codepad.org/9qM322Vf : : 最後我用mod先解掉了.. : : 似乎是只要大於4294967295(0xFFFFFFFF) 就會這樣 : : 即使mask設成 0x00000000FFFFFFFF 也是一樣結果 : : 請問這有辦法解決嗎? : 你的 Perl 是 32bits 版本 (大概你的機器環境是 32bits 的?), : 所以無號整數的範圍最大是 4294967295, : 常數寫超過的時候 Perl 會讓它停在這個最大值.. : 解法... 可以找 64bits 機器環境使用 64bits 的 Perl.. ^^| : (嗯, 因為不知道你真實的需求是什麼, 如果只看這幾行的話, : 直接寫 print 0 可能是最佳解? ^^|) : -- :

※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 112.121.78.5 : ※ 文章網址: https://webptt.com/m.aspx?n=bbs/Perl/M.1448301557.A.424.html : 推 rkcity: 哈哈哈 感謝回覆 環境是32bit 11/24 09:34 : 推 rkcity: 需求是我現在需要做一個計算不同checksum的tool。其中一 11/24 09:38 : → rkcity: 種是計算所有數值的加總 但是必須放回32bit register 11/24 09:39 : → rkcity: 用C的話overflow部分會直接被吃掉 不會像perl停留在最大值 11/24 09:40 : 推 abliou: 太厲害了!! 11/24 13:22 欸~ 可以考慮局部 use bigint; 像這樣子 # 這邊是平常的計算模式 { # 這個 block 裡面使用 bigint 計算模式 use bigint; my $a = 18446744073709551616; # 2**64 (因為我的環境是 64bits 的, 所以我試這個會出界的例子) $a **= 3; # 讓它更出界一點 (? print $a,$/; # 這邊會印出 6277101735386680763835789423207666416102355444464034512896 } # 這邊恢復平常的計算模式 --

※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 112.121.78.5 ※ 文章網址: https://webptt.com/m.aspx?n=bbs/Perl/M.1448351448.A.564.html