「【Perl】Win32::GUI::LoftでGUIプログラミング」」ではThe GUI Loftを使ってGUIアプリケーションを書いた。

作成したアプリケーションを配布するときにはPAR::Packerでexe化すると便利なのだが、スクリプトファイル（拡張子.pl）の他にGUI定義ファイル（拡張子.gld）もパッケージしないといけない。まずはパッケージ内部のgldファイルを読み込めるようにスクリプトを訂正しよう。

#!/usr/bin/perl
use strict;
use warnings;
use FindBin;
use Path::Class;
use Win32::GUI::Loft;

my $gld = "testGUI.gld";
my $scalar = $INC{ "PAR.pm" }
    ? PAR::read_file( $gld )
    : file( $FindBin::Bin, $gld )->slurp;
my $design = Win32::GUI::Loft::Design->newScalar(
    $scalar, $gld );
my $win = $design->buildWindow;
$win->btnButton1->Change( -onClick => sub { -1 } );
$win->Show;
Win32::GUI::Dialog;

ハイライトした部分が変更点だ。Perlの小ネタ集に書いたが、%INCハッシュの要素を調べることでPARモジュールを読み込んでいるかどうかがわかる。

これによってexe化したファイルから起動しているのかどうか判定しているわけだ。その上で、PAR::read_file関数¹を使ってファイルを読み込んでいる。

スクリプトを変更した上で、exe化を実行する。

C:\> pp -a testGUI.gld -o testGUI.exe testGUI.pl

-aオプションによってパッケージにファイルを追加している。後は作成したtestGUI.exeを配布するだけだ。

Continue reading →

モジュール「Term::ReadKey」を使うと出来る。これはUnix系OSだけじゃなくてWindows（ActivePerl 5.10.1 build 1007で確認）でも動く。

Term::ReadKey – search.cpan.org

http://search.cpan.org/dist/TermReadKey/ReadKey.pm

例１：文字列を入力して貰う

#!/usr/bin/perl
use Term::ReadKey;
print "type some keys : ";
ReadMode "normal";
chomp( my $line = ReadLine 0 );
print "you typed '$line'\n";

chompしないと最後に改行が付いたままになってしまうので注意。

例２：画面に文字を表示しないで入力

#!/usr/bin/perl
use Term::ReadKey;
print "enter your password : ";
ReadMode "noecho";
chomp( my $line = ReadLine 0 );
ReadMode "restore";
print "\nyou typed '$line'\n";

パスワード入力に使えるだろう。

例３：１文字だけ受け付ける（選択肢を選んで貰う）

#!/usr/bin/perl
use Term::ReadKey;
print "are you Hungry? (y/n)\n";
ReadMode "cbreak";
my $char = ReadKey 0;
ReadMode "restore";
print "you typed '$char'\n";

このスクリプトはWindowsにおいて挙動がおかしい。なぜかエンターキーだけを認識しないのだ（他のキーは全く問題ない）。そのときはTerm::Getchを使おう。

Term::Getch – ReadKeyライクなインターフェースのMSWin32用の代替

http://okilab.jp/document/japanate/perldoc/html/Term-Getch-0.20/Term/Getch.htm

#!/usr/bin/perl
use Term::Getch;
print "are you Hungry? (y/n)\n";
my $char;
1 while ! ( $char = getch );
print "you typed '$char'\n";

例４:文字入力をn秒待つ

#!/usr/bin/perl
use Term::ReadKey;
print "please press key within 3 seconds.\n";
ReadMode "cbreak";
my $char = ReadKey 3;
ReadMode "restore";
print "you typed '$char'\n";

ReadKey関数に正の数字を渡すとその秒数だけ待つ。この例だけはWindowsでうまく動かせなかった。