简单的Shell脚本 - 如何在PL / SQL中执行相同的操作

时间:2013-01-22 08:45:11

标签: sql oracle shell plsql oracle10g

我有一个带有SQL代码的简单shell脚本:

  • 使用SQL * Plus(SQL语句)生成批处理文件
  • 检查SQL * Plus的输出是否超过400行(如果超过400行退出并将邮件写入操作团队)
  • 如果SQL * Plus输出少于400行,则自动执行批处理文件

这个脚本非常有效。我希望用PL / SQL编写相同的脚本(没有Shell代码)。这可能吗?你能给我提供代码(我正在学习PL / SQL)。

数据库是Solaris上的Oracle数据库10g企业版10.2.0.4.0版。

#!/bin/ksh
. /opt/db/scripts/setpath.sh

generate_batch ()
{
sqlplus -S $DBUSER/$DBPASSWD@$ORACLE_SID <<EOF > /opt/db/scripts/tools/delete_connection/batchrun/batchrun.$(/bin/date '+%d%m%Y.%Hh')

set echo Off
set term On
set pages 0
set head off
set ver off
set feed off
set trims on
set linesize 20000

WITH data
    AS (SELECT user_id,
               jc_name,
               upd_time,
               RANK () OVER (PARTITION BY user_id ORDER BY upd_time ASC)
                  rk
          FROM user_jc
         WHERE user_id IN (  SELECT user_id
                               FROM user_jc
                              WHERE JC_NAME LIKE 'CFF\_S\_%' ESCAPE '\'
                           GROUP BY user_id
                             HAVING COUNT (user_id) > 1)
               AND JC_NAME LIKE 'CFF\_S\_%' ESCAPE '\')
SELECT    'DISCONNECT ent_user  FROM job_code WITH user_id = "'
   || user_id
   || '", jc_name = "'
   || jc_name
   || '";'
  FROM data
 WHERE rk = 1;

exit
EOF
}

sanity_check ()
{
line_nr=$(wc -l /opt/db/scripts/tools/delete_connection/batchrun/batchrun.$(/bin/date '+%d%m%Y.%Hh') | awk ' { print $1 } ')
if [ $line_nr -gt 400 ]; then
        (cat /opt/db/scripts/tools/delete_connection/mail_body.txt) | mailx -s "Alert: please manually execute /opt/db/scripts/tools/delete_connection/batchrun/batchrun.$DATE" -r test@example.com test2@example.com
        exit 1
        fi
}

run_batch ()
{
/opt/bmchome/bin/ess batchrun -A -i /opt/db/scripts/tools/delete_connection/batchrun/batchrun.$(/bin/date '+%d%m%Y.%Hh')
}

generate_batch && sanity_check && run_batch

1 个答案:

答案 0 :(得分:1)

在PL / SQL中,我会反过来这样做:

  1. 计算与您的查询匹配的连接数
  2. 如果结果&gt; 400发送电子邮件
  3. 否则可能会生成断开连接语句,可能是ALTER SYSTEM DISCONNECT SESSION ...
  4. 我当然不知道您的要求,但可以通过限制用户连接的资源配置文件来解决吗?

    CREATE PROFILE myprofile LIMIT SESSIONS_PER_USER = 1;
    ALTER USER myuser PROFILE myprofile;