2014年11月_scan724

原创 Perl 标签语句

表达式为假的情况:逻辑值为假值为0字符串为空‘’列表为空undef[oracle@jhoa perl2]$ cat 3.pl @array=qw/1 2 3 4 5 6 7 8 9/;foreach $var (@array){print "$var\n";}print "循环外\n";print "$var\n";[oracle@jhoa perl2]$ perl

2014-11-27 11:06:57 1136

原创 AMQ9558

AMQ9558，初步估计是通道断开后，发送方发起新的连接请求，但通道接收方却在死等着原来的通道连接，于是发送方这边就报错了，初步估计是通道断开后，发送方发起新的连接请求，但通道接收方却在死等着原来的通道连接，于是发送方这边就报错了

2014-11-26 16:50:10 3227

原创 perl 运算符<2>

[oracle@jhoa perl2]$ cat 1.pl if ((5 > 3) || ( 1 > 2) ){print "xxxxxxxxx\n"};[oracle@jhoa perl2]$ perl 1.pl xxxxxxxxx[oracle@jhoa perl2]$ cat 1.pl if ((5 > 3) or ( 1 > 2) ){print "xxxxxxxxx\n"}

2014-11-26 15:31:13 642

原创 linux gdm 远程桌面访问

目前正在研究和测试KVM虚拟机，感觉使用virt-manager比较方便，但是这个工具需要在图形环境下使用，但是又不能老呆在机房中，还好linux提供了gdm可以通过xdmcp进行远程桌面访问，感觉不错，记录一下配置过程，同时把gdm也介绍一下。1、远程连接支持配置默认情况下，gdm不开放远程连接，因此要使用远程连接，需要首先配置一下，配置的文件为/etc/gdm/c

2014-11-26 11:06:56 1469

原创 perl 捕获变量

