首页 / PERL / 最终版-perl工具解析数据库的报告文件0120

最终版-perl工具解析数据库的报告文件0120

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了最终版-perl工具解析数据库的报告文件0120，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含11171字，纯文字阅读大概需要16分钟。

内容图文

********************需要根据自己的实际环境修改哦****************************

********************

1. 收集awr报告样本 awrreport.sql

--该脚本请用具有 dba 权限的用户执行，普通用户没有权限访问数据库的基表

conn &usr/ &pass @ &oracle_sid

set linesize 1200 ;
set pagesize 0;
set long 99999;
set heading off;
--set termout off;
set echo off;
set feedback off;
set timing off;
set serveroutput on;

exec dbms_output.put_line(‘report_name，for example：hydk‘);
spool awrrpt_tmp.sql;

select
‘spool &report_name‘||‘_awrrpt_‘||snap_id||‘_‘||(snap_id+1)||‘.lst‘||chr(10)||
‘select output ‘||chr(10)||
‘ from table(dbms_workload_repository.awr_report_text(‘||dbid||‘,1,‘||snap_id||‘,‘||(snap_id+1)||‘));‘||chr(10)||‘spool off;‘||chr(10)
from dba_hist_snapshot;
whenever sqlerror continue;
spool off ;
@awrrpt_tmp.sql;

---- 这里要等一段时间，多敲几下回车以保证上面的语句都执行 ---

host del awrrpt_tmp.sql;
exit;

********************

2. .bat文件批量执行sql脚本，避免重复的复制粘贴

@echo off
echo ***************************************************
echo * *
echo * 此脚本用于数据库的awr报告文件 *
echo * *
echo ***************************************************
echo 
echo 请按照[ ]中的提示输入参数，如不输入，则自动设为默认
echo.

rem -------------------------------------------------------
%~d0
cd %~dp0

set setup=setup.sql

set NLS_LANG=SIMPLIFIED CHINESE_CHINA.ZHS16GBK

echo set echo off >> %setup%
echo set verify off >> %setup%
rem -------------------------------------------------------------------
rem 脚本内容写入setup.sql一起运行
echo.

set model=

if "%model%"=="1" goto model1
if "%model%"=="" goto model1

goto end

:model1
echo @./start/awrreport.sql >> %setup%
goto next

:next
rem 运行脚本

echo exit >> %setup%
sqlplus /nolog @%setup%
echo 运行成功
del setup.sql
::exit

:end

exit

********************

3. perl工具解析生成的 .lst 文件

rem 该脚本用于使用perl工具解析生成的 .lst 文件（以实际环境为准）
rem 进入指定盘符
c:

rem 进入该盘符下的指定目录，改盘符就是那些.lst文件的目录
cd C:\Users\Administrator\Desktop\mon_ora11g\脚本生成awr报告文件

rem 使用绝对路径下的perl工具，解析生成的 .lst 文件
E:\app\oracle\product\11.2.0\db_1\perl\bin\perl.exe -w awrreport.pl

********************

4. perl 工具的配置文件

use strict;
#use File::Find;
#

my $root_dir=‘.‘;
open(DataFile, ">$root_dir\\fzjk.txt") || die "can not create file";

print DataFile " 日期 ", " 时间 ", " Redo size",
" Logical reads", " Block changes",
" Physical reads", " Physical writes",
" User calls", " Parses",
" Hard parses",
" Logons", " Executes",
" Transactions",
"\n";

print DataFile " PerSecond PerTransaction PerSecond PerTransaction",
" PerSecond PerTransaction", " PerSecond PerTransaction",
" PerSecond PerTransaction", " PerSecond PerTransaction",
" PerSecond PerTransaction", " PerSecond PerTransaction",
" PerSecond PerTransaction",
" PerSecond PerTransaction",
" PerSecond",
"\n";

my @xljk = ("Buffer Nowait", "Redo NoWait", "Buffer Hit", "In-memory Sort",
"Library Hit", "Soft Parse", "Execute to Parse", "Latch Hit","Parse CPU to Parse Elapsd",
"Non-Parse CPU");
open(XLFile, ">$root_dir\\xljk.txt") || die "can not create file";

print XLFile " 日期 ", " 时间 ";

foreach my $i (0..@xljk-1)
{
print XLFile " $xljk[$i]| ";
}
print XLFile "\n";

open(GXZFile, ">$root_dir\\gxcjk.txt") || die "can not create file";
my @gxzjk = ( "Memory Usage ","SQL with executions>1","Memory for SQL w/exec>1");
print GXZFile " 日期 ", " 时间 ";

