pack/entpacken - litle Endian - 64bit - Frage

Question

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

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

# 10000000000000000000000000000000 

Wie kann ich mit Pack erhalten/entpacken von

my $var = 1 << 63; 

eine Ausgabe wie diese?

# 1000000000000000000000000000000000000000000000000000000000000000 

Answer 1

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

Die > Kräfte Big-Endian Byte-Reihenfolge auf den Q (unsigned 64-Bit "Quad") eingeben.