perl 代码《2》

最新推荐文章于 2024-06-26 16:49:46 发布

scan724

最新推荐文章于 2024-06-26 16:49:46 发布

阅读量766

点赞数

CC 4.0 BY-SA版权

分类专栏： Perl Tk模块

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/43453315

Perl Tk模块专栏收录该内容

43 篇文章 ¥39.90 ¥99.00

订阅专栏

该博客展示了如何使用Perl的Tk模块创建一个具备菜单功能的系统监控平台。通过创建窗体、下拉菜单、标签、按钮等组件，实现了包括系统信息查询、中间件信息查询、数据库信息查询等功能，并且结合了数据库查询操作。博客还包含多个子函数，用于处理不同查询功能的实现，例如内存和磁盘信息的展示。

#!/usr/bin/perl
use Tk;
use DBI;
use encoding 'euc_cn';
###创建窗体
my $mw = MainWindow->new(-title => "system monitor",-bg=>"blue");

##定义左边菜单框体
$FRAME_L  = $mw->Frame(-bg=>white)->pack(qw/-side left -fill both /);

#定义下拉菜单框
$WIDGET_F = $FRAME_L->Labelframe(-bg=>white)->pack(qw/-side top -fill both -expand 1 /);

##定义图片
#my $cns = $mw -> Canvas(-relief=>"sunken", -background=>"blue");  


#$cns -> create('polygon',5,100,50,5,150,5,200,100,5,100,  
#-joinstyle=>"bevel", -fill=>"red", -outline=>"white", -width=>5);  
#$cns -> create('oval',200,100,300,200, -fill=>"green");  
#
#$cns -> create('oval',200,300,300,100, -fill=>"white", -width=>100); 
#$cns -> create('oval',1000,300,300,100, -fill=&g

了解本专栏