perl - 在 Perl 中解码 UTF-8 URL

Question

考虑:

use URI::Escape;
print uri_unescape("%C3%B3");

输出: ³

用这个解码 http://meyerweb.com/eric/tools/dencoder/

输出:ó

这是预期的。

我应该使用什么 Perl 库来获得正确的输出？

Answer 1

如果你知道字节序列是 UTF-8 ，然后使用 Encode::decode :

use Encode;
use URI::Escape;

my $in = "%C3%B3";
my $text = Encode::decode('utf8', uri_unescape($in));

print length($text);    # Should print 1