perl tk笔记：hello world

hello world!

#!/usr/bin/perl
use strict;
use warnings;
use Tk;

my $top = MainWindow->new();
$top->title("Hello World");
my $button = $top->Button(
 -text=> 'Done',
 -command => sub{exit 0}
 )->pack();

MainLoop;

Tk都有一个MainWindow，最后使用MainLoop来运行窗口

要新建一个widget，都是使用$top->Widget这样的方式，注意第一个字母大写，
如果不是大写表明是属性

关于pack和Tk的管理
任何一个widget都可以使用pack()添加都mainwindow里面，除此之外Tk还提供有 grid, place,form来进行几何管理
一旦使用了pack来提交widget，就不能再直接使用grid等其他方式，此时应该放在frame里面或其他

关于exit
一般使用exit作为退出时的回调函数
但Tk也自己定义了一个函数叫destory，可以使用$top->destory来调用，结果删除MainWindow并返回命令行，因此可以做一些善后工作。