- or download this
use feature qw( say );
...
my $packed = pack("w*",$num);
say total_size($packed);
Dump($packed);
- or download this
24
SV = IV(0x768010) at 0x768018 <-- See SVt_IV image below
...
PV = 0x7d6520 "\207h"\0
CUR = 2 <-- Even though only 3 are needed,
LEN = 8 <-- 8 byte string buffer allocated
- or download this
16
SV = IV(0x51a100) at 0x51a104 <-- See SVt_IV image below
...
PV = 0x5b4334 "\207h"\0
CUR = 2 <-- Even though only 3 are needed,
LEN = 12 <-- 12 byte string buffer allocated