Chinaunix首页 | 论坛 | 博客
  • 博客访问: 11676520
  • 博文数量: 8065
  • 博客积分: 10002
  • 博客等级: 中将
  • 技术积分: 96708
  • 用 户 组: 普通用户
  • 注册时间: 2008-04-16 17:06
文章分类

全部博文(8065)

文章存档

2008年(8065)

分类: 服务器与存储

2008-04-21 09:32:38

的被存放在中,在这种情况下,使用传统工具管理它们就变得很困难。但是,如果你知道在哪找到它们那么就可以容易的管理它们。
  
  在管理存储进程中,最重要的DBA视图是:
  
  ·DBA_OBJECTS
  
 
  ·DBA_SOURCE
  
  ·DBA_ERRORS
  
  在这篇文章中,我们将着重介绍DBA_OBJECTS视图。它存储了关于PACKGE,PACKGE BODY,PROCEDURE, FUNCTION, TRIGGER, CLASS, JAVA RESOURCE, 和 JAVA DATA以及其他的信息。DBA_OBJECTS中的STATUS指出了对象在上次编译的时候是否出现了错误。它将被设置成‘VALID’或者‘INVALID’。
  
  在数据库中使用这个代码列出所有有错误或者由于被修改需要再编译的对象。
  
  select owner,object_name,object_type from dba_objects where status = 'INVALID';
  
  一个包可能会变得无效,因为它的引用有可能被再编译。你可以利用SQL DDL语句在没有源代码的情况下重新编译一个包:
  
  alter function FOO compile;
  alter java source FOO compile;
  alter java class FOO compile;
  alter procedure FOO compile;
  alter package FOO compile;
  alter package FOO compile body;
  alter trigger FOO compile body;
  
  和每个对象相关的有三个时间戳。CREATED的时间戳是对象首次被创建的时候。时间戳这一栏是在对象上次被说明的时候制定的。LAST_DDL_TIME是DDL语句上次被执行的时间。
  
  你可以写SQL*Plus脚本,它可以帮组你扫描非法的脚本并尝试重新编译它们:
  
  set feedback off
  set heading off
  set linesize 1000
  set pagesize 0
  set pause off
  set trimspool on
  set verify off
  spool tmp.sql;
  select 'alter '||object_type||' '||owner||'.'||object_name||' compile;'
   from dba_objects
   where status = 'INVALID'
    and object_type in ('FUNCTION','JAVA SOURCE','JAVA CLASS','PROCEDURE','PACKAGE','TRIGGER');
  select 'alter package '||owner||'.'||object_name||' compile body;'
   from dba_objects
   where status = 'INVALID'
    and object_type = 'PACKAGE BODY';
  spool off;
  @tmp
  
  当你运行的时候,这个脚本将会创建第二个脚本,这个脚本叫做Tmp.sql。它发布所有的ALTER命令然后运行这个脚本。
  
  在开发环境里使用“make”或者“ant”,它对比较数据库中的源文件和被修改的列表文件起了很大的作用,然后,将它们再装到数据库中。下面这个简单的脚本将演示如何使用Perl来完成这个过程:
  
  #!/usr/local/bin/perl
  # generate a list of file dependencies
  # assume the following extensions:
  #  fnc - function
  #  pkh - package
  #  pkb - package body
  #  prc - procedure
  #  trg - trigger
  use DBI;
  $dbh = DBI->connect('dbi:Oracle:','scott','tiger') || die $DBI::errstr;
  $sth = $dbh->prepare(<  select timestamp from user_objects
   where object_name = ?
    and object_type = ?
    and timestamp < ?
  DEPEND
  opendir(DIR,'.') || die $!;
  @depends = ();
  while ($filename = readdir(DIR))
  {
    if ($filename =~ /(.*)\.fnc$/)
    {
      $object_name = uc($1);
      $object_type = 'FUNCTION';
    }
    elsif ($filename =~ /(.*)\.pkh$/)
    {
      $object_name = uc($1);
      $object_type = 'PACKAGE';
    }
    elsif ($filename =~ /(.*)\.pkb$/)
    {
      $object_name = uc($1);
      $object_type = 'PACKAGE BODY';
    }
    elsif ($filename =~ /(.*)\.prc$/)
    {
      $object_name = uc($1);
      $object_type = 'PROCEDURE';
    }
    elsif ($filename =~ /(.*)\.trg$/)
    {
      $object_name = uc($1);
      $object_type = 'TRIGGER';
    }
    else
    {
      next;
    }
    my @stat = stat($filename);
    my @time = localtime($stat[9]);
    my $timestamp = sprintf '%04d-%02d-%02d:%02d:%02d:%02d',
      $time[5]+1900,$time[4]+1,$time[3],$time[2],$time[1],$time[0];
    $sth->execute($object_name,$object_type,$timestamp);
    while ($row = $sth->fetchrow_hashref)
    {
      push(@depends,$filename);
    }
  }
  closedir(DIR);
  $sth->finish;
  $dbh->disconnect;
  print join(' ',@depends),"\n";
  
  我们可以注意到这个脚本使用TIMESTAMP来代替LAST_DDL_TIME来分析依存关系。如果脚本试图改变源代码,那么TIMESTAMP将被改变。同时,我们可以注意到TIMESTAMP不是一个DATE栏,但是VARCHAR2(19)栏包含了YYYY-DD-MM:HH24:MI:SS 格式的时间戳。
  
  如果存储过程被创建但是没有错误,那么对象,它的源代码和错误将被存储在数据库中。你可以提出询问来检查错误和一个单独视图中的源代码:
  
  create or replace procedure foo
  as
  begin
    for I in 1..10 loop
      null;
  end;
  /
  Warning: Procedure altered with compilation errors.
  
  create or replace view my_user_source_errors as
  select name,type,line,0 sequence,text from user_source
  union
  select name,type,line,sequence,'****'||text from user_errors;
  
  select text from my_user_source_errors
  where name = 'FOO' and type = 'PROCEDURE'
  order by line,sequence;
  
  TEXT
  ----------------------------------------------------------------------
  procedure foo
  as
  begin
    for i in 1 .. 2 loop
      null;
  end;
  ****PLS-00103: Encountered the symbol ";" when expecting one of the following: loop
  
  7 rows selected.
阅读(1071) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~