\s 简写擅长处理空白 ,它相当于[\f\t\n\r ] 换页制表换行回车空格\s+ 匹配一个以上的空白捕获变量:[oracle@jhoa perl]$ cat a13.pl $_ = "Hello there,neighbor";if (/(\S+) (\S+),(\S+)/) {print "words were $1\n";}[oracle@jhoa perl

2014-11-25 20:52:05 1238 1

原创 ORA-01591 锁被未决分布式事务处理

数据库10.10.17.2数据库10.10.17.310.10.17.2SQL> create database link DBL_JUNE connect to test identified by test using 'june';数据库链接已创建。SQL> update t100 set id=999 where id=3;已更新16行。SQL> updat

2014-11-23 19:52:09 4656

原创 10046解决PLSQL访问数据字典显示授权问题

SQL> create or replace procedure test_trc ISmsql varchar2(200);beginmsql := 'insert into t100 select * from dba_objects';execute immediate msql;commit;end; 2 3 4 5 6 7 8 /

2014-11-20 16:49:31 964

原创利用分析函数改写解析

SQL> SELECT acct_no, trans_amt, set_date, opp_acct_no, dc_flag, seqno, MAX(seqno) over(PARTITION BY acct_no, trans_amt, set_date, opp_acct_no, dc_

2014-11-19 10:01:43 787

原创分组函数解析

分组函数:select sal,deptno,sum(sal) over (partition by deptno) from emp; ---按部门求总和SQL> select sal,deptno,sum(sal) over (partition by deptno) from emp; SAL DEPTNO SUM(SAL)OVER(PARTITIONBYDEPTNO-

2014-11-18 21:59:31 479

原创 perl的引用<1>

变量的赋值:在内存里存放值引用: 存放的是其他变量的地址,地址会指向变量引用变量的名字: $ref

2014-11-15 21:12:22 487

原创 buffer_pool

buffer pool 有最多8个子latch保护SQL> set linesize 200SQL> select addr,LATCH#,LEVEL#,CHILD#,NAME from v$latch_children where name='buffer pool';ADDR LATCH# LEVEL# CHILD# NAME-------- ----------

2014-11-14 21:16:33 524

原创 shared_pool

在 9i之前，共享池内容结构是由一个 solitary shared pool latch 来保护的；从9i开始，最多可以有7个 child shared pool latches 用来保护共享池结构；9i中可以把共享池划分成过个子池，每个四个cpu可以划分出一个子池；并且 shared_pool_size 大于250M；子池可以由隐含参数：_kghdsidx_count 来调整；如果手动增加

2014-11-14 21:14:41 469

原创 buffer pool latch和cache buffers chains latch

buffer pool latch 是用来保护buffer pool的每个buffer pool有一个buffer pool latch保护SQL> select addr,LATCH#,LEVEL#,CHILD#,NAME from v$latch_children where name='buffer pool';ADDR LATCH# LEVEL# CHILD# NA

2014-11-14 20:13:42 493

原创一个cache buffers chains latch需要管理的块

SQL> SELECT x.ksppinm NAME, y.ksppstvl VALUE, x.ksppdesc describ FROM x$ksppi x, x$ksppcv y WHERE x.inst_id = USERENV('Instance') AND y.inst_id = USERENV('Instance') AND x.indx = y.indx AN

2014-11-14 19:03:37 455

原创 v$sqlarea和v$lock

v$sqlarea 保留了每条执行的SQLSQL> delete from t100 where object_id = :n;1 row deleted.SQL> select to_char(sysdate,'yyyy-mm-dd,hh24:mi:ss'),a.sql_text,to_char(a.LAST_ACTIVE_TIME,'yyyy-mm-dd,hh24:mi:ss')

2014-11-14 09:54:58 541

原创查看行锁持有者对应的SQL【2】

select c.sql_text, a.*, b.object_name, to_date(to_char(c.LAST_active_TIME, 'hh24:mi:ss'), 'hh24:mi:ss') active_time, to_date(to_char(sysdate - a.ctime / 24 / 60 / 60, 'HH24

2014-11-13 21:59:34 516

原创查看持有行锁的SQL

select c.sql_text, a.*, b.object_name, to_date(to_char(c.LAST_LOAD_TIME, 'hh24:mi:ss'), 'hh24:mi:ss') load_time, to_date(to_char(sysdate - a.ctime / 24 / 60 / 60, '

2014-11-13 20:22:43 737

原创子程序定义-3

递归调用:子程序可以互相调用,当调用该子程序本身时,即成了递归子程序。递归子程序有两个条件:1.除了不被子程序改变的变量外,所有的变量必须是局部的2.该子程序要含有停止调用本身的代码。递归程序编写: 计算阶乘: f(10)1.写出初始条件: f(1)=1;2.写出递推通式: f(n)=n*f(n-1) 类似数学归纳法的假设部分sub f{my $a=shift;

2014-11-13 16:09:31 817

原创子程序定义-2

[oracle@jhoa 16]$ cat 1.pl #!/usr/bin/perlprint "1.函数可放在任何地方.\n";while (1) {&readline;##输入等于q 就退出last if ($line eq "q\n");sub readline { $line = ; }}[oracle@jhoa 16]$ perl 1.pl 1.函数可

2014-11-13 16:08:59 558

原创子程序定义-1

子程序即一段分离的代码,它可以使减少重复代码且使程序易读。PERL中,子程序可以出现在程序的任何地方。但一般放在程序的开始或结尾。sub subroute{ statements:}Sub开始,子程序名同变量的命名规则,可与变量同名。最好不要与内部函数同名。如果与内部函数同名则用&subroutine区分,不用&是内部函数,&是定义的函数,带有原型说明的子程序定义sub

2014-11-13 16:08:24 1492

原创 MQ报 AMQ9259

ACTION:None.-------------------------------------------------------------------------------11/13/14 09:40:02 - Process(50593992.21) User(mqm) Program(amqrmppa) Host(midcup1)AMQ

2014-11-13 14:22:24 2974 1

原创绑定变量值长度不一致,mismatch问题

111

2014-11-12 22:14:19 942

原创 perl-printf 函数

printf函数可以格式化输出字符串用法：printf FILEHANDLE FORMAT, LISTprintf FORMAT, LIST例如：printf函数先格式化字符串再输出到指定文件或当前缺省文件中，如： printf OUTFILE (“You owe me %8.2f", $owing);此语句取出变量$owing的值并替换掉串中的%8.2f，%8.2f是域格式的例子，

2014-11-12 14:28:32 2173

原创 perl 运算符

11111[root@jhoa bin]# cat 2.pl $var="cd";if ($var eq "cd"){print "11111"};[root@jhoa bin]# perl 2.pl 11111[root@jhoa bin]# 字符窜相等用 eq数字相等用==my $command="cd /tmp";print "\$command is $comm

2014-11-12 11:13:41 521

原创强制让SQL走谓词推入

SELECT * FROM STORESUM WHERE (ORG_ID IN (SELECT EP_LOC.ORG_ID FROM EP_LOC, EP_USER_LOC WHERE EP_LOC.LOC_ID = EP_USER_LOC.LOC_ID AND EP

2014-11-11 18:08:32 1009

原创 perl-单词边界匹配

\b 在单词边界匹配: /\bdef/ 匹配def和defghi等以def 打头的单词,但不匹配abcdef ,/def\b/ 匹配def和abcdef 等以def结尾的单词但不匹配defghi /\bdef\b/ 只匹配字符窜def. 注意:/\bdef/可匹配$defghi，因为单词包括字母数字下划线,$不被看做是单词的部分\B 在单词内部匹配: /\Bdef/匹配a

2014-11-11 16:36:38 2073

原创 PGA概念

1. 什么是PGA？ Roger--001<[email protected]&get;20:36:21 PGA，即Program Global Area 的简称，是一块包含一个服务进程的数据和控制信息的内存区域。注意，PGA的内存结构是不需要Latch来进行保护的。Oracle 在实例启动时就开始进行分配，一个 Oracle 进程拥有一个 PGA 内存区。一个 PGA 也只能被拥有它的

2014-11-09 21:29:02 1214

原创 v$latch_children

SQL> set linesize 200SQL> select addr,LATCH#,LEVEL#,CHILD#,NAME,gets from v$latch_children where name='shared pool';ADDR LATCH# LEVEL# CHILD# NAME GETS-------- ---------- ------

2014-11-09 21:27:47 712

原创关闭数据库方式对sequence的影响

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

2014-11-07 21:18:46 462

原创 Perl 颜色

[oracle@jhoa ~]$ cat d1.pl my $red="\e[1;31m";print "$red xx\n";my $green="\e[1;32m";print "$green xx\n";my $yellow="\e[1;33m";print "$yellow xx\n";my $normal="\e[0m";print "$normal xx\n";

2014-11-07 10:20:09 1054

原创 Perl join 函数

[oracle@jhoa 14]$ cat a3.pl @array=qw/a b c d e f g/;$var = join("9",@array);print "\$var is $var\n";[oracle@jhoa 14]$ perl a3.pl $var is a9b9c9d9e9f9g join EXPR,LIST Joins t

2014-11-07 10:19:24 5352

原创 index range scan和index fast full scan

SQL> create index idx_1 on t1(object_id);Index created.SQL> set linesie 200SP2-0158: unknown SET option "linesie"SQL> select max(object_id) from t1;MAX(OBJECT_ID)-------------- 175920SQL>

2014-11-07 08:38:45 1140

原创 log buffer

1. 关于log buffer大小设置的误区大小不要超过3m，因为log buffer中脏数据超过1m 就会触发lgwr进行去写，同时超过1/3 log buffer大小时，也会触发。因此，网上流传的结论是1*3=3m,认为超过3m 的log buffer大小设置是毫无意义的？早期的原理的直接写入redo logfile中，为了避免IO问题能在sga中引入了一块共

2014-11-05 21:09:29 849

原创 INDEX FAST FULL SCAN 也无法开并行

SQL> drop table t1 purge ;表已删除。SQL> create table t1 as select * from dba_objects;表已创建。SQL> insert into t1 select * from t1;已创建72665行。SQL> /已创建145330行。SQL> commit;提交完成。SQL> create i

2014-11-05 16:57:03 697

原创 index range scan 单块读无法走并行

SQL> create table t1 as select * from dba_objects;SQL> create index i1_idx on t1(owner);BEGIN DBMS_STATS.GATHER_TABLE_STATS(ownname => 'TEST', tabname

2014-11-05 14:27:59 653

原创 Shell wait

因为你的脚本都放在后台了,如果没有wait的话,它们在后台没运行完就退出了有wait的话,是等到所有子进程都接受才终止脚本没wait的话主进程先退出了有wait的话,就会等到子进程结束了,主进程才会终止

2014-11-03 22:00:37 546

zhaoyangjian724的专栏