问 用perl解码文件中的二进制八进制字符串

EN

我有一个文件，其中一些行包含一个编码为text ->二进制-> octets的数字，我需要对其进行解码才能得到数字。该编码字符串所在的所有行都以STRVID开头：

例如，我有一句台词：

STRVID: SarI3gXp

如果我做这个回波"SarI3gXp“\ perl -lpe‘$_=unpack”B*“，我会得到二进制数

0101001101100001011100100100100100110011011001110101100001110000

现在，为了从二进制解码为octets，我这样做(将前面的命令分配给变量，然后将二进制转换为octets )。

variable=$(echo "SarI3gXp" | perl -lpe '$_=unpack"B*"') ; printf '%x\n' "$((2#$variable))"

结果是数字，而不是正确的顺序。

5361724933675870

要得到前一个数字的正确顺序，我必须得到每一对数字，首先，第二个数字，然后第一个数字，最后得到我想要的数字。就像这样：

variable=$(echo "SarI3gXp" | perl -lpe '$_=unpack"B*"') ; printf '%x\n' "$((2#$variable))" | gawk 'BEGIN {FS = ""} {print $2 $1 $4 $3 $6 $5 $8 $7 $10 $9 $12 $11 $14 $13 $16 $15}'

最后，我找到了我要找的号码：

3516279433768507

对于我的文件中以STRVID:开头的每一行，我都不知道如何自动做到这一点。最后，我需要的是整个文件，但是当一行以STRVID开头时:则需要解码的值。

当我发现这个：

STRVID: SarI3gXp

我会在我的档案里

STRVID: 3516279433768507

有人能帮忙吗？