AnySQL.net

Perl监控AIX的网卡流量 (0)

我要留言(当前0)

用Perl写Standby维护脚本

Sat, 15 Nov 2008 09:45:11 +0800

作者:d.c.b.a, 订阅AnySQL, Oracle数据库恢复及服务, Sybase恢复, 磁盘及RAID恢复

Perl是一门非常适合用来写数据库管理脚本的语言, Shell当然也很强, 但在这个领域还是没有Perl好. 来讲一个最简单的需求, 需要取得Standby或Dataguard上最后一个应用的归档日志, 在普通恢复和Managed恢复方式都要支持, 这个需求并不容易准确地实现. 如果用Perl来分析Oracle的alert日志文件, 则比较容易. 如下所示:

sub getLastRecoveredLog
{
my ($alert_log_file) = @_;
my $logseq = "???";
my $lastline = `tail -1000 ${alert_log_file} | grep "Media Recovery Log" | tail -1`;
if (defined($lastline))
{
$lastline =~ s/.*\///g;
my @cols = ($lastline =~ /\w+_\d?_(\d+)[\.|_]/);
if (defined($cols[0]))
{
$logseq = $cols[0];
$logseq = $logseq - 1;
}
}
scalar $logseq;
}

如要删除已经应用过的归档日志, 那么只需要再写一个根据Sequence查找归档日志位置的函数就行了.

sub findLogBySequence
{
my ($logseq) = @_;
my $logfile = `find /data*/arch -follow -name *_${logseq}.* | head -1`;
chomp($logfile);
# Foloowing logic is for Oracle 10g
if (length($logfile) == 0)
{
$logfile = `find /data*/arch -follow -name *_${logseq}_* | head -1`;
chomp($logfile);
}

scalar $logfile;
}

先找出所有要删除的归档日志, 存在变量中, 然后根据Sequence从小删到大就行了.

相关文章 | Related Artiles

Perl监控AIX的网卡流量 (0)

我要留言(当前1)

节约历史库的存贮

Fri, 07 Nov 2008 18:54:03 +0800

作者:d.c.b.a, 订阅AnySQL, Oracle数据库恢复及服务, Sybase恢复, 磁盘及RAID恢复

eBay的chao_ping在Oracle-l中问如何节约历史库的空间, 经过了10年的发展, eBay的历史库积累了100多TB的数据, 并且数据的增幅很大, 虽然历史库用不着很好的存贮, 但这笔成本还是比较大的. 已经使用了压缩表将常规的表的空间压缩到了三分之一到六分之一, 但其中有一半的数据是用LONG或LONG RAW类型存放的, 没有办法用压缩表. 想想再过几年, 这样的历史库空间问题, 也会面临在很多的DBA前面.

在Oracle中比较花存贮的有如下方面:

字段编码. 不要小看这个字段编码, 比如状态字段, 用"E"和用"ENABLE"来表示, 当然后者更好读了, 生产库中应用开发人员可能偏向于后者, 但到历史库中时, 不如转换成前者. 其实一个表中一般不止一个这样的状态字段. 因此我将这个摆在第一位.

索引. 在生产库上就有些索引, 用得很少, 但每次要用, 都是比较重要的情况, 因此不得不心不由己地加索引, 历史库也有一样的情况. 其实有时不如引进针对某类记录的附加表, 来解决大表的索引问题.

LOB列. 大量的LOB不光是耗性能, 也是很耗空间的, 因为LOB的最小分配单位是一个数据块, 两个LOB值没有办法共享一个数据块. 如果是CLOB, 在变长字符集中存放大量英文文本的话, 浪费更严重, 一个英文字母在LOB中存放需要占用两个字节, 不管是INLINE还是OUTLINE.

LONG列. 有LONG的列没有办法压缩, 在插入记录时, Oracle也会过量使用空的数据库, 因而浪费空间. 用utl_compress将值取出来, 再存到LONG RAW中或RAW中, 也是不错的选择.

