Perl/Tk の基本的なこと

X を利用したアプリケーションを作る方法は色々あるが、Tk を用いると簡単に出来る。

Tk - Wikipedia
https://ja.wikipedia.org/wiki/Tk_(ツールキット)

Tk で作るWindowをどの言語で書くかによって変わってくるが、Tcl/Tkが最も有名かもしれない。

Tcl/Tk - Wikipedia
https://ja.wikipedia.org/wiki/Tcl/Tk

wish (Windowing Shell) を用いてスクリプトを組むことでグラフィカルなアプリを作れる。
Tclはこのwishで使われるプログラミング言語であり、簡単に使える。かなり多くのシステムに導入されていることもあり、特に何かをインストールせずとも使うことが出来る。
このTclの部分をperlに置き換えたものがPerl/Tkである。

Perl/Tk

インストール

Perl/Tk は Tcl/Tk と違いデフォルトでインストールされていないことが多い。
ubuntuだと perl-tk をインストールすると使えるようになる。
# apt install perl-tk

取り敢えず作ってみる

次のようなサンプルファイル sample.pl を作る。

sample.pl

use utf8;
use Tk;

# トップウィンドウを作る
$top = MainWindow->new();

# ウィンドウ内に文字(ラベル)を表示する
$label = $top->Label(-text => "ここに文字を書く")->pack();

# ウィンドウを生成する
MainLoop();

ちなみに文字コードは UTF-8 になってる。

$ file sample.pl 
sample.pl: UTF-8 Unicode text

次のコマンドで実行する。

$ perl sample.pl

実行できる形の sample.pl

Shebang を書いて実行ファイルとしても実行できる。
たぶん次のようなファイルになる。
一行目のShebangは環境によって異なるが多くのシステムは多分これで通る。

#!/usr/bin/perl
use utf8;
use Tk;

# トップウィンドウを作る
$top = MainWindow->new();

# ウィンドウ内に文字(ラベル)を表示する
$label = $top->Label(-text => "ここに文字を書く")->pack();

# ウィンドウを生成する
MainLoop();

簡単な説明

use utf8;
これがないと日本語の文字化けが起こる。
use Tk;
GUIアプリを作るために必要なモジュール。
$top = MainWindow->new();
ウィンドウを作る。
$label = $top->Label(-text => "ここに文字を書く")->pack();
文字「ここに文字を書く」を表示する。
MainLoop();
このコマンドでウィンドウが作られる。
これがないと何も表示されない。

Tk についてのWebサイト

Tcl/Tk 関連

Tcl/Tk
https://www.tcl.tk/
Tcl/Tkでプログラムを書く(1)
https://qiita.com/akinori-ito/items/92ca39617773a2f48e0b
Tcl/Tkでプログラムを書く(2)
https://qiita.com/akinori-ito/items/a6abe82f4c814272f06c
Tcl/Tkでプログラムを書く(3)
https://qiita.com/akinori-ito/items/919edfd6c52cf0b37247
Tcl/Tk によるGUI(1)
http://www.nurs.or.jp/~sug/soft/super/tk.htm
Tcl/Tk によるGUI(2)
http://www.nurs.or.jp/~sug/soft/super/tk2.htm
Tcl/Tk とは
http://www.not-enough.org/abe/manual/unix2-au99/tcltk1.html
Tcl/Tk GUI Programming
http://www.nct9.ne.jp/m_hiroi/tcl_tk.html

Perl/Tk関連

Perl/Tk を使った GUI プログラミング (前編)
http://www.nct9.ne.jp/m_hiroi/perl_tk/perltk_gui1.html
Perl/Tk を使った GUI プログラミング (後編)
http://www.nct9.ne.jp/m_hiroi/perl_tk/perltk_gui2.html
Perl/Tk - 杜甫々のwww入門
http://www.tohoho-web.com/perl/perltk.htm
高度なPerl/Tkウィジェットを使う
https://www.ibm.com/developerworks/jp/linux/library/l-ptkwidg/index.html