Perl/Tk

Perl/Tkて、WindowsのActivePerlでも動くんですね。
ちょっとした(しかしC言語やBASICでは面倒な)処理をGUIで動かしたいときには便利かも。


TkはActivePerlにはデフォルトでは入ってないようだ。DOS窓ppm というコマンドを実行するとPPM(Perl Package Manager)のGUIが起動する。View > All Packages で Tkを選んでInstallのチェックをして File > Run Marked Actions を実行。これでスクリプトに use Tk と書けばTkが使える。


日本語表示のためには


use utf8;       # UTF8コードの場合
use encoding 'CP932'; # Shift-JISコードの場合


書き方は、ウインドウのインスタンスを生成( $top = MainWindow->new(); )し、ウインドウ上のコントロールを記述したあと、メインループ(その名もMainLoop()関数)に入る。以降イベントドリブンになる。