垃圾数据. 数据库中肯定多多少少会有垃级记录, 象天文数字交易额的交易记录等等, 要筛选这些记录, 过程可能过于复杂, 所以就留了它们.

当然应对的办法, 也就随之而出了, 压缩及11g中的新的LOB格式. 也许可以将所有的字段进行序列化, 然后存在一个字段中, 要查询时用应用来解开这些字段. 过段时间也好好分析一下我们的历史库, 想想有没有办法省钱.

相关文章 | Related Artiles

容易遗忘的手工并行 (4)

最有价值的键盘一击, 值220700美金 (1)

我要留言(当前0)

AUL DMP中用户名不再是MYDUL了

Fri, 24 Oct 2008 00:15:22 +0800

作者:d.c.b.a, 订阅AnySQL, Oracle数据库恢复及服务, Sybase恢复, 磁盘及RAID恢复

AUL的DMP格式文件很方便于恢复数据, 但还是有一个地方不爽, 因为在DMP格式中, 表的所有者总是MYDUL这个用户, 而不是这个表原来的用户名. 例如用下面的命令恢复一个表:

set output_style dmp;
set charset 852;
UNLOAD TABLE GX.VIO_FORCE TO TEMP.dmp;

在导入时, 就一定要用DBA权限用户, 并且指定FROMUSER和TOUSER选项, 才能导回到原来的用户中去.

imp system file=TEMP.dmp fromuser=MYDUL touser=GX

改进后, 就不需要用DBA权限的用户, 也不需要指定FROMUSER和TOUSER了.

imp gx file=TEMP.dmp

下面是真实的测试例子.

Export file created by EXPORT:V08.01.07 via conventional path
import done in ZHS16GBK character set and AL16UTF16 NCHAR character set
. importing GX's objects into GX
. importing GX's objects into GX
. . importing table "VIO_FORCE" 0 rows imported
Import terminated successfully without warnings.

有少数用户或中间人水平实在比较菜, 用imp导入时不知道如何写fromuser和touser选项, 只好从客户第一出发, 再作改进了.

相关文章 | Related Artiles

AUL 5对恢复成DMP格式支持得更好了 (1)

连错库误删100多张表 (9)

将dmp数据导入到另一个表 (2)

Oracle不行再用AUL (7)

Oracle DUL不行就用AUL (10)

我要留言(当前4)

步行十多公里回家

Sun, 19 Oct 2008 23:25:05 +0800

作者:d.c.b.a, 订阅AnySQL, Oracle数据库恢复及服务, Sybase恢复, 磁盘及RAID恢复

入夏以来, 就没有怎么去爬过山. 入秋以来, 除了一次背儿子从老和山到北高峰后, 也没有再爬过山, 基本上最近三个月以来, 没有锻练过身体了, 因此决定今天去爬山. 否则骨头就老化了, 会再没有信心去黄山及其他名山了.

中午请ningoo和blue_prince吃完饭后, 本想三个人一起去爬山的, 结果blue_prince总是临阵退却, 说要回去睡觉, 于是就两个人去了. 我和ningoo是超级能走的人, 大家在爬山和走路方面是惺惺相惜的, 他也难找到和他一样能走的人, 我也很难找到和我一样能走的人. 老和山到北高峰这条路线走得太多了, 于是打车去西湖南面的玉皇山, 花了ningoo身上仅有的三十块钱, 他身无分文了.

玉皇山不高, 才200多米, 感觉走得很不过瘾. ningoo刚好聊起了周四和biti_rainy从西湖杨公堤(花岗观鱼)走路回家的事, biti_rainny最近为了控制身材常走路回家, 不仅省越来越贵的汽油, 据说也减掉了身上7斤油, 要打劫的人可以事先在路线上计划了. 于是我说, 反正你身上一分钱也没有了, 一起走回去吧, 挑战一下自已.

