#!usr/bin/perl -l

use strict;
use warnings;
use URI::Encode qw(uri_decode);

my $encoded = "%E4%BA%8E%E6%96%AF%E5%B1%88%E8%BE%BE%E5%B0%94";
print uri_decode($encoded);
[download]

You tried what now? :P

于斯屈达尔

What the.....

That piece of Chinese charater string you get is absolutely right. But I simply CANNOT get the same result. The exact same code produces "浜庢柉灞堣揪灏" on my computer. Is there some configuration stuff that I'm missing? BTW I'm coding on a winxp machine with activePerl.

Also, the solution that Khen1950fx presents probably should produce the correct result but it just does not work for me either.

Try this...? This is along the lines aitap wrote about.

perl -CSD -MEncode -MURI::Escape -le 'print decode "UTF-8", uri_unescape("%E4%BA%8E%E6%96%AF%E5%B1%88%E8%BE%BE%E5%B0%94")'


You might need to reverse the quotes for your box.

$ perl -Mutf8 -MURI::Escape -E'say utf8::is_utf8(uri_unescape shift) ?
+ "characters" : "bytes"' %E4%BA%8E%E6%96%AF%E5%B1%88%E8%BE%BE%E5%B0%9
+4
bytes
[download]

$ perl -MEncode=decode -MData::Dumper -MURI::Escape -e 'print Dumper d
+ecode utf8 => uri_unescape shift' %E4%BA%8E%E6%96%AF%E5%B1%88%E8%BE%B
+E%E5%B0%94
$VAR1 = "\x{4e8e}\x{65af}\x{5c48}\x{8fbe}\x{5c14}";
[download]

YourMother and aitap. The exact code snippets you guys gave do not produce the correct string on my machine. But with your helpful discussion, I finally figured out what worked for me:

Thank you very very much for the help. Also, it would be great if any of you can explain to me why I need the above code on my computer while a simple uri_unescape works for YM.