Как изменить порядок байтов 8-байтовой строки в Perl?

Question

Как я могу изменить FF02500000000020 на 20000000005002FF в Perl?

Я могу сделать так:

1. разделить FF02500000000020 на две части FF025000 и 00000020
2. добавить 0x перед ними;

3. тогда

   my $num2=0xFF025000;  
   my $num3=0x00000020;  
   my $s2=pack('I!',$num2);  
   my $s3=pack('I!',$num3);  
   print unpack ("H*", "$s2") . "\n";  
   print unpack ("H*", "$s3") . "\n";
   

4. затем снова объедините две части.

Есть ли простой способ?

Answer 1

print reverse split /(..)/, 'FF02500000000020';

Или, если хотите, в скаляре:

$val = join '', reverse split /(..)/, 'FF02500000000020';

Answer 2

Вот один из способов:

$str = unpack 'H*', reverse pack 'H*', $str;

Обратите внимание, что это шестнадцатеричные символы в нижнем регистре, поэтому вы можете добавить uc() в начале, если важно сохранить регистр:

$str = uc unpack 'H*', reverse pack 'H*', $str;

Answer 3

Получить данные в (одну) переменную - назовите ее $data. Затем используйте (скаляр) reverse.

print scalar reverse $data;

Или:

my $reversed = reverse $data;

Answer 4

Попробуйте Convert :: Binary :: C.Похоже, он может делать то, что вы хотите.