【PERL笔记1】perl Tk 简单部件的应用

#!usr/bin/perl -w     #开启告警

use strict;                #详细告警

use Tk;                    #使用Tk模块

my $main=MainWindow->new;     #初始化窗口

$main->geometry("200x100");       #显示的窗口几何大小

$main->title("Test1");                    #显示标题

$main->Label(-text=>'Who are you')->pack(-ipadx=>10,-ipady=>10);        #一个Label标签的text属性，在文本框和入口框之前，标签框非常有用。

$main->Button(-text=>'Quit',-command=>\&quit)->pack();