2015年02月_scan724

原创全关联优化

explain plan for select count(*) from (SELECT 20141001 AS data_date ,NVL(T1.ACCT_NO, T2.ACCT_NO) AS acct_no ,NVL(T1.ACCT_ORD, T2.ACCT_ORD) AS acct_ord

2015-02-28 12:41:12 951

原创第七章正则模式

模式分组:在数学中,圆括号() 用来分组。因此,圆括号也是元字符模式/fred+/ 会匹配像fredddddd这样的字符窜/(fred)+/ 会匹配像fredfredfred这种字符窜[root@jhoa 2015]# cat a8.pl $_="abba";if (/(.)\1/){ ##匹配bb print "It matched same character next

2015-02-27 14:28:42 474

原创 Rac sequence

create sequence seq1 minvalue 1 maxvalue 99999999999999999999 start with 1 increment by 1 cache 1000; select seq1.nextval from dual; SQL> select * from user_sequences;SEQUENCE_NAME

2015-02-27 10:41:13 503

原创监控ping

监控pinguse HTTP::Date qw(time2iso str2time time2iso time2isoz);use Net::Ping; my @array=( "www.czcb.com" ); while (1==1){ my $CurrTime = time2iso(time()); foreach $host (@

2015-02-27 08:50:47 543

原创第六章 HASH

hash数组的键必须是唯一的字符窜,键值必须唯一,但是对应的值可以重复HASH数组数组元素没有顺序访问HASH数组元素 $hash{$key}each 函数:[root@jhoa 2015]# cat a6.pl %hash =(a=>1,b=>2,c=>3);while ( ($key,$value) = each %hash) {print "$key --$valu

2015-02-27 08:33:17 480

原创 Rac gc

有RAC就有gc wait，这是RAC的工作方式这一系列问题的解决依靠内存融合技术（cache fusion）cache fusion通过高速的private interconnect，在实例间进行数据块传递这是RAC最核心的工作机制，他把所有实例的SGA虚拟成一个大的SGA区每当不同的实例请求相同的数据块，这个数据块就需要在实例间进行传递

2015-02-26 19:32:12 764

原创 Perl 函数返回值的问题

[root@jhoa 2015]# cat ping_dns.pl use HTTP::Date qw(time2iso str2time time2iso time2isoz);use Net::Ping; my @array=( "mbank.app.cz" ); while (1==1){ my $CurrTime = time2iso(time())

2015-02-26 12:10:59 2018

原创第四章子程序和返回值

[root@jhoa 2015]# cat 1.pl sub marine {$n = $n + 1;print "\$n is $n\n";}marine;marine;marine;marine;marine;marine;[root@jhoa 2015]# perl 1.pl $n is 1$n is 2$n is 3$n is 4$n is 5$n is

2015-02-26 10:25:33 930

原创第三章

数组元素是以连续的整数来编号,从0开始,之后的每一个元素依次加1[root@june3 perl]# cat a2.pl @rocks=qw/a b c d e f g/;print "\$#rocks is $#rocks\n";print "$rocks[$#rocks]\n";[root@june3 perl]# perl a2.pl $#rocks is 6g$#roc

2015-02-25 21:51:55 390 1

原创第二章

##读取键盘收入$line = ;if ( $line eq "\n"){print "1------null\n";}else {print "2----$line\n";}

2015-02-25 16:15:26 510

原创第一章

while (<>) {chomp;print join ("\t",(split /:/)[0,2,1,5]),"\n";}[root@june3 perl]# cat a.txt root:x:0:0:root:/root:/bin/bashbin:x:1:1:bin:/bin:/sbin/nologindaemon:x:2:2:daemon:/sbin:/sbin/nol

2015-02-24 12:59:34 472

原创 Perl 自增问题

[root@june3 ~]# cat 2.shfor((i=1;i<=10;i++))doecho $idoneecho "last \$i is $i\n";[root@june3 ~]# sh ./2.sh12345678910last $i is 11\n$i最后的值是11--------------------------------------

2015-02-17 13:19:07 1505

原创 Perl 利用hash 数组累加

[root@june3 ~]# cat a2.pl %log;foreach (1,1,1,2,2,2,2,2,2,3,3,3,3,3,3,4,5,6) {print "\$log{$_} is $log{$_} \n";$log{$_}++;};while(my($ip, $times) = each %log) { print "$ip $times\n";

2015-02-17 08:52:34 2304

原创 Perl 懒惰匹配

[grid@devrac1 ~]$ cat sum.pl if ( $#ARGV print "please input your file!\n"; exit(-1); } $logfile= $ARGV[0]; my %log;open (LOG ,"while () {chomp;if ($_ =~ /^\[\

2015-02-16 10:46:25 855

原创 Perl 正则详述

模式匹配，在字符串中寻找特定序列的字符指定模式：由斜线包含，/def/即模式def。匹配操作符 =~、!~模式匹配的3种类型：m//模式匹配，s///匹配并替换（类似linux的sed命令），tr///逐一替换，翻译+: 一个或多个相同的前导字符(模式). 如:/de+f/ 匹配的是def,deef,deeeef等。如/d

2015-02-16 10:44:44 521

原创 perl 统计IP

[root@june3 ~]# grep '[0-9]\{1,3\}\.[0-9]\{1,3\}\.[0-9]\{1,3\}\.[0-9]\{1,3\}' log.txt | awk -F ':' '{print $1}'| awk '{a[$1]=a[$1]+1} END{for (i in a) print i,a[i]}' 1.1.1.1 42.2.2.2 610.1.1.1 3

2015-02-15 21:40:54 590

原创累加IP地址

[root@june3 ~]# cat log.txt 10.1.1.1:aa10.1.1.1:aa10.1.1.1:aa1.1.1.1:bb1.1.1.1:bb1.1.1.1:bb1.1.1.1:bb2.2.2.2:cc2.2.2.2:cc2.2.2.2:cc2.2.2.2:cc2.2.2.2:cc2.2.2.2:cc22334455223344552233445

2015-02-15 19:46:28 799

原创 11g Rac 添加日志组

SQL> select GROUP# , THREAD# , MEMBERS ,status from v$log; GROUP# THREAD# MEMBERS STATUS---------- ---------- ---------- ---------------- 1 2 1 CURRENT 2 2 1 INACT

2015-02-13 09:27:33 641

原创搜集直方图repeat和skewonly

SQL> set linesize 200SQL> select a.column_name, b.num_rows, a.num_distinct Cardinality, round(a.num_distinct / b.num_rows * 100, 2) selectiv

2015-02-12 09:43:59 937

原创优化db file parallel read

SELECT TO_CHAR(A.DATA_DT, 'YYYY-MM-DD') AS DATA_DT, A.MAGR_NO, A.MAGR_NAME, A.ORG_ID, A.ORG_NAME, sum(A.ACCT_BAL / 10000) as acct_bal, sum(A.ACCT_AVG) as ACCT_AVG, sum(A.SUM_BAL) as SUM_BAL, s

2015-02-10 18:36:50 1341

原创 IO 相关指标

vmstat: Swap si: Amount of memory swapped in from disk (/s). so: Amount of memory swapped to disk (/s). si: 每秒从交换区写到内存的大小so: 每秒写入交换区的内存大小iostat: tps Indicate the numbe

2015-02-09 20:52:02 442

原创 Linux unlimit

[root@jhoa ~]# ulimit -acore file size (blocks, -c) 0data seg size (kbytes, -d) unlimitedscheduling priority (-e) 0file size (blocks, -f) unlimitedpe

2015-02-07 09:56:09 1726

原创 exit 和 return

exit [n] Cause the shell to exit with a status of n. If n is omitted, the exit status is that of the last command executed. A trap on EXIT is executed before the shell ter-minates.设

2015-02-05 21:45:50 606

原创 unpack

perl unpack()函数例子，unpack()函数实例代码 - 解压缩的二进制字符串STRING 使用模板TEMPLATE 中指定的格式字符串。语法unpack TEMPLATE, STRING定义和用法解压缩的二进制字符串STRING 使用模板TEMPLATE 中指定的格式字符串。基本上包反转操作，返回到所提供的格式，所述填充值的列表。您也可以任何格式的字段的前缀％表示你想

2015-02-05 17:09:17 698

原创 kill 某个进程

#!/bin/bashif [ "$#" -ne 1 ];thenecho "please input your process"elseecho -n "Do you need to kill these process(y|n):";echops -ef | grep -v grep | grep $1read ANScase $ANS iny|Y)kill -9 `ps

2015-02-05 10:22:08 524

原创 10053 诊断事件

SQL> select count(distinct(msgid)),count(*) from messagein ;COUNT(DISTINCT(MSGID)) COUNT(*)---------------------- ---------- 978619 978619说明msgid列时唯一的搜集直方图信息:SQL> BEGIN DBMS_STATS

2015-02-05 09:02:12 760

原创 11g 搜集直方图导致不走索引

SELECT messagein0_.proccnt AS col_0_0_ FROM mbfe.messagein messagein0_ WHERE messagein0_.msgID='ID:414d5120514d453333313020202020204c224a3c200c49cb';1条记录SQL_ID c1pvjs5wx132x, CHILD NUMBER 0----

2015-02-04 19:33:51 673

原创 perl do

do BLOCK Not really a function. Returns the value of the last command in the sequence of commands indicated by BLOCK. When modified by the "while" or "until" loop m

2015-02-04 15:36:51 652

原创 Perl eval函数

eval EXPReval 表达式 eval BLOCKeval 代码块 eval In the first form, the return value of EXPR is parsed and exe- cuted as if it were a little Perl program. The value of th

2015-02-04 14:26:05 1021

原创 perl 代码《2》

#!/usr/bin/perluse 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 -fi

2015-02-03 18:44:14 719

原创 parent 父窗体

if ($name1 == ""){$answer => $frm_name1->messageBox(-title => 'Please Reply', -message => '请输入主机名?', -type => 'YesNo', -icon => 'question', -default => 'yes');undef $name1; }此时的父窗体

2015-02-02 19:34:13 551

原创弹出消息框

$name1 = $ent1 -> get(); $name2 = $ent2 -> get(); $name3 = $ent3 -> get();if ($name1 == ""){ $answer => $mw->messageBox(-title => 'Please Reply', -message => '请输入主机名?', -type => 'YesNo', -icon =

2015-02-02 19:29:43 739

原创 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 = 'dwh1'; my $dbUser = 'test'; my $dbUserPass

2015-02-02 18:40:33 845

原创框体 Toplevel 主窗体

Frame :框体是一个简单的部件,其作用是作为一个复杂窗口布局的容器,框体的唯一特性是它的背景色和3-D边界Frame can be created just like any other widget my$frm = $mw -> Frame();在框体上放置其他的部件,你可以使用框体部件变量作为它的parent通常parent 是'$mw',或者是主窗口。但是我们希

2015-02-02 18:39:44 1251

原创文本框

文本框是显示一行或者多行的文本,允许编辑文本和entry部件很像,更像是一个大号版本的entry#!/usr/local/bin/perluse Tk;my $mw = new MainWindow; # Main Windowmy $frm_name = $mw -> Frame() -> pack();my $lab = $frm_name -> Label(-text=>"Nam

2015-02-02 18:38:51 596

原创滚动条

同时创建一个部件和滚动条一个滚动条是显示2个箭头,在滚动条的2侧,中间部分是滑动块它提供了相关窗口的信息,来显示一些排序的文档。滑动块的位置和尺寸表明文档可见的部分#!/usr/bin/perl -w use Tk; my $mw = new MainWindow; $f = $mw->Frame( )->pack(-side => 'top', -expand => 1

2015-02-02 18:38:20 518

原创代码版本《1》

#!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_

2015-02-01 21:19:21 484

原创 Perl 列表框

use Tk; my $mw = new MainWindow;$lb = $mw->Listbox(-selectmode => "single")->pack( ); $lb->insert('end', qw/red yellow green blue grey/);##绑定到左键$lb->bind('', sub { $lb->configure(-background => $

2015-02-01 20:38:57 936

原创 Perl 子程序变量外部使用--又称为闭包

my $var = "aaaaaaaaa";print "1---\$var is $var\n";&fun1;&fun2;#子程序用的变量会被销毁print "3---\$var2 is $var2\n";print "4----\$var2 is $$var3\n";sub fun1{ print "2----\$var is $var\n"};##外部变量在子程

2015-02-01 15:03:43 1041

原创标签和单行文本

标签和按钮类似,但是标签不做任何动作,只是提示,它不是一个交互的部件,你点击它,它不会有任何操作创建标签:创建标签的语法：$label = $parent->Label( [ option => value . . . ] )->pack( );Label OptionsThe following is a comprehensive list of options for Labe

2015-02-01 13:42:25 600

空空如也

空空如也