Archive for 5月 13th, 2013

  1. Hello, Perl/Tk World!

    Posted on 5月 13th, 2013 by cx20

    Perl/Tk

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

    ソースコード

    hello.pl
    raw download
    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!                     |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
+------------------------------------------+