foreach my $i (0..@gxzjk-1)
{
print GXZFile " $gxzjk[$i]| ";
}

print GXZFile "\n begin end ave begin end begin end";
print GXZFile "\n";

#下例仅遍历当前目录：
my($file);
my @filename;

opendir(myDir, $root_dir);
while ($file = readdir myDir)
{

#@filename = (@filename, $file) if ($file =~/lst$/i);
if ($file =~/lst$/i)
{
@filename = (@filename, $file);
#$file =~/(\d+)\D*(\d+)/;
#print $1, $2, "\n";
}
}
closedir(myDir);
#print @filename, "\n";

#sub subdig($a)

#
@filename = sort {
$_=$a;
m/(\d+)\D*/;
my $aa = $1;
#print $aa;

$_ = $b;
m/(\d+)\D*/;
#print " ", $1, "\n";
$aa <=> $1; } @filename;

my @xlpat = ("Buffer Nowait %:", "Redo NoWait %:", "Buffer Hit %:", "In-memory Sort %:",
"Library Hit %:", "Soft Parse %:", "Execute to Parse %:", "Latch Hit %:",
"Parse CPU to Parse Elapsd %:", "% Non-Parse CPU:");
my @xlpatlen = (13,11,11,14,11,10,16,9,25,13);

my @gxzpat = ("Memory Usage %:","% SQL with executions>1:"," % Memory for SQL w/exec>1:");
my @gxzpatlen = (12,21,23);

