code highlighter test 2

set pagesize 0
set linesize 125
set serveroutput on size 10000
col plan_table_output format a125
undefine hash_value
set verify off feedback off
var hash_value varchar2(20)
begin
:hash_value := '&hash_value';
end;
/
insert into plan_table
(statement_id,timestamp,operation,options,object_node,object_owner,object_name,
optimizer,search_columns,id,parent_id,position,cost,cardinality,bytes,other_tag,
partition_start,partition_stop,partition_id,other,distribution,
cpu_cost,io_cost,temp_space,access_predicates,filter_predicates,
plan_id,OBJECT_ALIAS,DEPTH,PROJECTION,TIME,QBLOCK_NAME
)
select distinct hash_value,sysdate,operation,options,object_node,object_owner,object_name,
optimizer,search_columns,id,parent_id,position,cost,cardinality,bytes,other_tag,
partition_start,partition_stop,partition_id,other,distribution,
cpu_cost,io_cost,temp_space,access_predicates,filter_predicates,
:hash_value,OBJECT_ALIAS,DEPTH,PROJECTION,TIME,QBLOCK_NAME
from v$sql_plan
where hash_value = :hash_value
/
col piece noprint
select distinct 'sql_id:'||sql_id, ' hash_value:'||hash_value, 'plan_hash_value:'||plan_hash_value from v$sql_plan where hash_value=:hash_value
/
select distinct piece,sql_text from v$sqltext where hash_value = :hash_value order by piece
/
@?/rdbms/admin/utlxplp.sql
set linesize 80
set verify on feedback on pagesize 1000

set pagesize 0
set linesize 125
set serveroutput on size 10000
col plan_table_output format a125
undefine hash_value
set verify off feedback off
var hash_value varchar2(20)
begin
:hash_value := '&hash_value';
end;
/
insert into plan_table
(statement_id,timestamp,operation,options,object_node,object_owner,object_name,
optimizer,search_columns,id,parent_id,position,cost,cardinality,bytes,other_tag,
partition_start,partition_stop,partition_id,other,distribution,
cpu_cost,io_cost,temp_space,access_predicates,filter_predicates,
plan_id,OBJECT_ALIAS,DEPTH,PROJECTION,TIME,QBLOCK_NAME
)
select distinct hash_value,sysdate,operation,options,object_node,object_owner,object_name,
optimizer,search_columns,id,parent_id,position,cost,cardinality,bytes,other_tag,
partition_start,partition_stop,partition_id,other,distribution,
cpu_cost,io_cost,temp_space,access_predicates,filter_predicates,
:hash_value,OBJECT_ALIAS,DEPTH,PROJECTION,TIME,QBLOCK_NAME
from v$sql_plan
where hash_value = :hash_value
/
col piece noprint
select distinct 'sql_id:'||sql_id, ' hash_value:'||hash_value, 'plan_hash_value:'||plan_hash_value from v$sql_plan where hash_value=:hash_value
/
select distinct piece,sql_text from v$sqltext where hash_value = :hash_value order by piece
/
@?/rdbms/admin/utlxplp.sql
set linesize 80
set verify on feedback on pagesize 1000

public class Hello {
public static void main(String[] args) {
System.out.println("Hello World!");
}
}

#!/usr/bin/perl
use Txu::Util;
use Data::Dumper;

#SetDebug;

unless (@ARGV >= 2){
print "Usage: ./diff_hd.pl file1 file2\n";exit;
}

open $rpt, '<', $ARGV[0]; my $r = &FileToArray($rpt,'\s*,\s*'); close $rpt; open $rpt, '<', $ARGV[1]; my $s = &FileToArray($rpt,'\s*,\s*'); close $rpt; my $c = &NewDiffCfg($r->[0], $s->[0], [0], 2);

my $d = &GetDiffArray(
$c
);

 

 

 

发表评论

电子邮件地址不会被公开。 必填项已用*标注