Get the bits only?
use constant CAN_PACK_QUADS => !! eval { my $f = pack 'q'; 1 }; sub Int64 { unpack( ( CAN_PACK_QUADS ? 'q<' : 'a8' ), $_[-1] ) } sub UInt64 { unpack( ( CAN_PACK_QUADS ? 'Q<' : 'a8' ), $_[-1] ) }
In reply to Re: Equivalent of unpack 'q' with 32-bit Perl (a8)
by Anonymous Monk
in thread Equivalent of unpack 'q' with 32-bit Perl
by Limbic~Region
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |