#!/usr/bin/perl -w package PerformDBOperations; use strict; use English; use Carp; use DBI; my $dbHandle = 0; sub new { my $class = shift(@ARG); my $self = {}; $self->{_dbUserName} = undef; $self->{_dbPassword} = undef; $self->{_dbHandle} = \$dbHandle; bless ($self,$class); return $self; } sub ConnectTo { my $self = shift; $self->{_dbUserName} = shift; $self->{_dbPassword} = shift; my $password = $self->{_dbPassword}; my $username = $self->{_dbUserName}; ${$self->{_dbHandle}} = DBI->connect( "dbi:Oracle:", "$username", "$password" ); if( !${$self->{_dbHandle}} ) { die ( "DB connection Failed \n".$DBI::errstr); } } sub DosqlStatement { my $self = shift; my $sql = shift; my $sth = ${$self->{_dbHandle}}->prepare( $sql ); if( !$sth ) { confess( "DB prepare Failed:".${$self->{_dbHandle}}->errstr); } $sth->execute(); return $sth; } 1;
