3
#!/usr/bin/env perl
use warnings;
use 5.012;
my $var = 1 << 31;
say unpack("B*", pack("N", $var) );
# 10000000000000000000000000000000
Как я могу получить с колодой/распаковать изпакета/распаковки - Лил обратного порядка байт - 64-битный - вопрос
my $var = 1 << 63;
выводного, как это?
# 1000000000000000000000000000000000000000000000000000000000000000
Примечание: 1) Квадраты доступны только в 64-битных версиях perl. 2) Модификаторы байтового байта требуют Perl 5.10 или новее. –