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

最新推荐文章于 2025-09-05 12:31:40 发布

马豆豆

最新推荐文章于 2025-09-05 12:31:40 发布

阅读量605

点赞数

CC 4.0 BY-SA版权

分类专栏： perl 文章标签： perl

本文链接：https://blog.youkuaiyun.com/lixueping861111/article/details/84094347

perl 专栏收录该内容

10 篇文章

订阅专栏

本文介绍了使用Perl语言结合Tk库实现按钮交互效果的方法，包括按钮的文本、颜色、字体等属性设置，以及按钮点击事件的响应。

#!/usr/bin/perl -w
use Tk;

$Tk::strictMotif = 1;

$main = MainWindow->new();

$button1 = $main->Button(-text => "Exit",
-command => \&exit_button,
-foreground => "orangered" );

$button1->pack();
$button1->configure(-background => "white" );
$button2 = $main->Button(-text => "Push Me",
-command => \&change_color,
-foreground => "black",
-background => "steelblue");

$button2->pack();

MainLoop();

sub exit_button {
print "You pushed the button!\n";
exit;
}

sub change_color {
$button1->configure(-background => "red",
-foreground => "white");
$button2->configure(-background => "maroon",
-foreground => "white",
-font => "-*-times-bold-r-normal-20-140-*");
}