Perl/Tk Entryから日本語入力

質問

Entry ウィジェットからの日本語入力方法が分かりません。。。

環境は、
Windows XP
ActivePerl v5.8.8
です。

$fr11->Entry(-textvariable=>\$a)->pack();
print STDOUT decode("shiftjis",$a);

として、GUIから$aに日本語を入力しますが、標準出力には、何も表示されません。。。
どなたか解決策を教えてください。

回答No.1

sakusaker7 · ベストアンサー

標準出力というのはスクリプトを起動したコマンドプロンプトですか?
とりあえず decode と encode が逆です。

use Tk;
use Encode /decode encode/;
my $t;

my $top = new MainWindow;
$top->Entry(-textvariable=>\$t)->pack();
MainLoop;
print STDOUT encode('shiftjis', $t);

ウィンドウを閉じないとコマンドプロンプトに出力されませんけどね。

お礼

sakusaker7さん
早速のご回答ありがとうございます。

encodeとdecodeが逆でした...
日本語入出力できました。

>標準出力というのはスクリプトを起動したコマンドプロンプトですか?
そうです。コマンドプロンプトです。

ありがとうございました。