Question

如何使用Perl语言在windows下编写图形化窗口程序啊，求大师，最好给个例子瞅瞅

Answer 1

perl 的图形有两种玩法, Tk 和 Tkx. Tk 是纯 Perl 的, 但能用的 widget (即那些 button, menu, scrollbar... )比较少; Tkx 则需要你先装有 Tcl/Tk , 但能用的 widget 比较多. 一个最简单的例子就是

use Tk; # 导入 tk 模组
use strict;

my $mw = MainWindow->new; # 创建窗口
my $labelObj = $mw->Label(-text => 'Hello, world!'); # 创建一个 label 物件

$labelObj ->pack; # pack() 是将物件程现的方法, 你再翻翻书, 还有 grid() 和 place() 的风格

$mw->Button(
-text => 'Quit',
-command => sub { exit },
)->pack;
MainLoop; # 每个 tk 程序都要等到呼叫 MainLoop 才会出现.

最後, 你还得知道一个(差不多)每个物件都会的方法, 叫 configure, 你会以此对物件进行重新定义, 或附加设定

Answer 2

perl在win下图形编程，用Wx比较方便。首先安装WxWidgets

http://www.wxwidgets.org/

然后安装wxPerl，编程很简单

use Wx;
package MyApp;

use base qw(Wx::App);   # Inherit from Wx::App

sub OnInit
{
    my $this = shift;
    my $frame = MyFrame->new(   undef,         # Parent window
                                -1,            # Window id
                                '我的Windows程序', # Title
                                [1,1],         # position X, Y
                                [800, 600]     # size X, Y
                               );
    $this->SetTopWindow($frame);    # Define the toplevel window
    $frame->Show(1);                # Show the frame
}

###########################################################
#
# The main program
#
package main;

my $wxobj = MyApp->new(); # New ButtonApp application
$wxobj->MainLoop;

需要什么控件可以查Wx手册。

追问

你这个例子怎么让运行啊

追答

安装了WxWidgets，再安装wxPerl后，就可以运行了。