Có tương đương `int, short, long` trong Perl không?

Question

64bits hệ thống:

$i=2;print ~$i; # 18446744073709551613 

hệ thống 32bits:

$i=2;print ~$i; # 4294967293 

Làm thế nào tôi có thể làm cho $i 32 bit?

Tôi cần một thao tác bitwise di động trong Perl trong bất kỳ hệ thống nào.

Answer 1

Đối với các thao tác bitwise di động trong Perl, hãy xem Bit::Vector library trên CPAN.

Nó hỗ trợ một loạt các hoạt động Bitwise, ví dụ:

use Bit::Vector; 

my $vector = Bit::Vector->new_Dec(32, "2"); # 32-bit vector for the decimal value 2 
$vector->Negate($vector); 

Answer 2

Chỉ cần bitwise và kết quả là 0xffffffff. Điều này sẽ không có hiệu lực trên một hệ thống 32-bit, và cung cấp cho bạn các bit 32 bit thấp trên một hệ thống 64-bit, đó là câu trả lời mà bạn muốn.