foreach my $i (0..@filename-1)
{
open(Spreport, "$root_dir\\$filename[$i]" ) || warn "can not open file\n";
#print DataFile $root_dir ."\\". $filename[$i], "\n";

while(my $line = <Spreport> ) #获取文件中的每一行
{
if( $line =~/Begin Snap:\s+\d+\s+(\S+)\s*(\S+)\s*(\S+)/ )
{

if(index($3,":")!=-1)
{print DataFile $1,$2,$3, " ";
print XLFile $1,$2,$3, " ";
print GXZFile $1,$2,$3, " ";
}
else
{print DataFile $1,$2," ", " ";
print XLFile $1,$2, " ";
print GXZFile $1,$2, " ", " ";
}

}

#Redo size
if(($line =~/Redo size\s+(\S+)\s*(\S+):\s+(\S+)\s*(\S+)/ || $line =~/Redo size:\s+(\S+)\s*(\S+)/)&& $line =~/:\s+(\S+)\s*(\S+)/ )
{
# $line =~/:\s+(\S+)\s*(\S+)/;
printf(DataFile "%-8s %-12s ",$1,$2);
#print DataFile $1," ", $2, " ";
}

#Logical read
if(($line =~/Logical read\s+(\S+)\s*(\S+):\s+(\S+)\s*(\S+)/ || $line =~/Logical reads:\s+(\S+)\s*(\S+)/)&& $line =~/:\s+(\S+)\s*(\S+)/ )
#if( $line =~/Logical reads\s+(\S+)\s*(\S+):\s+(\S+)\s*(\S+)/ || $line =~/Redo sizes:\s+(\S+)\s*(\S+)/)&& $line =~/:\s+(\S+)\s*(\S+)/ )
{
printf(DataFile "%-9s %-12s ",$1,$2);
}

#Block changes
if(($line =~/Block changes\s+(\S+)\s*(\S+):\s+(\S+)\s*(\S+)/ || $line =~/Block changes:\s+(\S+)\s*(\S+)/)&& $line =~/:\s+(\S+)\s*(\S+)/ )
#if( $line =~/Block changes\s+(\S+)\s*(\S+):\s+(\S+)\s*(\S+)/ &&$line =~/:\s+(\S+)\s*(\S+)/ )
{
printf(DataFile "%-8s %-12s ",$1,$2);
}

#Physical read

if(($line =~/Physical read\s+(\S+)\s*(\S+):\s+(\S+)\s*(\S+)/ || $line =~/Physical reads:\s+(\S+)\s*(\S+)/)&& $line =~/:\s+(\S+)\s*(\S+)/ )

#if(($line =~/Logical read\s+(\S+)\s*(\S+):\s+(\S+)\s*(\S+)/ || $line =~/Logical reads:\s+(\S+)\s*(\S+)/)&& $line =~/:\s+(\S+)\s*(\S+)/ )
#if( $line =~/Physical reads\s+(\S+)\s*(\S+):\s+(\S+)\s*(\S+)/ &&$line =~/:\s+(\S+)\s*(\S+)/ )
{
printf(DataFile "%-8s %-12s ",$1,$2);
}

#Physical write
if(($line =~/Physical write\s+(\S+)\s*(\S+):\s+(\S+)\s*(\S+)/ || $line =~/Physical writes:\s+(\S+)\s*(\S+)/)&& $line =~/:\s+(\S+)\s*(\S+)/ )
#if( $line =~/User calls\s+(\S+)\s*(\S+):\s+(\S+)\s*(\S+)/ &&$line =~/:\s+(\S+)\s*(\S+)/ )
{
printf(DataFile "%-8s %-12s ",$1,$2);
}

#User calls

if(($line =~/User calls\s+(\S+)\s*(\S+):\s+(\S+)\s*(\S+)/ || $line =~/User calls:\s+(\S+)\s*(\S+)/)&& $line =~/:\s+(\S+)\s*(\S+)/ )
#if(($line =~/User calls\s+(\S+)\s*(\S+):\s+(\S+)\s*(\S+)/ || $line =~/User callss+(\S+)\s*(\S+)/)&& $line =~/:\s+(\S+)\s*(\S+)/ )
{
printf(DataFile "%-8s %-12s ",$1,$2);
}

#Parses
if(($line =~/Parses\s+(\S+)\s*(\S+):\s+(\S+)\s*(\S+)/ || $line =~/Parses:\s+(\S+)\s*(\S+)/)&& $line =~/:\s+(\S+)\s*(\S+)/ )
#if( $line =~/parses\s+(\S+)\s*(\S+):\s+(\S+)\s*(\S+)/ &&$line =~/:\s+(\S+)\s*(\S+)/ )
{
printf(DataFile "%-8s %-12s ",$1,$2);
}

#Hard parses
if(($line =~/Hard parses\s+(\S+)\s*(\S+):\s+(\S+)\s*(\S+)/ || $line =~/Hard parses:\s+(\S+)\s*(\S+)/)&& $line =~/:\s+(\S+)\s*(\S+)/ )
#if( $line =~/Hard parses\s+(\S+)\s*(\S+):\s+(\S+)\s*(\S+)/ &&$line =~/:\s+(\S+)\s*(\S+)/ )
{
printf(DataFile "%-8s %-12s ",$1,$2);
}

# if(($line =~/Physical write\s+(\S+)\s*(\S+):\s+(\S+)\s*(\S+)/ || $line =~/Physical write:\s+(\S+)\s*(\S+)/)&& $line =~/:\s+(\S+)\s*(\S+)/ )
# if( $line =~/Sorts\s+(\S+)\s*(\S+):\s+(\S+)\s*(\S+)/ &&$line =~/:\s+(\S+)\s*(\S+)/ )
# {
# printf(DataFile "%-8s %-12s ",$1,$2);
# }

#Logons

if(($line =~/Logons\s+(\S+)\s*(\S+):\s+(\S+)\s*(\S+)/ || $line =~/Logons:\s+(\S+)\s*(\S+)/)&& $line =~/:\s+(\S+)\s*(\S+)/ )
#if( $line =~/Logons\s+(\S+)\s*(\S+):\s+(\S+)\s*(\S+)/ &&$line =~/:\s+(\S+)\s*(\S+)/ )
{
printf(DataFile "%-8s %-12s ",$1,$2);
}

#Executes
if(($line =~/Executes\s+(\S+)\s*(\S+):\s+(\S+)\s*(\S+)/ || $line =~/Executes:\s+(\S+)\s*(\S+)/)&& $line =~/:\s+(\S+)\s*(\S+)/ )
#if( $line =~/Executes\s+(\S+)\s*(\S+):\s+(\S+)\s*(\S+)/ &&$line =~/:\s+(\S+)\s*(\S+)/ )
{
printf(DataFile "%-8s %-12s ",$1,$2);
}

#Transactions

if(($line =~/Transactions\s+(\S+)\s*(\S+):\s+(\S+)\s*(\S+)/ || $line =~/Transactions:\s+(\S+)\s*(\S+)/)&& $line =~/:\s+(\S+)\s*(\S+)/ )
#if( $line =~/Transactions\s+(\S+)\s*(\S+):\s+(\S+)\s*(\S+)/ &&$line =~/:\s+(\S+)\s*(\S+)/ )
{
printf(DataFile "%-8s",$1);
}

foreach my $j (0..@xlpat-1)
{

printf(XLFile "%-$xlpatlen[$j]s ", $1) if($line =~/$xlpat[$j]\s+(\S+)/ );
}

foreach my $j (0..@gxzpat-1)
{
if($line =~/$gxzpat[$j]\s+(\S+)\s+(\S+)/ )
{
printf(GXZFile "%-6s %-6s ", $1, $2) ;
printf(GXZFile "%-7s ",($1+$2)/2) if($j==0);
printf GXZFile " " if($j==1);
}
}

}
print DataFile "\n";
print XLFile "\n";
print GXZFile "\n";

close Spreport;
}

