在Perl中进行GUI编程通常使用Tk模块。Tk是一个用于创建图形用户界面的工具包,可以在Perl中使用。
以下是一个简单的示例代码,演示了如何在Perl中创建一个简单的GUI窗口:
use Tk;
my $mw = MainWindow->new;
$mw->title("Hello, GUI!");
my $label = $mw->Label(-text => "Hello, Perl GUI!")->pack;
my $button = $mw->Button(-text => "Click me", -command => \&button_click)->pack;
sub button_click {
$label->configure(-text => "Button clicked!");
}
MainLoop;
以上代码创建了一个简单的GUI窗口,包括一个标签和一个按钮。当按钮被点击时,标签的内容将被改变。
需要注意的是,Tk模块需要在系统中安装Tk工具包,可以通过CPAN来安装Tk模块。另外,Perl中还有其他GUI工具包可供选择,如WxPerl和Gtk2-Perl等。