Perl 一个简单的 GUI 程序，有退出按钮

#!/usr/bin/perl -w use Tk; $Tk::strictMotif = 1; $main = MainWindow->new(); $button1 = $main->Button(-text => "Exit", -command => \&exit_button, -foreground => "orangered" ); $button1->pack(); $button

>>阅读原文<<