perl - 如何为 URL 编码西里尔字符然后解码它们？

Question

我在一页上有一个表格:

<form method="POST" accept-charset="UTF-8" action="index.cgi" name="TestForm">

输入字段之一“search_string”可用于发送西里尔字符，如果发生这种情况，URL 字符串如下所示:

search_string=%41F%2F%424+%41F%41E%414%416%410%420%41A%410+%418%417+%421%412%418%41D

如何将其解码回我发布到的页面上的原始字符串？

Answer 1

正确的解决方案，包括空格:

use open ':std', ':encoding(UTF-8)';
use Encode;

my $escaped = '%41F%2F%424+%41F%41E%414%416%410%420%41A%410+%418%417+%421%412%418%41D';
(my $unescaped = $escaped) =~ s/\+/ /g;
$unescaped =~ s/%([[:xdigit:]]+)/chr hex $1/eg;
print $unescaped;
# П/Ф ПОДЖАРКА ИЗ СВИН

信用转至 Renaud Bompuis因为首先认识到这些是以 % 为前缀的 Unicode 代码点。 .

我想补充一点，问题中的编码方案非常不寻常，我以前从未见过。通常人们会期望字符串 П/Ф ПОДЖАРКА ИЗ СВИН编码为 %D0%9F%2F%D0%A4+%D0%9F%D0%9E%D0%94%D0%96%D0%90%D0%A0%D0%9A%D0%90+%D0%98%D0%97+%D0%A1%D0%92%D0%98%D0%9D ，也就是说，首先将字符编码为UTF-8，然后将八位字节进行百分比转义。此方案适用于 Dr.Kameleon 的答案.