本文参考IBM developerWorks Perl/Tk学习

  1. 查看系统perl version:

    windows XP系统下：开始-运行-cmd-输入perl -version

    wKiom1OVvcPhrb9gAAI7pjAk1RY905.jpg

  2. 查看是否安装Perl/Tk模块

    命令行输入：perl -e "use Tk"

    若不存在，返回错误信息

    安装Perl/Tk模块，命令行键入：ppm install Tk

    安装完成后，可利用命令perl -e "use Tk"进行验证


3.  建立一个hello world GUI界面

        #!/usr/bin/perl -w
        # Display Hello World program
        
        use Tk;
        use strict;
        
        my $mw = MainWindow->new;
        $mw->geometry("200x100");
        $mw->title("Hello World!!!");
        
        $mw->Label(-text => 'Hello World')->pack();
        
        $mw->Button(-text => "Close", -command =>sub{exit})->pack();
        
        MainLoop;

wKioL1OVwjGgechiAAAq_Oo5vag354.jpg

程序解释：

use Tk;   指示perl脚本使用Tk模块


my $mw = MainWindow->new;   使用MainWindow创建程序主窗口，并分配给变量$mw


$mw->geometry("200x100");

$mw->title("Hello World!!!");

将主窗口几何大小设置为200x100,窗口标题为Hello World!!!


$mw->Label(-text => 'Hello World')->pack();

在主窗口内创建一个标签，并使用标题 Hello World。标签创建的末尾是一个附加函数 pack，它是一个几何管理器。该管理器用于小部件上，用来计算在小部件的父部件上分配的空间；同时还显示该小部件


$mw->Button(-text => "Close", -command =>sub{exit})->pack();

该代码行在主窗口中创建一个“Close”按钮。当通过鼠标点击激活退出 Perl 脚本


MainLoop;

当调用 MainLoop 时，将执行在此之前读取的所有函数和数据，并显示 GUI：