Perl Pack写的一个数据报表程序

use Tk; use DBI; # Main Window # #my $mw = new MainWindow; my $mw = MainWindow->new(-title => 'system monitor'); # my $frm1 = $mw -> Frame() ->pack(-side=>"top",-fill => 'x'); my $but1 =$frm1 -> Bu

>>阅读原文<<