Hello, Perl/Tk World!

Posted on 5月 13th, 2013 by cx20

Perl/Tk

Perl/Tk は Tcl スクリプト用の GUI ツールキット「Tk」を Perl から呼出し可能にしたライブラリである。
以下は Perl による Perl/Tk の呼出し例となっている。

ソースコード

use Tk;
 
$window = MainWindow->new();
$window->title( 'Hello, World!' );
$window->geometry( '640x480' );
 
$label = $window->Label( -text => "Hello, Perl/Tk World!" );
$label->pack( -side => 'top', -anchor => 'w' );
 
MainLoop();

実行方法

C:¥> pl hello.pl

実行結果

+------------------------------------------+
|Hello, World!                    [_][~][X]|
+------------------------------------------+
|Hello, Perl/Tk World!                     |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
+------------------------------------------+

Tags:

Categories: Perl, Tcl/Tk

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

WP-SpamFree by Pole Position Marketing