Sorry, please replace 参数话 with 参数化，it's a typo。And 第三本 with 第三版。Thanks!
From: Fayland Lam Sent: Friday, December 03, 2010 3:14 PM To: [email protected] Subject: Re: [PerlChina] Perl Advent 2010 Day 3: kill-session2.sql Thank you. :) On 2010/12/3 15:03, Joe Jiang wrote: =for advent_year 2010 =for advent_day 3 =for advent_title Kill oracle session easily with perl =for advent_author Joe Jiang 进行数据库管理的时候，往往需要快速识别系统压力的来源（有罪的 Session），然后快速杀除。但是有时候真的会有意外的麻烦。 =begin pre SQL> alter system kill session '379, 4583'; =end pre 这是最标准的办法，第一个参数 379 就是会话编号，第二个参数是序列号（Serial#，和软件版权无关，纯粹用来避免 SID 复用带来的问题）。用足够权限的用户连接，然后输入这条命令。可是如果需要更加灵活的杀除，就很麻烦。即使 SQL 本身如此简单，能否脚本化呢？最简单的想法是这样的： =begin pre $ echo "alter system kill session '?'"|do-adm 59,36463 DBD::Oracle::st execute failed: called with 1 bind variables when 0 are needed [for Statement "alter system kill session '?' =end pre 单引号内的问号显然是无法成为绑定变量的，所以必须另寻他方。 =begin pre $ echo "alter system kill session ?"|do-adm \'59,36463\' DBD::Oracle::st execute failed: ORA-01036: illegal variable name/number (DBD ERROR: OCIBindByName) [for Statement "alter system kill session ?" with ParamValues: :p1=''59,36463''] at -e line 1, <STDIN> line 1. =end pre 这里看到，即使把单引号一起作为参数传递进去，也还是有问题的。 =begin pre $ sed s/?/333,25308/ kill-session.sql | do-adm =end pre 这个方案可行，其中 kill-session.sql 的内容就是第一条命令中 echo 的 SQL 代码。不过这么做还是有些小小的丑陋。问题在于，这样的做法中，真正的参数在命令的前方，而不是大家习惯的击键序列：上一行、退格...、输入参数、回 车。于是，现在有了第三本的参数话做法： =begin pre $ cat kill-session2.sql begin for i in (select 'alter system kill session '||chr(39)||?||','||?||chr(39) cmd from dual) loop execute immediate i.cmd; end loop; end; $ do-bofcadm <kill-session2.sql 59 36463 =end pre 这里使用了 Oracle PL/SQL 来执行动态拼接的 SQL，其中的 chr(39) 就是单引号。要是高兴的话，还可以在 select 部分加入一些和其他系统表的连接查询，判断 SID 和序列号是否真实存在。下面看看受到惩罚的测试会话： =begin pre SQL> select distinct SID, serial# from v$mystat join v$session using (SID); SID SERIAL# ---------- ---------- 59 36463 SQL> select distinct SID, serial# from v$mystat join v$session using (SID); select distinct SID, serial# from v$mystat join v$session using (SID) * ERROR at line 1: ORA-00028: your session has been killed =end pre 最后，也要分享 do-adm 这个程序： =begin pre $ cat bin/do-adm perl -MDBI -le '($s=($d=DBI->connect(q(dbi:Oracle:host=localhost;port=9999;sid=ORCL),q(user),q(pass)))->prepare_cached(join q(),<STDIN>))->execute(@ARGV); $d->disconnect' $* =end pre -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 -- Fayland Lam // http://www.fayland.org/ -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
