Perl Tk pack布局示例

最新推荐文章于 2025-01-29 20:37:29 发布

scan724

最新推荐文章于 2025-01-29 20:37:29 发布

阅读量1.6k

点赞数

CC 4.0 BY-SA版权

分类专栏： Perl Tk模块

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/42882769

Perl Tk模块专栏收录该内容

43 篇文章 ¥39.90 ¥99.00

订阅专栏

这篇博客展示了如何使用Perl的Tk模块创建GUI界面，包括多个按钮和文本区域。点击按钮会触发数据库查询，从Oracle数据库获取CPU信息，并将结果显示在文本区域内。同时，还有一个清除按钮用于清空文本区域的内容。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

use Tk;
use strict;  
use DBI; 
# Main Window
my $mw = new MainWindow;
my $but1 = $mw -> Button(-text => "view cpu",-width=>300,
-command =>\&push_button);
$but1 -> pack();

my $but2 = $mw -> Button(-text => "view memory",-width=>300);

$but2 -> pack();

my $but3 = $mw -> Button(-text => "view disk",-width=>300);

$but3 -> pack();

my $but3 = $mw -> Button(-text => "view Event",-width=>300);

$but3 -> pack();


my $but4 = $mw -> Button(-text => "cleart",-width=>300,-command =>\&clear_button);

$but4 -> pack();
#Text Area
my $txt = $mw -> Text(-width=>300, -hei

了解本专栏