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)
