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

本文参考IBM developerWorks Perl/Tk学习

1. 查看系统perl version:

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

   

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;

程序解释：

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：