在Perl中,可以使用Tk模塊來進行圖形界面開發(fā)。Tk是一個跨平臺的GUI工具包,可以用來創(chuàng)建各種GUI應(yīng)用程序。下面是一個簡單的示例代碼,演示如何使用Tk模塊創(chuàng)建一個簡單的窗口:
use Tk;
# 創(chuàng)建主窗口
my $mw = MainWindow->new;
$mw->title("Hello, World!");
# 創(chuàng)建一個標簽
my $label = $mw->Label(-text => "Hello, Perl Tk!")->pack;
# 創(chuàng)建一個按鈕
$mw->Button(
-text => 'Exit',
-command => sub { exit },
)->pack;
# 開啟Tk事件循環(huán)
MainLoop;
運行這段代碼,將會彈出一個簡單的窗口,包含一個標簽和一個按鈕。點擊按鈕將會退出程序。你可以根據(jù)自己的需求,使用Tk模塊來創(chuàng)建更復(fù)雜的GUI應(yīng)用程序。