zhyuh_perl-CSDN博客

原创 Oracle 12c 的 hr_main.sql

建立Oracle 12c multitenant数据库后，原先的hr_main.sql将不可用。下面的hr_main.sql做了一些修改，可以将HR schema建立在名为PDB1的pluggable database上。（如果pdb名称为其他，只需改alter session set container=PDB1;这一行） remrem Header: hr_main.sql 09-

2013-11-27 20:31:36 5852

原创 SQLT -- Oracle单句SQL性能调优工具

[ID 215187.1]SQLTXPLAIN, also known asSQLT, is a tool provided by Oracle Server Technologies Center of Expertise - ST CoE. SQLT inputs one SQL statement and outputs a set of diagnostics files.

2012-09-25 16:22:47 863

原创 Hang File Generator

Oracle数据库Hang时自动生成hanganalyze & systemstate trace文件的工具。HANGFG User Guide [ID 362094.1]

2012-09-25 16:18:44 411

转载正则表达式

方便日后查找字符描述\将下一个字符标记为一个特殊字符、或一个原义字符、或一个后向引用、或一个八进制转义符。例如，'n' 匹配字符 "n"。'\n' 匹配一个换行符。序列 '\\' 匹配 "\" 而 "\(" 则匹配 "("。^匹配输入字符串的开始位置。如果设置了 RegExp 对象的 Multiline 属性，^ 也匹配 '\n' 或

2012-04-12 13:24:25 335

原创 shell数组分隔符

shell数组默认拿空格当分隔符，但如果元素里面包含空格怎么办呢？% cat t3.sh#!/usr/bin/kshset -A arr1 `sqlplus -s /NOLOG connect username/password@SID;whenever sqlerror exit sql.sqlcodeset pagesize 0 feedback off ver

2012-03-15 09:44:34 6799

原创 JDBC操作Oracle BFILE对象

数据库服务器： db_server数据库目录：SQL> select * from dba_directories where directory_name='LOB_DIR';OWNER DIRECTORY_NAME DIRECTORY_PATH---------- -------------------- --------------------S

2012-02-13 17:40:16 833

原创 JDBC操作Oracle BLOB对象

将文件C:\temp\cbr_order_version.dmp从本机存入Oracle数据库BLOB字段，又从数据库读出另存为C:\temp\retrieved\retrievedBLOBcbr_order_version.dmp。//blob_content表结构SQL> desc blob_content Name

2012-02-10 08:55:44 3666

原创 JDBC操作Oracle CLOB对象

把C:\TEMP\cbr_order_version_exp.log内容存入CLOB字段中，并将内容从数据库又读入C:\temp\retrieved\cbr_order_version_exp.log文件中---创建表SQL>create table clob_content(file_name varchar2(40) not null, clob_column clob not n

2012-02-09 09:08:48 803

上文里面的功能，对比着用shell来实现，比较好玩 用法： bash ./dba_oracle_awr.sh -s ORCL -f 20110312070000 -t 20110312090000 -p TEXT -h /usr/local/oracle/10.2.0-64 脚本： #!/usr/bin/bash # ******************************** # * dba_oracl

2011-03-15 11:12:00 1568

原创自动批量生成AWR报告的脚本

这个脚本可以批量生成多个AWR脚本，只要指定数据库名（RAC环境应该是实例名）和时间段。如 C:/TEMP>perl dba_oracle_awr.pl --instance O02PAW1A --from 201103020700 --to 201103021800 --oracle_home C:/oracle/1020/client_1 --type text 就生成2011年3月2日早上7点到下午6点间的11份AWR报告。 当然适当修改脚本可以延伸些额外的功能，比

2011-03-08 15:29:00 1979

原创 Clone Oracle的脚本

小小纪念一下，给公司开发了一个Intel 平台上的 Clone 脚本。版本一终于几天前发布了。 主要包括了一下功能： 1. 调用 clone.pl 克隆 Oracle Home。 2. 调用 dbca 按 template 创建初始数据库。 3. 调用 netca 配置 Listener。 4. 运行一些公司标准的数据库/环境配置脚本。 5. 克隆 Oracle OEM Agent。

2010-08-24 10:34:00 415

原创函数和调用 II

如果需要传入2个参数，函数里需要写成"$_" (传入一个参数时可以写成"$_"或"$") ==>脚本#!/usr/bin/perl -w## sum_test.pluse strict;my ($sum, $var1, $var2);sub sum_f($_){ my $v1 = shift; my $v2 = shift; my

2010-04-26 16:17:00 311

原创同一脚本中的函数和调用

Perl里面调用子程序，这个没有特别的地方。如果需要跟子过程传入传出参数，就变成了函数。这也没什么特别，只在函数里获得传入参数的语句需要注意下。 ==>例子trim_test.pl，脚本里建trim函数，消除前后的空格、制表符等空白#!/usr/bin/perl -w## trim_test.pluse strict;my ($var, $var1, $var2);sub

2010-04-26 16:05:00 576

原创传入多值参数处理

有些写程序不喜欢用Getopt::Long模块，但是一些perl脚本中有必要允许一个选项传入多个参数，比如oracle exp, analyze schema这类的脚本，需要允许一次运行export/analyze多个schema。这时候需要用push将多个值放入数组中。 ==脚本==#!/usr/bin/perl -w## input_tst.pl# Test the input u

2010-04-08 15:10:00 904

原创 Perl脚本间传递参数（二）

上一个办法（http://blog.csdn.net/zhyuh_perl/archive/2010/03/09/5361055.aspx）达到了perl脚本之间传递参数的目的，但是不符合use strict的风格。我们用use strict风格重新实现该功能。需要注意：-1. 被调用的脚本没有程序主体，都是sub子程序。2. 每个函数显式指明返回值。3. 调用的脚本除了requi

2010-03-09 16:38:00 5549

原创 Perl脚本间传递参数

读取文件内容的脚本file_input3.pl（见http://blog.csdn.net/zhyuh_perl/archive/2010/03/05/5348799.aspx）可以写成一个通用的函数，供其它脚本调用，并将读取的结果返回。 ==function0.pl==#!/usr/bin/perl -w## functon0.pl# To be called by other sc

2010-03-09 16:15:00 5460

原创 Data::Dumper Module

Data::Dumper module对有些输出比较有用，比如hash，或者没有赋值的变量。 ==脚本dumper_1.pl==#!/usr/bin/perl -w## dumper_1.pl# Use of Data::Dumper moduleuse strict;use Data::Dumper;my $v1=abc;my $v2=22;my $v3;my @ar

2010-03-08 17:07:00 541

原创 Perl 读入文件（一）

有一个SQL Server的环境配置文件如下，该脚本将配置环境的参数和值读入perl哈希串，然后在perl内可以做各种处理，当然本例中只打印参数和值。 ==配置文件 Env_Var.txt==SERVER = GDCPW1169INSTANCE = GDCPW1169SQL_VER = 2005BIN_DIR = G:/mssql2005/MSSQL.1/MSSQL/BinnSCRIPT_

2010-03-05 11:55:00 2505

原创 Hellow, world!

经典的Hellow, world!哈哈哈 == 脚本hello.pl ==#!/usr/bin/perl -wprint "Hello, world!/n"; == 执行结果 ==C:/temp1>perl hello.plHello, world!

2010-02-22 09:25:00 390

初学者