于是从山上下来到达虎跑, 然后走到杨公堤, 经花岗观鱼, 经苏堤, 在西湖边上泡了泡臭脚后, 继续走到曙光路, 走浙大玉泉校区, 回到古荡小区. 路上在商量, 下次去哪儿爬山, 光爬山也有点单调, 搞辆自行车, 以后可以试试骑个50公里来锻练一下, 以后再去玉皇山, 也可以骑自行车去了, 省了打车的钱. 就去路边的自行车铺一下买了两辆永久牌自行车. 我的记忆中还是留恋在过去的28式上, 钢圈而不是铝圈, 够结实, 以前载过两个大人都没有问题的自行车, 可惜现在一般地方也没有买了, 买得到也很贵了.

以后再去爬山或骑车, 要喊biti_rainy一起去了, 如果很远, 怂拥他开车去, 然后爬山, 再开车回来, 比如去黄山, 反正他还是很想继续塑身的.

这一路下来, 我是相当的累了, ningoo则休息了几分钟就好了, 毕竞是年青人, 晚上还做了丰富的晚餐一起吃. 这小子现在还没有对象, 未婚年轻漂亮女生赶紧来抢这样的好男人.

相关文章 | Related Artiles

我要留言(当前10)

用rawsync来做Standby

Wed, 15 Oct 2008 13:40:55 +0800

作者:d.c.b.a, 订阅AnySQL, Oracle数据库恢复及服务, Sybase恢复, 磁盘及RAID恢复

制作一个远程Standby, 如果数据库很忙, 生成的归档太多了, 没有足够的空间可以保存所有的归档日志, 可以参考如下步骤, 一部份一部份地将Standby建起来.

1, 在远程Standby机器上安装Oracle, 规划裸设备
2, 创建Standby的参数文件, 启动实例
3, 从主库生成Standby控制文件, 拷到备库, MOUNT备库
4, 配置参数, 自动接收或用脚本传输归档日志
5, 将Standby端的所有数据文件offline drop
6, 用rman在线拷出一部份数据文件
7, 用rawsync将数据文件传到Standby
8, 将拷贝过来的数据文件online起来
9, 恢复数据库, 应用部分归档日志
10, 停止恢复, 转到第5步, 直到所有的数据文件都过来

当网络不好时, 可以用rawsync的"-z"选项来透明地压缩和压缩文件, 以节约网络带宽. 也可以用脚本来实现第3步到第10步, 也就是说创建一个Standby也就是发一个脚本命令再加上等待就行了, 不管这个数据库多大多忙, 是否建在裸设备(由rawsync处理)上.

相关文章 | Related Artiles

我的工具在新公司 (0)

我要留言(当前0)

rawsync初步搞定

Tue, 14 Oct 2008 22:21:23 +0800

作者:d.c.b.a, 订阅AnySQL, Oracle数据库恢复及服务, Sybase恢复, 磁盘及RAID恢复

rsync适合于用来文件系统上文件的网络拷贝, 但并不适合于裸设备的网络对拷, 主要原因如下:

1, 区分符号链接.

2, 源端是符号链接时不传内容.

3, 目标端先生成监时文件.

4, 目标端先删除原文件, 然后重命令传好的监时文件.

当面对裸设备时, 则不需要以上功能, 实际上要变成只传内容, 不管两边的文件类型是否一样, 如下所示:

1, 不要区分符号链接.

2, 只要传内容就行.

3, 目标端不先生成监时文件.

4, 以覆盖方式写, 不去缩小目标端文件.

今天改了半天的rsync源代码, 初步实现了以上功能, 但有待正式场合的考验. 我的测试用例.

源端: 几个大小不同的文件

目标: 一个链接文件, 指向别的文件

传了几次, 目标端的link没有被替换掉, 并且用小的文件替换大的文件时, 只有前面部份内容被冲掉, 已达到我的设想了. 下载rawsync(AIX/Linux), 开始试试吧？

相关文章 | Related Artiles

