使用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：