close DataFile;
close XLFile;
close GXZFile;

最终版-perl工具解析数据库的报告文件0120

标签：

本文系统来源：http://www.cnblogs.com/iyoume2008/p/5146138.html

内容总结

以上是互联网集市为您收集整理的最终版-perl工具解析数据库的报告文件0120全部内容，希望文章能够帮你解决最终版-perl工具解析数据库的报告文件0120所遇到的程序开发问题。如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容，请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/459987.html

来源：【匿名】

【上一篇】-bash: ./scripts/mysql_install_db: /usr/bin/perl: bad interpreter: No such file 【下一篇】Win2000+Apache+MySql+PHP4+PERL安装使用小结

更多 ►

【最终版-perl工具解析数据库的报告文件0120】教程文章相关的互联网学习教程文章

通过dbi使用perl连接mysql数据库的方法_PHP教程

通过使用DBI，用Perl可以很容易的连接到mysql数据库: 代码如下：代码如下:#!/bin/perl use DBI; # Connect to target DB my $dbh = DBI->connect("DBI:mysql:database=eygle;host=localhost","username","password", {RaiseError => 1}); # Insert one row my $rows = $dbh->do("INSERT INTO test (id, name) VALUES (1, eygle)"); # query my $sqr = $dbh->prepare("SELECT name FROM test"); $sqr->execute(); while(my ...

通过dbi使用perl连接mysql数据库的方法_PHP

通过dbi使用perl连接mysql数据库的方法_php实例

通过dbi使用perl连接mysql数据库的方法

PythonMysql数据库操作Perl操作Mysql数据库

首先下载 MySQLdb #encoding=GBK import MySQLdb #import sys # #reload(sys) #sys.setdefaultencoding('utf-8') print 'Connection ...' host='192.168.1.77' user='root' passwd='123456' db='test' conn = MySQLdb.connect(host,user,passwd,db,charset='gbk') print 'Connection success' cursor = conn.cursor() #query = "insert into test(id,name) values(%s , %s)" #param = ("1","汉字") #cursor.execute(query,param) #...

perl：数据库编程

连接所有数据库的API。DBD:是DBI针对不同数据库的驱动。 DBD::mysql DBD::Pg DBD::SQLite如果没有,使用cpan安装即可。 ###################################################################### DBI接口：习惯用法： $dbh数据库句柄 $sth语句句柄 $drh驱动句柄 $rc布尔类型返回码 $rv整数类型返回值 @ary从数据库返回的行记录的列表 $rows处理的行数 $fh文件句柄 \%attr哈希类型的属性@driver_names= DBI->available_drivers; %di...

最终版-perl工具解析数据库的报告文件0120

********************需要根据自己的实际环境修改哦**************************** ******************** 1. 收集awr报告样本 awrreport.sql --该脚本请用具有 dba 权限的用户执行，普通用户没有权限访问数据库的基表 conn &usr/ &pass @ &oracle_sid set linesize 1200 ;set pagesize 0;set long 99999;set heading off;--set termout off;set echo off;set feedback off;set timing off;set serveroutput on; exec dbms_output....

24-Perl 数据库连接

1.Perl 数据库连接本章节我们将为大家介绍 Perl 数据库的连接。Perl 5 中我们可以使用 DBI 模块来连接数据库。DBI 英文全称：Database Independent Interface，中文称为数据库独立接口。DBI 作为 Perl 语言中和数据库进行通讯的标准接口，它定义了一系列的方法，变量和常量，提供一个和具体数据库平台无关的数据库持久层。 2.DBI 结构DBI 和具体数据库平台无关，我们可以将其应用在Oracle, MySQL 或 Informix, 等数据库中。图表中 ...

perl连接access数据库

前题是必须安装好activeperl （505以上），以及MS Access 97 一. 安装Win32-ODBC模块步骤1：从TOOLS栏目中下载Win32-ODBC.zip,下载完后用winzip解开到一个temp目录,共有三个文件： Readme Win32-ODBC.ppd Win32-ODBC.tar.gz 步骤2：在DOS窗口下，temp目录前题是必须安装好activeperl （505以上），以及MS Access 97一. 安装Win32-ODBC模块步骤1：从TOOLS栏目中下载Win32-ODBC.zip,下载完后用winzip解开到一个temp目录,共有三个文...

linux下perl操作mysql数据库(需要安装DBI)

