regex - Perl，用相应的字符替换十六进制文本

Question

我有一个文件，其中包含由文本和编码字符混合而成的长行。

%255D%252C%2522actualPage%2522%253A1%252C%2522rowPerPage%2522%253A50%257D%255D

每个编码器字符是%25xxascii xxchar 的十六进制值（例如%2540 = @）

我尝试了以下但没有成功

perl -pe 's/%25([0-9A-F](0-9A-F])/\x$1/' myfile.txt
perl -pe 's/%25([0-9A-F](0-9A-F])/chr($1)/' myfile.txt

你对我有什么线索吗？

TIA，佩尔

Answer 1

也许你想要的是URI::Encode. 为此使用模块比使用正则表达式更好。

perl -MURI::Encode -nle'$u=URI::Encode->new(); print $u->decode($u->decode($_));'

输入字符串的输出是这样的：

],"actualPage":1,"rowPerPage":50}]

您会注意到，字符串必须被解码两次，因为它已经被编码了两次（%25显然是百分号%）。临时输出是

%5D%2C%22actualPage%22%3A1%2C%22rowPerPage%22%3A50%7D%5D

Answer 2

perl -MURI::Escape -ne'print uri_unescape(uri_unescape($_))'

Answer 3

perl -pe 's/%25([0-9A-F][0-9A-F])/chr hex $1/ge' myfile.txt

输出

],"actualPage":1,"rowPerPage":50}]