我的工具在新公司 (0)

我要留言(当前1)

公司内部技术讲座

Thu, 09 Oct 2008 23:08:44 +0800

作者:d.c.b.a, 订阅AnySQL, Oracle数据库恢复及服务, Sybase恢复, 磁盘及RAID恢复

题目为基于数据的性能调整, 来到杭州的新公司, 首要面对的问题是性能问题, 如何让系统支持未来业务的增长. 另外, 由于是中间进来的, 对应用并不了解, 那就只能将一些性能数据共享给应用开发人员, 请他们一起来关注, 以解决一些很明显的性能问题. 用数据来说明问题, 而不是用感觉, 那是必须的, 才能获得认同. 来听的人主要有系统分析师及程序开发人员.

主要给人介绍了三个SQL方面成本值的含义. 1, 执行次数. 这一块DBA很难去发现问题, 而应用开发人员或熟悉业务的人员则很容易, 每秒的执行次数和业务量一比, 结果就出来了. 2, 逻辑读. 逻辑读的含义, 和逻辑读的高成本, 没有想象中的内存访问那么简单. 按卖家去查的一些SQL逻辑读特别高, 单次执行的历史成本数据等等. 3, 返回记录数. 部分表单次查询返回记录数大于1时和业务的关系, 单次执行返回小于1条记录时的含义. 也抛出了一些很明显的有待解决的问题.

介绍了几个Statspack信息的查询界面, 如何去看这些页面上的信息. 主要有以下几类:

1, Abnormal SQL Costs Change

2, Abnormal DML Rows Change

3, Top SQL by Execs

4, Top SQL by Gets

5, Top SQL by Reads

6, Top SQL by Rows

7, Top DML by Rows

8, Search SQL by Tablename

最后介绍了一下用这些数据发现的一些优化案例, 用事实说明一下这些数据, 以证实其有效性. 连续讲了1小时30分钟, 加上问答时间20分钟, 时间算控制得比较好.

又得开始准备下一次讲课的内容了, 一定要从实践中出来内容.

相关文章 | Related Artiles

估低了P590的CPU利用率 (0)

Step XX Done, Next XX.sql (1)

节约数据迁移??分钟 (5)

节约数据迁移15分钟 (1)

优化一条UPDATE语句 (4)

我要留言(当前3)

我的工具在新公司

Wed, 08 Oct 2008 09:21:32 +0800

作者:d.c.b.a, 订阅AnySQL, Oracle数据库恢复及服务, Sybase恢复, 磁盘及RAID恢复

转眼间来到杭州的新公司已经半年了, 这半年在工具上没有任何创意, 将以前写的几个工具在这儿用了一用, 到底用了以前写的什么工具呢?

oramon. 来到一个新的公司, 接触新的数据库, 首要任务当然是去摸一摸它们了, 这就需要去抓一些性能上的数据(系统级的视图), oramon就是这样一个工具, 通过它我迅速了解了数据库的压力情况. 曾经想推荐给集团其他公司的DBA用, 可他们都太历害了, 已有一套自已的, 不需要用这个.

WebChart. 这是我在2003年写的Java Servlet程序, 用来以表格或图的形式展现数据. 用来展现Statspack收集的Top SQL的信息, 及SQL的历史执行情况, Statspack报告能提供的信息实在有些不足. 以前在eBay时也想用的, 只是DBA没有能独立管理的机器, 就没有推荐这个程序, eagle_fan进eBay后用Perl写了一个查看Statspack信息的CGI程序, 因为这个他还获得了一个额外奖励.

ociuldr. 主要用于收集数据, 如实时的业务数据, 每跑一次Statspack后, 将SQL的成本信息收集到专门的Tool DB中, 再用WebChart展示出来. Shell+ociuldr+sqlldr很容易就实现了这样的定时任务, 没有什么编程的工作量.

