使用Perl/Tk模块建立可视化图形GUI界面1

本文参考IBM developerWorks Perl/Tk学习

1. 查看系统perl version:

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

   650) this.width=650;" src="http://img.voidcn.com/vcimg/static/loading.png" title="1.jpg" alt="wKiom1OVvcPhrb9gAAI7pjAk1RY905.jpg" data-src="http://s3.51cto.com/wyfs02/M02/2D/4A/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;

650) this.width=650;" src="http://img.voidcn.com/vcimg/static/loading.png" title="2.JPG" alt="wKioL1OVwjGgechiAAAq_Oo5vag354.jpg" data-src="http://s3.51cto.com/wyfs02/M01/2D/4B/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：