• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 382
  • Last Modified:

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.
0
gudii9
Asked:
gudii9
1 Solution
 
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

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now