Compare Any Column. 用来对比最核心的测试环境和生产环境的表结构区别, 一是让产品DBA提前知道下周需要做的生产库变更, 二是对产品DBA做变更的一种检查, 确保所有的变更都及时应用到生产库上.

好象也是四个, 接下来rsync2会用, 远程的Standby哪个公司都需要, 我们也不例外, 也会选择用它来传输归档日志文件, 只不过通用的脚本还没有写好. AnySQL是彻底地没有用了, ocidiff暂时也没有用武之地, 因为测试环境还不算多, 还在人力范围之内.

在这里诞生的一个Idea是网络DD程序, 想很方便地进行不同主机的裸设备对拷功能, 不知道能不能实现它.

相关文章 | Related Artiles

为如何搭建DBATools.net发愁中... (1)

我的工具在eBay (2)

申请了新的网站 -- DBATools.net (7)

我要留言(当前0)

我的工具在eBay

Tue, 07 Oct 2008 23:56:27 +0800

作者:d.c.b.a, 订阅AnySQL, Oracle数据库恢复及服务, Sybase恢复, 磁盘及RAID恢复

在eBay工作的3年半时间里, 除了做DBA外, 还写了一些工具, 其中有几个得到了很好的应用, 现在回忆一下用得最好的有四个.

ocidiff. 两个数据库用户之间表(及其他对象)结构双向对比, 及单向自动同步的脚本. 主要解决一些边缘的测试数据库和中心测试环境表结构不一致的问题, 原因是eBay太大了, 测试环境有几十套, 维护同步并不容易, 还是用脚本来得爽. 上去后解决了不少测试环境表缺列或缺少对象的问题. 耗了两个月时间才基本上完善的.

rsync2. rsync自行修改过的版本, 一开始是为了解决大文件传输的问题, Solaris上的软件都很老, 那时rcp,scp,自带的rsync都不支持大于2GB的文件, 及不同机器间rsync版要不一致, 加上服务器的数量太多, 就改成了rsync2了, 放在公共的目录上. 后来发现自带的rsync总用了TCP KEEP ALIVE功能, 网络断了后rsync会保持连接, 永不断开. 在黄勇的帮助下, 改掉了这一点, 并加快了rsync传输的速度, 由此还得了一个奖.

compare any column. 这个和ocidiff有些相似, 都是比较表结构的. 但这个程序只比较表及索引结构, 并且可以实现多点比较(最多实现了40多个机器同名表的结构对比), ocidiff只实现了两个点之间的比较, 用于检查对表结构的修改是否都应用到了所有水平拆分的节点上. 为我们当时提高数据库维护质量带来一定的帮助.

add column. 这个程序逻辑很简单, 就是做DDL遇到Resource Busy时能休息一秒钟后自动重试, 并且自动检查有没有Trigger, 如有自动编译一下, 每一个DDL后都pause一下, 等打回车才继续. 结合Shell脚本, 在水平拆分的库上, 做表结构变更时, 带来了很大的方便性.

其他有些工具, 用得很少, 如ociuldr和AnySQL这两个, 后来据了解说是我没宣传好, 导致很多人还在用spool导出大数据量的文本文件. 来到杭州新公司后, 也用了一些以前写的工具, 下一次介绍一下吧.

事隔半年, 不知道现在在用的还有多少, 上面的四个应当都在用, 毕竟才半年啊.

相关文章 | Related Artiles

为如何搭建DBATools.net发愁中... (1)

我的工具在新公司 (0)

申请了新的网站 -- DBATools.net (7)

我要留言(当前2)

ociuldr2源代码

Sat, 04 Oct 2008 15:44:05 +0800

作者:d.c.b.a, 订阅AnySQL, Oracle数据库恢复及服务, Sybase恢复, 磁盘及RAID恢复

hrb_qiuyb根据ociuldr源代码, 用OCI 8的函数接口重写了文本导出工具, 所有已有的功能和命令行参数保持不变, 并增加了对CLOB/BLOB字段的支持(导出成独立的文件), 并且在Oracle 10g下可以用sys用户登录进行操作了, 就命名为ociuldr2吧, 基于OCI 7接口规则的ociuldr则不支持这两个功能.