有时候需要perl操作mysql数据库，可以通过DBI实现，需要的朋友可以参考下DBI安装：DBI详细信息参考： 1.下载DBI包： wget http://search.cpan.org/CPAN/authors/id/T/TI/TIMB/DBI-1.620.tar.gz 2 解压 tar xzf DBI-1.620.tar.gz 3 进入解压包内， perl Makefile.PL 4 make test 5 make 6 make install (如果不是root用户，要sudo一下） DBD安装： 1.下载DBD wget http://search.cpan.org/CPAN/authors/id/C/CA/CAPTTOFU/DBD-mysql-...

用perl做数据库迁移，从MSSQL到MYSQL（三）

用perl做数据库迁移，从MSSQL到MYSQL（三）--V1.1版~多线程+handlerSocket 从前边的程序的运行情况来看，程序是可以运行的，但速度太扯了，在读写1000W条之前速度还是可以的（大概2000条/秒左右），但过了1000W之后（变成400条/秒左右），当然这个与SQL SERV 用perl做数据库迁移，从MSSQL到MYSQL（三）--V1.1版~多线程+handlerSocket从前边的程序的运行情况来看，程序是可以运行的，但速度太扯了，在读写1000W条之前速度还是可以的...

Linux下用Perl进行MySQL数据库开发【图】

Linux下用perl进行MySQL数据库开发需要安装MySQL，DBI和DBD。除了DBI比较好安装外，MySQL和DBD安装起来都没那么顺利，下面总结一 Linux下用perl进行MySQL数据库开发需要安装MySQL，DBI和DBD。除了DBI比较好安装外，MySQL和DBD安装起来都没那么顺利，下面总结一下安装错误解决方法：一、MySQL数据库安装 1、下载MySQL的安装文件安装MySQL需要下面两个文件： MySQL-server-5.1.34.i386.rpm MySQL-client-5.1.34.i386.rpm 下载地址为...

Perl操作mysql数据库的方法

Perl对Mysql的操作。一、标准操作 1、连接、关闭 my $dbh = DBI-connect(DBI:mysql:database=DBname;host=localhost,user,pwd, {RaiseError = 1}); $dbh-disconnect(); 2、类似插入等无返回操作 my $sqr = $dbh-prepare(insert into table_name(Name,region 　　Perl对Mysql的操作。一、标准操作1、连接、关闭my $dbh = DBI->connect(”DBI:mysql:database=DBname;host=localhost”,”user”,”pwd”, {’RaiseError’ => 1});…...

用perl访问mysql数据库

一. 安装DBI模块步骤1：从TOOLS栏目中下载DBI.zip,下载完后用winzip解开到一个temp目录,共有三个文件： Readme DBI.ppd DBI.tar.gz 步骤2：在DOS窗口下，temp目录中运行下面的DOS命令： ppm install DBI.ppd 如果提示无效命令,可在perl/bin目录下运行二.一. 安装DBI模块步骤1：从TOOLS栏目中下载DBI.zip,下载完后用winzip解开到一个temp目录,共有三个文件： Readme DBI.ppd DBI.tar.gz 步骤2：在DOS窗口下，temp目录中运行下...

如何用Perl访问SQLite数据库【图】

SQLite是一个零配置、无服务端、基于文件的事务型数据库系统。由于它的轻量级，自包含和紧凑的设计，所以当你想要集成数据库到你 SQLite是一个零配置、无服务端、基于文件的事务型数据库系统。由于它的轻量级，自包含和紧凑的设计，所以当你想要集成数据库到你的程序中时，SQLite是一个非常不错的选择。在这篇文章中，我会展示如何用Perl脚本来创建和访问SQLite数据库。我演示的Perl代码片段是完整的，所以你可以很简单地修改并集成...

PERL - 最热教程

脚本 – 如何使用python或perl等在xml中...-bash: ./scripts/mysql_install_db: /...mysql-关于MHA在perl同步测试时报错请问...Python和perl实现批量对目录下电子书文...pycharm-perl脚本 linux – Perl进程解析在Linux下安装PHP,APACHE,ORACLE,PERL的...pgspider perl 语言扩展使用Perl,Python或Ruby,如何编写程序以...用于在Linux上创建Excel电子表格的Pyth...

首页 / PERL / 最终版-perl工具解析数据库的报告文件0120

最终版-perl工具解析数据库的报告文件0120

内容导读

内容图文

内容总结

内容备注

内容手机端

【最终版-perl工具解析数据库的报告文件0120】教程文章相关的互联网学习教程文章

PERL - 最新教程

PERL - 最热教程