0

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

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

该脚本运行良好。我希望用 PL/SQL 编写相同的脚本（没有 Shell 代码）。这可能吗？你能给我提供代码吗（我正在学习 PL/SQL）。

数据库是 Solaris 上的 Oracle Database 10g Enterprise Edition Release 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
4

1 回答 1

1

在 PL/SQL 中，我会反其道而行之：

  1. 计算与您的查询匹配的连接数
  2. 如果结果 > 400 发送电子邮件
  3. 否则生成断开连接语句，可能带有ALTER SYSTEM DISCONNECT SESSION...

我当然不知道您的要求，但是可以通过资源配置文件来限制用户连接吗？

CREATE PROFILE myprofile LIMIT SESSIONS_PER_USER = 1;
ALTER USER myuser PROFILE myprofile;
于 2013-01-22T09:03:24.460 回答