需要ociudlr2的朋友, 可以点击下载, 然后在不同的平台自行编译.

在所有免费提供的工具中, ociuldr是下载和使用最为广泛的一个了, 并被集成到应用程序中, 用来装载大量数据到Cache服务器中, 也很早就想改成OCI 8接口的, 由于个人的如下成见, 一直没有行动起来.

1, 不能登录sys没有关系, 搞一个查询用户的就行.

2, LOB不能处理没有关系, 可以结合lobs工具.

3, 太忙了, 没有时间去改写.

4, 太老了, 没有精力去改写.

据说hrb_qiuyb的电脑坏了, 他自己已经丢失了那份源代码, 我也找了好久, 还好发现了他当初传给我的那个版本, 就共享出来算了.

相关文章 | Related Artiles

在ociuldr的SQL中使用绑定变量 (4)

ociuldr更新(2008/01/25) (11)

ociuldr的更新, 为了更好的long类型支持 (1)

ociuldr的新选项, 是否在第一行打印字段名 (7)

切换到OCIThread多线程编程环境 (3)

我要留言(当前7)

Remote DD或Raw-rsync

Sat, 27 Sep 2008 15:05:58 +0800

作者:d.c.b.a, 订阅AnySQL, Oracle数据库恢复及服务, Sybase恢复, 磁盘及RAID恢复

这几天要做几个远程的Standby, 由于是在数据库用的是将要过时的裸设备(Oracle 12g要)上的, 发现以前最喜欢的方式不好用了. 最喜欢的是停止源端的Standby的恢复, 然后用rsync拷到远程的机器上, 以前面对的是Veritas文件系统, 因此很容易编写运行很稳定的脚本, 来自动创建Standby. 用一步一步搞的方式, 所需要的归档日志的空间也特别地小, 实在是网络不好(远程)时的最佳方案.

目前的rsync不能用于我们这种情况的原因是, 在拷文件时, 在目标端会创建监时文件, 然后改文件名实现, 因此不适合于裸设备. 程序中改一下应当就可以了, 估计不难, 象我这样不是专业出身的人也能搞定这一段代码吧. 有意向准备改一个, 可以取名为raw-sync.

基于rsync的代码改是最好的, 因为网络不好, 所以最想用它的自动压缩解压功能, 在过去几年的经验中, 这对于提升传输速度是十分有效的. 基于scp的代码也行, scp虽然在源端不生成临时文件, 但还是将目标端的文件重建了一下, 看开始拷时, 目标端的文件大小变成0就知道了.

对于裸设备, 一直都推荐用dd, 因此写一个Remote DD也不错, 不过没有基础, 这一步有很高的难度, 至少这个名字很好.

看来我的创意还不少, 虽然Oracle 12G要过时了, 但还没有见影呢, 得过好几年呢.

相关文章 | Related Artiles

RMAN Copy加上Rsync, 在Oracle 11g中实现了吗? (4)

我要留言(当前3)

不知道小孩吃饱了没?

Sun, 21 Sep 2008 20:27:25 +0800

作者:d.c.b.a, 订阅AnySQL, Oracle数据库恢复及服务, Sybase恢复, 磁盘及RAID恢复

今天带儿子去吴山广场玩, 爬爬小山, 逛逛河坊街, 然后在天兴楼吃中饭. 儿子吃饭一直都是我和老婆要面对的一道难题, 感觉上他吃了很少, 于是问儿子.

爸爸: 宝宝, 饱了没有?
儿子: bao

吃完饭后, 到西湖边上再逛了一会儿, 然后打车回去, 看到街边吃饭的人很多, 于是再问了问儿子.

爸爸: 宝宝, 饿不饿?
儿子: er

