ITPub博客

declarel_str varchar2(4000);begin        for x in (select a.partition_name, a.tablespace_name, a.high_value from user_tab_partitions a where a.table_name='AUDIT_TRAI...

移动smsg_logs 表的全部分区到PRODUCT表空间： beginfor x in(select partition_name from dba_tab_partitions where table_name='SMSG_LOGS')loopexecute immediate 'alter table smsg_logs move partition ...

#!/bin/bash#Author:chipengfei#Date: 2013-02-23#Mail: chipengfei@7500.com.cn#Desc: rollback force the abnormal distribute locks#Usage: bash rollback_dist_lock.sh . /home/oracle/.profilesqlplus...

#!/bin/sh . /home/oracle/.bash_profileL_DIR_NAME=`dirname $0`cd ${L_DIR_NAME}cd ..case "$#" in          "0")     export L_TELCOM='cm'&nbsp...

#!/bin/bash        #********************************************************#        #       &n...

#!/bin/sh         #********************************************************#        #       &nb...

#!/usr/bin/perluse Time::Local;use POSIX qw(strftime);$ENV{'ORACLE_HOME'}='/oracle/product/10.2.0.1';$ENV{'PATH'}="/usr/local/bin:/bin:/usr/bin:/home/oracle/bin:/bin:$ENV{'ORACLE_HOME'}/bin"; $ENV{'T...

#!/usr/bin/perl$ENV{'ORACLE_HOME'}='/oracle/product/10.2.0.1';$ENV{'PATH'}="/usr/local/bin:/bin:/usr/bin:/home/oracle/bin:/bin:$ENV{'ORACLE_HOME'}/bin"; $ENV{'TERM'}='vt100'; our $warehouse='ct_wareho...

#!/usr/bin/perl$ENV{'ORACLE_HOME'}='/oracle/product/10.2.0.1';$ENV{'PATH'}="/usr/local/bin:/bin:/usr/bin:/home/oracle/bin:/bin:$ENV{'ORACLE_HOME'}/bin"; $ENV{'TERM'}='vt100'; our $warehouse='ct_wareho...

#!/usr/bin/perl$ENV{'ORACLE_HOME'}='/oracle/product/10.2.0';$ENV{'PATH'}="/usr/local/bin:/bin:/usr/bin:/home/oracle/bin:/bin:$ENV{'ORACLE_HOME'}/bin"; $ENV{'TERM'}='vt100'; our $warehouse='warehouse/w...

#!/usr/bin/perl$ENV{'ORACLE_HOME'}='/oracle/product/10.2.0';$ENV{'PATH'}="/usr/local/bin:/bin:/usr/bin:/home/oracle/bin:/bin:$ENV{'ORACLE_HOME'}/bin"; $ENV{'TERM'}='vt100'; our $warehouse='warehouse/w...

#!/bin/bash#set -x. /home/oracle/.bash_profileexport L_PRODUCT_PWD=XXXexport L_FILE_DATE=`date +%Y%m%d`export L_FILE_DATE_D=`date -d -2days +%Y%m%d`export L_OLD_DATE=`date -d -2days +%Y%m%d` &nb...

#!/usr/bin/bash#set -x. /home/oracle/.profileexport L_PRODUCT_PWD=XXXexport L_FILE_DATE=`date +%Y%m%d`        #*****************************************************...

#!/bin/bashdatebeg=$1dateend=$2beg_s=`date -d "$datebeg" +%s`end_s=`date -d "$dateend" +%s`#echo "beg_s=${beg_s},end_s=${end_s}"while [ "$beg_s" -le "$end_s" ] ;do      &...

SQL>   select  SEGMENT_NAME,  PARTITION_NAME, SEGMENT_TYPE  , TABLESPACE_NAME ,bytes/1024/1024  from  user_segments wheresegment_name like 'SMSG%' order by 2; ...

SELECT (NVL(SUM(bytes), 0)) use FROM dba_undo_extents WHERE tablespace_name = (select value from v$parameter where name='undo_tablespace') AND status IN ('ACTIVE', 'UNEXPIRED'); online标示当前...

引用自： xxx Perl中的变量作用范围 local, my, our与全局变量很古老很古老以前......嗯，不用老到白垩纪，那时候的Perl是自由射击的。没有什么定义变量的说法，所有的变量都是全局变量，也不需要任何 定义...

引用自：http://bbs.eetop.cn/thread-329418-1-1.html《perl语言入门（第5版）》，这是学习perl的经典书籍，涵盖了我们日常编程中最常用的80%的perl知识。 Learning Perl.part1.rar (14 MB) perl语言入门下载次...

2012-12-21 21:54 关于perl里的 tr///可以参考这篇博客：http://www.cnblogs.com/blueicely/archive/2012/12/13/2816371.html----------------------------------------------------------...

#!/usr/bin/perluse DBI;$tns="cuug";$user="scott";$passwd="oracle";$dbh = DBI->connect("dbi:Oracle:$tns","$user","$passwd") or die "can't connect to database ". DBI-errstr;$sth=$dbh->prepare("select * ...