-
编辑 删除
统一收集每台server的空间使用量
简单的perl脚本从一台linux主机来统一收集每台SERVER disk空间使用量，用SHELL写一个可能更容易懂.1.在dmsdb DB中添加一table 将所要收集的server添加到TAB_HOSTS 表中,栏位至少有ip hostname status（这个便...
-
编辑 删除
using top&gawk to get mem/cpu/swap info on linux
cpu=`top -n 1 -b | grep ‘Cpu’ |gawk ‘{print 100-substr($8,1,length($8)-1)}’`mem=`top -n 1 -b | grep ‘Mem’ |gawk ‘{print substr((substr($2,1,length($2)-1)-substr($6,1,length($6)-1))/substr($2,1...
-
编辑 删除
grep命令
Table of Contents1. grep简介 2. grep正则表达式元字符集（基本集） 3. 用于egrep和 grep -E的元字符扩展集 4. POSIX字符类 5. Grep命令选项 6. 实例1. grep简介grep （global search regular ...
-
编辑 删除
自动产生sql*loader 控制文件
自动产生sql*loader 控制文件的shell scripts,运行格式与脚本如下，可根据实际需要更改...#######################################################./create_ctl_file.sh username/password tab1 tab2 ...#########...
-
编辑 删除
自动备份昨天系统LOG
环境：A:192.168.0.10 LINUX 所有SCRIPTS都放在这一台，并这一台与所有SERVER都配置成SSH 登陆时不用输入用户名和密码（因这一功能在下一文章中同样用到来收集SERVER LOADING 信息）。B:192.168.0.11 FTP SERVER 用...
-
编辑 删除
自动收集各台LINUX & UNIX LOADING 信息
以下脚本可以自动收集各台LINUX & UNIX LOADING 信息,设定CRON JOB收集前一天的SAR 信息并写到oracle db中,然后可以做出报表呈现每台运行情况.适当改一下脚本,也可以收集实时的LOADING信息.#!/usr/bin/perl -wuse s...
-
编辑 删除
用PERL 监控公司所有DB TABLESPACE 使用情况
起因：因公司DB过多，每个都要设置TABLESPACE 使用量，原先的做法是每台都COPY SCRIPTS 和设置 CRONT JOB.和SENDMAIL,并且一天有时候警告邮件很多比较烦。想在一台设置一个CRON JOB 固定每小时去CHECK一次所有的DB的...
-
编辑 删除
使用PERL 收集各DB SEGMENT 增长情况信息
我的第二个PERL 程式，依葫芦画瓢。监控SEGMENT 增长情况也是DBA 日常工作中的一项，下面这个PERL 写的SCRIPT 可以实现。#!/usr/bin/perl -wuse strict;use DBI qw(:sql_types);$ENV{"ORACLE_HOME"} = "/opt/oracle/...
-
编辑 删除
dbi checking
#!/usr/bin/perl -wuse warnings;use strict;use DBI;my @databases = ('STUDY','XHL');my ($username, $password) = ('SYSTEM','XHL'); foreach my $db ( @databases ) { print "checking $db n";...
-
编辑 删除
Oracle Perl/DBI Example
Instructional Oracle Perl/DBI ExampleValues Before UpdateCounter[ 5240 ] Last_Update_Time[ 08/02/2004 11:10 ]Values After UpdateCounter[ 5241 ] Last_Update_Time[ 08/02/2004 11:11 ]If your perl scrip...
-
编辑 删除
perl for dba :example:send a mail to dba when can't connect to db
The lines of interest here are 18-28 and 32-44. Lines 18 enters an eval block. This is code that Perl is to evaluate and execute at runtime, much like EXECUTE IMMEDIATE in PL/SQL. Lines 20 and 21 setu...
-
编辑 删除
perl for dba:example:working with database
I:01: #!/usr/bin/perl -w02: # connect_test.pl03: # Chapter 204: # Listing 105: use strict;06: use DBI;07: print "Available Database Drivers:n";08: print "*" x 40, "n";09: print join("n", DBI->availabl...
