Perl 写的巡检数据库的脚本

最新推荐文章于 2022-11-25 12:11:00 发布

scan724

最新推荐文章于 2022-11-25 12:11:00 发布

阅读量833

点赞数

CC 4.0 BY-SA版权

分类专栏： Perl DBI

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/45462409

Perl DBI 专栏收录该内容

54 篇文章 ¥39.90 ¥99.00

订阅专栏

这是一个使用 Perl 编写的数据库巡检脚本，包括数据库锁信息、最大段信息、临时表空间使用、排序会话、排序信息、数据库信息、回滚段使用、事务计数、会话计数、表空间使用情况和等待事件的检查。脚本通过 DBI 模块连接 Oracle 数据库，展示关键性能指标和可能的问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#!/usr/bin/perl
my $red="\e[1;31m";
my $green="\e[1;32m";
my $yellow="\e[1;33m";
my $normal="\e[0m";
use DBI; 
my  $dbName = 'june';  
my  $dbUser = 'test';  
my  $dbUserPass = 'test';  
my  $dbh = DBI->connect("dbi:Oracle:$dbName", $dbUser, $dbUserPass) or die "can't connect to database " ;
$dbh->{LongReadLen} = 100;
$dbh->{LongTruncOk} = 1;

sub section() {
    my $section=shift;
    print ">>>>>$green $section $normal  \n";
};
sub get_lock {
§ion("LOCK INFO");
my $hostSql = qq{select  t3.sid,t4.object_name,t3.MACHINE,t3.PROGRAM, t2.ctime \
   from v\$process t1, \ 
        (select sid, type, id1, id2, lmode, request, ctime \
           from v\$lock \
          where  sid in (select sid \
                          from v\$lock \

了解本专栏