Perl：解码“乱码”统一码字符串

Question

我正在编写一个从某个软件调用的 CGI 脚本（我无法更改）。软件提交的变量给我带来了问题，因为如果它们包含非ascii字符，它们看起来像这样：

ÿFFFFDEetta er texti meÿFFFFF0 ÿFFFFEDslenskum stÿFFFFF6fum

而不是

Þetta er texti með íslenskum stöfum代码>.

我尝试过修改 Encode::decode 函数，但没有任何结果 - 我所做的只是改变 ÿ 的表示方式。

是的，我有点困惑。我该怎么做才能将所有 ÿFFFFDE 更改为 Þ 等，而不需要单独替换每个非 ascii 字符（这不是解决方案，因为这需要为我什至不会说的语言工作）？

Answer 1

use Encode qw(decode);
use Encode::Escape qw();

$_ = 'ÿFFFFDEetta er texti meÿFFFFF0 ÿFFFFEDslenskum stÿFFFFF6fum';
s/ÿFFFF/\\x/g;
decode('iso-8859-1', decode('unicode-escape', $_));
# returns 'Þetta er texti með íslenskum stöfum'