unable to write Perl script by invoking small stored procedure to make simple calculation like addition,increment value then insert into oracle databsse table

I was unable to write simple sample Perl script program which invokes small simple stored procedure to make simple calculation like addition,incrementing the value etc and then insert into oracle databsse table.I am new to Perl scripting as well as database.I installed active perl 5.1 and able to write hello world program on my vista operating system laptop.Oracle database i have on my laptop is Oracle Database 10g Express Edition.Once i am able to do this end to end test scenario from perl to stored procedure to inserting into oracle database i can extrapolate this concept to my larger scope migration project.Please help in this task by providing sample perl,stored procedure,insert statement etc code snippets,approach,links,resources.Thanks in advance.
LVL 7
gudii9Asked:
Who is Participating?
 
Adam314Commented:

#!/usr/bin/perl
use strict;
use DBI;
 
#replace database_name, username, and password as necessary
my $dbh = DBI->connect('dbi:Oracle:database_name', 'username', 'password')
 or die "Could not connect: $DBI::errstr";
 
 
#Run stored procedure
$dbh->do('BEGIN myPackage.myProcedure; END;')
  or die "Could not run stored procedure: $DBI::errstr\n";
 
#Insert just once
$dbh->do("INSERT INTO table (col1, col2) VALUES (5, 10)");
 
#Prepare to insert, then insert several times
my $sth = $dbh->prepare("INSERT INTO table (col1, col2) VALUES (?, ?)");
$sth->execute(5, 10);
$sth->execute('hello', 'world');
 
#Disconnect
$dbh->disconnect;

Open in new window

0
 
gudii9Author Commented:
thank you very much for your help.I appreciate it
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.