NAME Oracle::DDL - Perl class for Oracle batch DML SYNOPSIS use Oracle::DDL; my %cfg = ('conn_string'=>'usr/pwd@db', 'table_name'=>'my_ora_tab'); my $ot = Oracle::DDL->new; # or combine the two together my $ot = Oracle::DDL->new(%cfg); my $sql= $ot->prepare(%cfg); $ot->execute(); # actually create the audit table and trigger DESCRIPTION This class contains methods to create audit tables and triggers for Oracle tables. Object Constructor new (%arg) Input variables: $cs - Oracle connection string in usr/pwd@db $tn - Oracle table name without schema Variables used or routines called: None How to use: my $obj = new Oracle::DDL; # or my $obj = Oracle::DDL->new; # or my $cs = 'usr/pwd@db'; my $tn = 'my_table'; my $obj = Oracle::DDL->new(cs=>$cs,tn=>$tn); # or my $obj = Oracle::DDL->new('cs',$cs, 'tn',$tn); Return: new empty or initialized Oracle::DDL object. METHODS The following are the common methods, routines, and functions defined in this class. Exported Tag: All The *:all* tag includes all the methods or sub-rountines defined in this class. use Oracle::DDL qw(:all); add_primary_key($dbh, $tab, $pk, $exe) Input variables: $dbh - database handler $tab - table name $pk - primary key column name $exe - whether to execute the SQL statement 0 - No (default); 1- Yes. Variables used or routines called: echoMSG - display message How to use: $self->add_primary_key(4dbh, 'my_tab', 'id'); Return: 0|1 - whether it is successful 0 - OK; 1 - failed create_table($tab,$crf,$opt) Input variables: $tab - table name $crf - array ref containing table definition as $crf->[$i]{$itm}, where $i is column number and $itm is col,typ,req,wid,dft,etc. $opt - other table related options: dbh - database handler fn_sql - output file name for SQL codes fn_log - log file name for spool off and default to fn_sql with the extension replaced with .log fh_sql - output file handler for SQL codes action - whether to return SQL codes SQL (default) - return array ref containing SQL codes execute SQL codes if dbh is specified TXT - return SQL codes in text and write SQL codes to output file if fn_sql or fh_sql is specified. ALL - return SQL codes and write to output file if fn_sql or fh_sql is specified execute SQL statements if dbh is specified public_select - 1 or actual grant statement drop_table - 1 - drop before creating it; 0 - not drop relax_constraint - 0 - no; 1 - yes Variables used or routines called: echoMSG - display message How to use: my $cs = 'usr/pwd\@db'; my $dbh = get_dbh($cs); my $fh = new IO::File "> myfile.sql"; my %opt = (dbh=>$dbh, fh_sql => $fh,action=>'txt'); my $crf = $self->read_tab_def('table.def', 'myTab',','); my $sql = $self->create_table('myTab',${$crf}{mytab},\%opt); Return: the result of table creation or the SQL code for creating the table. HISTORY * Version 0.10 This version is to test the concept. * Version 0.2 SEE ALSO (some of docs that I check often) Oracle::Loader, Oracle::Trigger, Oracle::DML, Oracle::DML::Common, CGI::Getopt, File::Xcopy AUTHOR Copyright (c) 2005 Hanming Tu. All rights reserved. This package is free software and is provided "as is" without express or implied warranty. It may be used, redistributed and/or modified under the terms of the Perl Artistic License (see http://www.perl.com/perl/misc/Artistic.html)