zhaoyangjian724的专栏

原创 Tk::Table

NAME Tk::Table - Scrollable 2 dimensional table of Tk widgetsSYNOPSIS use Tk::Table; $table = $parent->Table(-rows => number, -columns => number,

原创 Perl Tk设置标签字体

#my $frm_menu = $mw -> Frame() ->pack(-side=>"top",-fill => 'x');#my $txt = $frm_menu -> Scrolled('Text',-width => 50,-scrollbars=>'e') -> pack ();

原创 Radiobutton 和 Checkbutton 按钮

Radiobutton 选项按钮:Choices 1 | 2 | 3选项按钮是一个从多个选择中选择一个输入,如果一个选项被选择后-command=>COMMAND 设置当点击时呼叫的程序:-variable => \$value 当按钮被选择后指定一个值给$variablevalue => VALUE 将按钮的结果给$value这个时候项目受到了很大的改变,布

原创 Tk 第一个正式小系统

原创 下拉菜单全全部代码

#!perl -wuse Tk;use DBI;use encoding 'euc_cn';###创建窗体my $mw = MainWindow->new(-title => "system monitor");##定义左边菜单框体$FRAME_L = $mw->Frame->pack(qw/-side left -fill both /);#定义下拉菜单框$WIDGET_

原创 TK 例子《1》

use Tk; use DBI; # Main Window##my $mw = new MainWindow;my $mw = MainWindow->new(-title => "system monitor");##'Widget' 可以试任何的部件支持滚动条 比如 Text,Listbox,etc##my $frm_menu = $mw -> Frame() ->pa

原创 -command 用的是函数的引用

use Tk;# Main Windowmy $mw = new MainWindow;my $label = $mw -> Label(-text=>"Hello World") -> pack();my $button = $mw -> Button(-text => "Quit",-command =>\&exitProgam)-> pack();$var = \&exitPr

原创 函数引用

my %sub_of = ( 1 => sub{ print "program 1" }, 2 => sub{ print "program 2" }, 3 => sub{ print "program 3" }, 4 => sub{ print "program 4" }, 5 => sub{ print "program

原创 按钮 单行文本 标签

一个部件在图形用户接口的一个对象,或者说是出现在屏幕上的对象的名字。如果你要显示一个按钮.这里有很多类型的部件。使用文本按钮,或者entry 按钮部件的变量必须唯一按钮:按钮可以配置去执行一些代码,当按下按钮后按钮通常会指向一个函数,当按下按钮时,就运行函数。text=>"TEXT" :TEXT will be the text displayed on the bu

原创 Canvas 图形

The command $widget -> create type options is used to make different structures A few examples are givenbelow For more information read the manualExample#!/usr/local/bin/perluse Tk;# Main Window

原创 滚动条和滑动块

Scrollbar : 滚动条Scale 滑动块滚动条是一个衍生的部件,用于联系滚动条的部件,如果你想要创建一个部件附上滚动条,你会无疑的明白这个特性的用处,它通常会降低代码的数量。创建一个部件和滚动杆，可以用滚动的方式。$widget = $parent->Scrolled('Widget', -scrollbars => 'string' [, options ]);

原创 滚动条

Scrollbar : 滚动条Scale 滑动块滚动条是一个衍生的部件,用于联系滚动条的部件,如果你想要创建一个部件附上滚动条,你会无疑的明白这个特性的用处,它通常会降低代码的数量。创建一个部件和滚动杆，可以用滚动的方式。$widget = $parent->Scrolled('Widget', -scrollbars => 'string' [, options ]);

原创 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

原创 利用hash 数组打印标题

##使用hash数组my %hash=("1","HOST", "2","FILESYSTEM", "3","TYPE", "4","SIZE#", "5","USED", "6","AVAIL", "7","USE", "8","MOUNTED", "9",

原创 pack 布局参数

#!/usr/bin/perl -wuse Tk;use Tk::BrowseEntry;use strict;## (-title => 'Font Viewer' ) 标题,窗口的标题my $mw = MainWindow->new(-title => 'xxoo');##框体布局在顶部my $f = $mw->Frame->pack(-side => 'top');my

原创 Perl Tk介绍

Perl/Tk 也被称为pTk 是一个模块和代码的集合,尝试结合TK8动态内存 I/O 和面向对象。它是一种解释脚本语言具有用户图形界面Perl是实录提取和报告语言:Perl是一个优化的处理文本文件的解释语言,从这个文本中提取信息。基于这些信息产生报告,用于系统管理任务的语言,Perl是为了实际容易使用 高效的 完整的 相

原创 log file parallel write 和 log buffer space p1 p2 p3

EVENT P1 P1RAW P2 P2RAW P3 P3RAW---------------------------------------------------------------- ---------- -------- ---------- -------- ---------- --------control file parallel wri

原创 log file sync p1 p2 p3

SQL> select * from v$event_name where name like 'log file sync%'; EVENT# EVENT_ID NAME PARAMETER1 PARAMETER2 PARAMETER3 WAIT_CLASS_ID WAIT_CLASS# WAIT_CLAS

原创 一个简单的Tk界面(可以录入和查询)

#!/usr/local/bin/perluse Tk;use dbi;#Global Variablesmy $age = 10;# Main Windowmy $mw = new MainWindow;#GUI Building Areause Encode qw/encode decode/;#Agemy $but1 = $mw -> Button(-text=>"

原创 函数调用子函数,注意子函数的位置

sub push_botton3{my $mw = new MainWindow; # Main Windowmy $frm_name = $mw -> Frame();my $lab1 = $frm_name -> Label(-text=>"Id Number",-width=>10);my $lab2 = $frm_name -> Label(-text=>"Room Number:

原创 Perl 采集磁盘信息

#!/usr/bin/perluse HTTP::Date qw(time2iso str2time time2iso time2isoz);use strict;use Sys::Hostname;use DBI;my $hostip='10.5.129.243';my $dbName = 'orcl'; my $dbUser = 'test'; my $dbUserPass

原创 Perl 使用Frame(放置其他控件的地方)

#!/usr/local/bin/perluse Tk;use dbi;#Global Variablesmy $age = 10;# Main Window#GUI Building Areause Encode qw/encode decode/; my $mw = new MainWindow; # Main Windowmy $frm_name = $mw -> Fra

原创 Perl 使用Label 标签

#!/usr/local/bin/perluse Tk;use dbi;# Main Windowmy $mw = new MainWindow;#GUI Building Areamy $lab = $mw -> Label(-text=>"BBBBBBBBBBBB");##插入一行空白标签my $lab1 = $mw -> Label();my $lab2 = $m

原创 Tk 乱码问题

use Encode qw/encode decode/;

原创 Frame放置其他控件的地方

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

原创 Net::Ping 模块详解

NAME Net::Ping - check a remote host for reachability检查远程主机是否可达SYNOPSIS简介 use Net::Ping; $p = Net::Ping->new(); print "$host is alive.\n" if $p->ping($host);

原创 Perl Net::ping

use Net::Ping;while (1==1){ $host="202.101.172.35"; $p = Net::Ping->new("icmp"); print "$host is lost.\n" unless $p->ping($host,2); } $p->close();$proto sp

原创 Dialogs 对话框

Dialogs 对话框对话框可以被称为程序里的一个元素,从主窗口分开,这是一个非常普通的定义,Tk提供了很多诊断对话框messageBox 消息框这个程序创建和显示一个应用指定的消息窗口,一个图标和一些按钮,每个按钮在消息框里事被定义一个唯一的符号名字。消息框弹出后,消息框等待用户来选择按其中的按钮一些选项:­default=>name 窗口默认的符号的名字('o

原创 grid 属性

标准 tk 组件类型： Button 按钮 Radiobutton 收音机按钮 Checkbutton 检查按钮 Listbox 列表框 Listbox 列表框 Scrollbar 滚动杆 Entry 条目 Text

原创 Perl Tk grid 布局

#!/usr/local/bin/perluse Tk;use dbi;#Global Variablesmy $age = 10;# Main Windowmy $mw = new MainWindow;#GUI Building Area#Agemy $but1 = $mw -> Button(-text=>"view cpu", -command =>\&push_b

原创 Perl Tk pack布局示例

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

原创 Perl Tk grid布局管理器<1>

#!/usr/local/bin/perluse Tk;#Global Variablesmy $age = 10;# Main Windowmy $mw = new MainWindow;#GUI Building Areamy $frm_name = $mw -> Frame();my $lab = $frm_name -> Label(-text=>"Name:");my

原创 Perl DBI模块

一: select 某些字段:[oracle@jhoa dbi]$ cat 1.pl use DBI; my $dbName = 'orcl'; my $dbUser = 'test'; my $dbUserPass = 'test'; my $dbh = DBI->connect("dbi:Oracle:$dbName", $dbUser, $dbUserPass) or d

原创 输入文本框模型

#!/usr/local/bin/perluse Tk;my $mw = new MainWindow; # Main Windowmy $frm_name = $mw -> Frame();my $lab = $frm_name -> Label(-text=>"Name:");my $ent = $frm_name -> Entry(); ###输入文本框my $but = $

原创 利用回调函数响应事件

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

原创 Perl 回调函数例子

$label->bind("" => [\&move, Ev('k')]);sub move { my $key = shift; if ($key eq 'k') { move_left(); } elsif ($key eq 'l') { move_right(); }}

原创 Perl 回调函数和闭包

在计算机程序设计中，回调函数，或简称回调（Callback），是指通过函数参数传递到其它代码的，某一块可执行代码的引用。这一设计允许了底层代码调用在高层定义的子程序。就是向函数的参数为 一个函数的引用[oracle@jhoa 3]$ cat a1.pl $cd = sub {print "hello world"};print "\$cd id $cd\n";sub test {

原创 Perl use和require区别

use 发生在编译期间,代码没有运行use是在当前默认的@INC里面去寻找,一旦模块不在@INC中的话,use是不可以引入的,但是require是可以指定路径require 是编译时引入[oracle@dwh1 lib]$ pwd/oracle/dev/lib[oracle@dwh1 lib]$ cat Mypack.pm use strict;use warnings;

原创 2个半小时 学PERL

http://qntm.org/files/perl/perl.html  2个半小时 学PERLPerl是一个动态的，动态类型，高级，脚本（解释）语言与PHP和Python语言很像,Perl的语法内嵌了很多古老的shell脚本工具,这是对它的混乱符号的过度使用而著名其中大部分是不能google到的,Perl的脚本语言遗产使它非常适合编写胶水代码:把

原创 Linux CPU 上下文切换

systemin 每秒CPU的中断次数，包括时间中断cs 每秒上下文切换次数，例如我们调用系统函数，就要进行上下文切换，线程的切换，也要进程上下文切换，这个值要越小越好，太大了，要考虑调低线程或者进程的数目,例如在apache和nginx这种web服务器中，我们一般做性能测试时会进行几千并发甚至几万并发的测试，选择web服务器的进程可以由进程或者线程的峰值一直下调，压测