阅读量:0
在Perl中,可以使用Tk模块来进行图形界面开发。Tk是一个跨平台的GUI工具包,可以用来创建各种GUI应用程序。下面是一个简单的示例代码,演示如何使用Tk模块创建一个简单的窗口:
use Tk; # 创建主窗口 my $mw = MainWindow->new; $mw->title("Hello, World!"); # 创建一个标签 my $label = $mw->Label(-text => "Hello, Perl Tk!")->pack; # 创建一个按钮 $mw->Button( -text => 'Exit', -command => sub { exit }, )->pack; # 开启Tk事件循环 MainLoop;
运行这段代码,将会弹出一个简单的窗口,包含一个标签和一个按钮。点击按钮将会退出程序。你可以根据自己的需求,使用Tk模块来创建更复杂的GUI应用程序。