Как уже отмечалось, оболочка, вероятно, не лучшее место для этого. Если вы действительно хотите, вот решение с использованием awk , dc , printf , sed и tr :

#!/bin/sh
# file: swap-bits

target_order='D5679123C4EF80AB'
indices() {
    printf '%s\n' "$1"         \
    | sed 's/./\0 1+p\n/g'     \
    | sed '1s/^/10o16i/'       \
    | dc                       \
    | sed 's/^/substr( $0, /'  \
    | sed 's/$/, 1 )/'         \
    | tr '\n' ' '
    echo
}

sed 's/^/2o16iF/'                                              \
| sed 's/$/p/'                                                 \
| dc                                                           \
| sed 's/....//'                                               \
| awk "{ print \"16o2i\" $(indices ${target_order}) \"pq\" }"  \
| dc                                                           \
| sed 's/^/0000/'                                              \
| sed 's/.*\(....\)$/\1/'

Это не проверяет ввод. Переменная target_order должна быть установлена ​​на предпочтительную перестановку ваших 16 бит.

Функция index принимает в качестве входных данных такую ​​строку и выводит последовательность команд substr ($ 0, n, 1) , которые awk будет использовать чтобы переставить его ввод.

Основная часть скрипта начинается с использования dc для преобразования ввода из шестнадцатеричного в двоичный. Начальные нулевые биты сохраняются путем добавления к входу префикса F и отбрасывания четырех однобитовых. Результат передается в awk , который печатает команду, которая сообщает dc преобразовать двоичный код в шестнадцатеричный, затем переставленный вывод, затем команду, которая сообщает dc напечатать и выйти. Это, конечно, подается на постоянного тока . Наконец, снова используется sed , чтобы убедиться, что в выходных данных присутствуют ведущие нули, если это необходимо.

Вход поступает на стандартный ввод , вывод - на стандартный вывод , например:

$ echo B455 | ./swap-bits
CB15

perl -wMstrict -le '
   my @bits = unpack "(A1)16", sprintf "%016b", hex shift;
   my $bitmap = "D5679123C4EF80AB";
   @bits = @bits[ map { hex } split //, $bitmap ];
   $"="";
   print sprintf "%04X", oct "0b@bits";
' "B455"

Результат: CB15

Краткое:

First we convert the input hex number into it's 16-bit binary equivalent and store the indi-
dual bits in the array @bits. The individual bits are now mapped according to the bitmap wh-
ich is generated by splitting into single bits and getting their decimal equivalents which
are the array indices of @bits. Last step involves in converting the mapped bits into their
4-digit hex counterpart.