在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