Oracle FAQ Your Portal to the Oracle Knowledge Grid
HOME | ASK QUESTION | ADD INFO | SEARCH | E-MAIL US
 

Home -> Community -> Usenet -> c.d.o.server -> Re: ANNOUNCE: DDL::Oracle v1.09

Re: ANNOUNCE: DDL::Oracle v1.09

From: George Barbour <george.barbour_at_gecm.com>
Date: Sun, 29 Apr 2001 13:16:18 +0100
Message-ID: <3aec0440$1@pull.gecm.com>

What are you taking about?
What is a DDL::Oracle? Why are you posting cryptic messages here? George Barbour

"Richard Sutherland" <rvsutherland_at_yahoo.com> wrote in message news:tentos2umveg06_at_corp.supernews.com...
>



> Release of , Version 1.09
>


>
> CHANGES
>
> Added type 'schema', which generates the DDL for a named schema(s) for
> the following object types in the sequence listed:
>
> TYPE
> TABLE
> INDEX
> CONSTRAINT
> SEQUENCE
> TRIGGER
> VIEW
> SNAPSHOT LOG
> SNAPSHOT
> SYNONYM
> DATABASE LINK
> FUNCTION
> PROCEDURE
> PACKAGE
> PACKAGE BODY
>
> Upgraded CREATE SNAPSHOT to work properly on Oracle versions pre-8i.
>
> Fixed bug #414510 submitted by Henrik Johnson wherein the CREATE TABLE
> for IOT's was missing the sometime-required OVERFLOW clause. THANKS,
> Henrik!
>
> Fixed defrag.pl to work on Windows [I think].
>
> SYNOPSIS
>
> use DBI;
> use DDL::Oracle;
>
> my $dbh = DBI->connect(
> "dbi:Oracle:dbname",
> "username",
> "password",
> {
> PrintError => 0,
> RaiseError => 1,
> }
> );
>
> # Use default resize and schema options.
> # query default DBA_xxx tables (could use USER_xxx for non-DBA types)
>
> ::Oracle->configure(
> dbh => $dbh,
> );
>
> # Create a list of one or more objects
> my $sth = $dbh->prepare(
> "SELECT
> owner
> , table_name
> FROM
> dba_tables
> WHERE
> tablespace_name = 'MY_TBLSP' -- your mileage may vary
> "
> );
>
> $sth->execute;
> my $list = $sth->fetchall_arrayref;
>
> my $obj = DDL::Oracle->new(
> type => 'table',
> list => $list, );
> );
>
> my $ddl = $obj->create; # or $obj->resize; or $obj->drop; etc.
>
> print $ddl; # Use STDOUT so user can redirect to d
> esired file.
>
> # Here's another example, this time for type 'components'. This type
> # differs from the norm, because it has no owner and no name.
>
> my $obj = DDL::Oracle->new(
> type => 'components',
> list => [[ 'no owner','no name' ]]
> );
>
> my $ddl = $obj->create;
>
> print $ddl;
>
>
> AUTHOR
>
> Richard V. Sutherland
> rvsutherland_at_yahoo.com
>
> COPYRIGHT
>
> Copyright (c) 2000, 2001 Richard V. Sutherland. All rights reserved.
> This module is free software. It may be used, redistributed, and/or
> modified under the same terms as Perl itself. See:
>
> http://www.perl.com/perl/misc/Artistic.html
>
>


> AVAILABILITY
>


>
> DDL::Oracle is available from the CPAN, and from:
>
> http://sourceforge.net/projects/ddl-oracle/
>
>
>
>
Received on Sun Apr 29 2001 - 07:16:18 CDT

Original text of this message

HOME | ASK QUESTION | ADD INFO | SEARCH | E-MAIL US