用perl解码文件中的二进制八进制字符串
用perl解码文件中的二进制八进制字符串
提问于 2022-07-14 07:14:30
我有一个文件，其中一些行包含一个编码为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有人能帮忙吗？
Stack Overflow用户
回答已采纳
发布于 2022-07-14 14:06:08
首先，转换所需的全部条件是
unpack "h*", "SarI3gXp"使用-p的perl一行程序将为每一行执行所提供的程序，而s///e允许我们修改以代码作为替换表达式的字符串。
perl -pe's/^STRVID:\s*\K\S+/ unpack "h*", $& /e'页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/72976624
复制相关文章
相似问题
腾讯云开发者
