パック - litleエンディアン - 64 - 質問

Question

#!/usr/bin/env perl 
use warnings; 
use 5.012; 

my $var = 1 << 31; 
say unpack("B*", pack("N", $var) ); 

# 10000000000000000000000000000000 

私はパックを取得できますか/

my $var = 1 << 63; 

からこのような出力を解凍？

# 1000000000000000000000000000000000000000000000000000000000000000 

Answer 1

say unpack("B*", pack("Q>", $var)); 

>力Qのビッグエンディアンのバイト順序（符号なし64ビットの "クワッド"）を入力します。