UTF-16のデコード方法

いつもお世話になっております。
Perlにて、以下のUTF-16の文字コードをデコードしたいのですが、
どのように記述すればデコード出来るのでしょうか？
※PerlのVerは5.8です。

(文字コード)
%u4f11%u6b62%u30fb%u89e3%u7d04%u30fb%u5fa9%u6d3b

よろしくお願い致します。

No.5 回答者： zxcv0000 回答日時： 2009/03/26 13:17

> 莨第ュ「繝サ隗」邏・・蠕ゥ豢サ

SJIS系の端末をお使いですね。

#!/usr/local/bin/perl
use CGI("unescape");
binmode(STDOUT, ':encoding(Windows-31J)');
print unescape('%u4f11%u6b62%u30fb%u89e3%u7d04%u30fb%u5fa9%u6d3b'), "\n";

No.4 回答者： tatsu99 回答日時： 2009/03/26 13:01

>以下のプログラムを実行して表示された結果が

>莨第ュ「繝サ隗」邏・・蠕ゥ豢サ
>莨第ュ「繝サ隗」邏・・蠕ゥ豢サ
>でした。
実行した、環境（ＯＳの名称）
その環境の漢字コードの指定はどのようになっていますか。

No.3 回答者： zxcv0000 回答日時： 2009/03/26 10:53

> 上記処理で実施しましたが、文字化けしました。

日本語文字を出力する際の基本は、ご存知なんでしょうか？

この回答への補足

すみません。
日本語文字を出力する際の基本は分かっておりません。

以下のプログラムを実行して表示された結果が
莨第ュ「繝サ隗」邏・・蠕ゥ豢サ
莨第ュ「繝サ隗」邏・・蠕ゥ豢サ
でした。

(プログラム)
#!/usr/local/bin/perl
use CGI("unescape");

$str= unescape('%u4f11%u6b62%u30fb%u89e3%u7d04%u30fb%u5fa9%u6d3b');
printf("%s\n", $str);

print unescape('%u4f11%u6b62%u30fb%u89e3%u7d04%u30fb%u5fa9%u6d3b'), "\n";

補足日時：2009/03/26 11:13

No.2 回答者： zxcv0000 回答日時： 2009/03/25 17:41

use CGI("unescape");

print unescape('%u4f11%u6b62%u30fb%u89e3%u7d04%u30fb%u5fa9%u6d3b'), "\n"；

で良いみたいですね。

"UTF-16の文字コード" と言うよりは、生のUnicode番号だと思いますが。

この回答への補足

上記処理で実施しましたが、文字化けしました。
何か良い方法はありますでしょうか？

補足日時：2009/03/26 10:16

No.1 回答者： zxcv0000 回答日時： 2009/03/25 17:29

もっと良い方法があるかもですが、とりあえず......

use utf8;
print "\x{4f11}\x{6b62}......\n";

STDOUT のコードは端末に合せてください。