我和老婆立马晕到, 儿子还不知道bao和er的确切意思, 所以怎么问都不对, 只有等到他哭了就找东西给他吃.

也有可能我们两个被儿玩弄了一把, 今天吃晚饭时, 再问同样的问题.

爸爸: 宝宝, 饱了没有?
儿子: bao
爸爸: 宝宝, 饿不饿?
儿子: er

再晕了一次, 要怎么教他知道饱与饿呢?

相关文章 | Related Artiles

我要留言(当前2)

DreamHost升级PHP了

Wed, 10 Sep 2008 21:49:38 +0800

作者:d.c.b.a, 订阅AnySQL, Oracle数据库恢复及服务, Sybase恢复, 磁盘及RAID恢复

今天早上访问基于Lilina的RSS时, 页面中报了如下错误.

Only variables can be passed by reference ...

在网上已证实这是PHP的一个Bug (33643), 当然不能要求DreamHost改PHP版本了, 只能更改rss_parse.inc文件来实现.

// smart append - field and namespace aware
function append($el, $text) {
if (!$el) {
return;
}
if ( $this->current_namespace )
{
if ( $this->initem ) {
$tmpvar = $this->current_item[ $this->current_namespace ][ $el ];
$this->concat($tmpvar , $text);
}
elseif ($this->inchannel) {
$tmpvar = $this->channel[ $this->current_namespace][ $el ];
$this->concat($tmpvar,$text );
}
elseif ($this->intextinput) {
$tmpvar = $this->textinput[ $this->current_namespace][ $el ];
$this->concat($tmpvar , $text );
}
elseif ($this->inimage) {
$tmpvar = $this->image[ $this->current_namespace ][ $el ];
$this->concat($tmpvar , $text );
}
}

上面粗体部份, 是改过的代码, 现在工作正常了.

相关文章 | Related Artiles

解决Lilina不能显示网站图标的问题 (3)

控制Lilina中缓存文件是否过时的机制 (1)

对Lilina作了很多更新, 新版已可下载. (12)

Lilina 0.9 Beta3发布, 对于中文有一个地方一定要改. (2)

Lilina在显示RSS时的一个小问题, 修复了. (1)

我要留言(当前2)

Perl监控AIX的网卡流量

Thu, 28 Aug 2008 21:05:43 +0800

作者:d.c.b.a, 订阅AnySQL, Oracle数据库恢复及服务, Sybase恢复, 磁盘及RAID恢复

活运活用, 用Perl写了一个看AIX主机网卡流量的脚本, 差不多和"Hello, World"一样简单了.

#!/home/oracle/dbaperl/bin/perl -w
#
use AIX::Perfstat;

my $nettotal = AIX::Perfstat::netinterface_total();

my $preipkt = $nettotal->{ipackets};
my $preopkt = $nettotal->{opackets};
my $preibyt = $nettotal->{ibytes};
my $preobyt = $nettotal->{obytes};

while(1)
{
sleep(10);
$nettotal = AIX::Perfstat::netinterface_total();
print($nettotal->{ipackets} - $preipkt,",");
print($nettotal->{ibytes} - $preibyt, ",");
print($nettotal->{opackets} - $preopkt,",");
print($nettotal->{obytes} - $preobyt, "\n");
$preipkt = $nettotal->{ipackets};
$preopkt = $nettotal->{opackets};
$preibyt = $nettotal->{ibytes};
$preobyt = $nettotal->{obytes};
}

输出的样本数据, 前面加个时间就更好了.

209293,25449294,179547,45651583
217798,26535501,188151,47684198
204486,25331561,175493,45920902
204652,25110514,175301,45952904
205024,25172192,176165,46227715
202194,24638398,172954,45765479

只能一步一步来了. 好象需要加上Int64位运算支持, 才能准确显示数据.

相关文章 | Related Artiles

Perl AIX-Perfstat-0.03编程 (0)

安装Perl AIX-Perfstat-0.03 (0)