DBI equivalent of Oraperl ora_titles function !
Hi all, What's the DBI equivalent of Oraperl ora_titles function ? I need it because I want to get the titles (column names) of a select query into an array without fetching the row values from the database. Thanks Regards, Amit Saxena
Re: DBI equivalent of Oraperl ora_titles function !
Amit Saxena wrote: Hi all, What's the DBI equivalent of Oraperl ora_titles function ? I need it because I want to get the titles (column names) of a select query into an array without fetching the row values from the database. Thanks Regards, Amit Saxena I have not used Oraperl but the column names are statement attributes. See http://search.cpan.org/~timb/DBI-1.607/DBI.pm#NAME_(array-ref,_read-only) You may also want to look at NUM_OF_FIELDS. but you need to issue a select to get them via that method - although not necessarily fetch any rows. See column_info for an alternative that only works for getting column names from a table - not a select statement. Martin -- Martin J. Evans Easysoft Limited http://www.easysoft.com
Re: DBI equivalent of Oraperl ora_titles function !
On Tue, Aug 5, 2008 at 3:19 PM, Martin Evans [EMAIL PROTECTED]wrote: Amit Saxena wrote: Hi all, What's the DBI equivalent of Oraperl ora_titles function ? I need it because I want to get the titles (column names) of a select query into an array without fetching the row values from the database. Thanks Regards, Amit Saxena I have not used Oraperl but the column names are statement attributes. See http://search.cpan.org/~timb/DBI-1.607/DBI.pm#NAME_(array-ref,_read-only)http://search.cpan.org/%7Etimb/DBI-1.607/DBI.pm#NAME_%28array-ref,_read-only%29 You may also want to look at NUM_OF_FIELDS. but you need to issue a select to get them via that method - although not necessarily fetch any rows. See column_info for an alternative that only works for getting column names from a table - not a select statement. Martin -- Martin J. Evans Easysoft Limited http://www.easysoft.com Thanks Martin, It worked for me. Regards, Amit Saxena
Re: Oraperl $ora_errno problem with $ora_fetch.
On Mon, Jan 08, 2007 at 09:46:09PM +, Nathan Morrow wrote:
Below are the test runs of the following script:
Test the new proposed version
- ora_fetch
- () [0 items]
$ora_errno is DEFINED
$ora_errno = 0
!! warn: 0 CLEARED by call to finish method
- finish for DBD::Oracle::st (DBI::st=HASH(0x12f864)~0x29d784)
- finish= 1 at test_fetch.pl line 21
Try this (also untested) in addition to the previous patch:
--- dbdimp.c(revision 7883)
+++ dbdimp.c(working copy)
@@ -2232,6 +2232,10 @@
if (DBIc_DBISTATE(imp_sth)-debug = 6)
PerlIO_printf(DBIc_LOGPIO(imp_sth), dbd_st_finish\n);
+if (DBIc_COMPAT(imp_sth) !SvOK(DBIc_ERR(imp_sth))) {
+sv_setiv(DBIc_ERR(imp_sth), 0);
+}
+
if (!DBIc_ACTIVE(imp_sth))
return 1;
Tim.
Re: Oraperl $ora_errno problem with $ora_fetch.
Below are the test runs of the following script:
BEGIN SCRIPT test_fetch.pl
#!/usr/local/perl5.8.4/bin/perl -w
use Oraperl;
ora_version;
my $lda = ora_login('','','')
or die Connect failed: $ora_errno, $ora_errstr
;
$lda-debug(4);
my $select_stmt = q{select application from busndate where application =
'NOT_THERE'};
my $cursor = ora_open( $lda, $select_stmt )
or die Couldn't open cursor: $ora_errno, $ora_errstr;
my @busndate_row = ora_fetch( $cursor );
print We have data\n if @busndate_row;
if ( defined($ora_errno) ) {
print \$ora_errno is DEFINED\n;
print \$ora_errno = $ora_errno\n;
}
else {
print \$ora_errno is not defined.\n;
}
ora_close( $cursor );
ora_logoff( $lda );
END SCRIPT test_fetch.pl
NOTE: The original DBD::Oracle 1.19 interface behaves the same as before
(undef $ora_errno on end of data) when linked against Oracle 10.2.
Test original Perl5.8.4 installed version
$ PERL5LIB= perl test_fetch.pl
Oraperl emulation interface version 1.44
DBD::Oracle 1.15 using OCI8 by Tim Bunce
DBI 1.42 by Tim Bunce
DBI::db=HASH(0x12f5f4) trace level set to 0x4/0 (DBI @ Ox0/0) in DBI
1.42-nothread (pid 27320)
- prepare for DBD::Oracle::db (DBI::db=HASH(0x134880)~0x12f5f4 'select
application from busndate where application = 'NOT_THERE'')
dbih_setup_handle(DBI::st=HASH(0x12fb04)=DBI::st=HASH(0x134a54),
DBD::Oracle::st, 12fb10, Null!)
dbih_make_com(DBI::db=HASH(0x12f5f4), 12fd88, DBD::Oracle::st, 208, 0)
thr#0
dbd_st_prepare'd sql SELECT (pl1, al1, cs1)
dbd_describe SELECT (EXPLICIT, lb 80)...
fbh 1: 'APPLICATION'NO null , otype 1- 5, dbsize 15/16,
p15.s0
dbd_describe'd 1 columns (row bytes: 15 max, 7 est avg, cache: 730)
- prepare= DBI::st=HASH(0x12fb04) at Oraperl.pm line 122 via
test_fetch.pl line 10
- FETCH for DBD::Oracle::st (DBI::st=HASH(0x134a54)~INNER
'NUM_OF_PARAMS')
.. FETCH DBI::st=HASH(0x134a54) 'NUM_OF_PARAMS' = 0 (cached)
- FETCH= 0 at Oraperl.pm line 125 via test_fetch.pl line 10
- execute for DBD::Oracle::st (DBI::st=HASH(0x12fb04)~0x134a54)
dbd_st_execute SELECT (out0, lob0)...
dbd_st_execute SELECT returned (SUCCESS, rpc0, fn4, out0)
- execute= '0E0' at Oraperl.pm line 125 via test_fetch.pl line 10
- ora_fetch
- () [0 items]
$ora_errno is not defined.
- finish for DBD::Oracle::st (DBI::st=HASH(0x12fb04)~0x134a54)
- finish= 1 at test_fetch.pl line 21
- disconnect for DBD::Oracle::db (DBI::db=HASH(0x134880)~0x12f5f4)
- disconnect= 1 at Oraperl.pm line 105 via test_fetch.pl line 22
- DESTROY for DBD::Oracle::st (DBI::st=HASH(0x134a54)~INNER)
- DESTROY= undef
- DESTROY for DBD::Oracle::db (DBI::db=HASH(0x12f5f4)~INNER)
- DESTROY= undef
Test the new proposed version
$ PERL5LIB=/users/nmorro01/perl58lib/oracle8/lib/site_perl perl
test_fetch.pl
Oraperl emulation interface version 1.44
DBD::Oracle 1.19 using OCI8.1.7.0 by Tim Bunce
DBI 1.42 by Tim Bunce
DBI::db=HASH(0x12f2bc) trace level set to 0x4/0 (DBI @ Ox0/0) in DBI
1.42-nothread (pid 27353)
- prepare for DBD::Oracle::db (DBI::db=HASH(0x29d5b0)~0x12f2bc 'select
application from busndate where application = 'NOT_THERE'')
dbih_setup_handle(DBI::st=HASH(0x12f864)=DBI::st=HASH(0x29d784),
DBD::Oracle::st, 12f870, Null!)
dbih_make_com(DBI::db=HASH(0x12f2bc), 12f6d0, DBD::Oracle::st, 216, 0)
thr#0
dbd_st_prepare'd sql SELECT (pl1, auto_lob1, check_sql1)
dbd_describe SELECT (EXPLICIT, lb 80)...
col 1: dbtype 1, scale 0, prec 15, nullok 0, name APPLICATION
: dbsize 15, char_used 0, char_size 0, csid 1, csform 1, disize 15
fbh 1: 'APPLICATION'NO null , otype 1- 5, dbsize 15/16,
p15.s0
row cache OCI_ATTR_PREFETCH_ROWS 730, OCI_ATTR_PREFETCH_MEMORY 0
calling OCIAttrSet OCI_ATTR_CHARSET_FORM with csform=1
dbd_describe'd 1 columns (row bytes: 15 max, 7 est avg, cache: 730)
- prepare= DBI::st=HASH(0x12f864) at Oraperl.pm line 118 via
test_fetch.pl line 10
- FETCH for DBD::Oracle::st (DBI::st=HASH(0x29d784)~INNER
'NUM_OF_PARAMS')
.. FETCH DBI::st=HASH(0x29d784) 'NUM_OF_PARAMS' = 0 (cached)
- FETCH= 0 at Oraperl.pm line 121 via test_fetch.pl line 10
- execute for DBD::Oracle::st (DBI::st=HASH(0x12f864)~0x29d784)
dbd_st_execute SELECT (out0, lob0)...
dbd_st_execute SELECT returned (SUCCESS, rpc0, fn4, out0)
- execute= '0E0' at Oraperl.pm line 121 via test_fetch.pl line 10
- ora_fetch
- () [0 items]
$ora_errno is DEFINED
$ora_errno = 0
!! warn: 0 CLEARED by call to finish method
- finish for DBD::Oracle::st (DBI::st=HASH(0x12f864)~0x29d784)
- finish= 1 at test_fetch.pl line 21
- disconnect for DBD::Oracle::db (DBI::db=HASH(0x29d5b0)~0x12f2bc)
- disconnect= 1 at Oraperl.pm line 101 via test_fetch.pl line 22
- DESTROY for DBD::Oracle::st (DBI::st=HASH(0x29d784)~INNER)
- DESTROY= undef
- DESTROY for DBD::Oracle::db (DBI::db=HASH(0x12f2bc)~INNER)
- DESTROY= undef
From: Tim Bunce [EMAIL
RE: Oraperl
You should read the Oracle SQL*Plus docs for the meaning of / as a
username.
-Original Message-
From: Gupta, Razat [mailto:[EMAIL PROTECTED]
Sent: Thursday, October 06, 2005 11:35 PM
To: dbi-users@perl.org
Subject: Oraperl
Hi EveryOne,
I have a query related to Oraperl.
Actually , I have a script which is creating a connection to an Oracle
database.
The connection code is :
ora_login('','/','');
What I know is that for system_id , it is taking the value of
ORACLE_SID
But I not getting what it is taking for UserName and Password.
Can any one help me in understanding this thing.
All advices are most welcome.
Thanks,
Razat
This electronic message transmission is a PRIVATE communication which contains
information which may be confidential or privileged. The information is
intended
to be for the use of the individual or entity named above. If you are not the
intended recipient, please be aware that any disclosure, copying, distribution
or use of the contents of this information is prohibited. Please notify the
sender of the delivery error by replying to this message, or notify us by
telephone (877-633-2436, ext. 0), and then delete it from your system.
Oraperl
Hi EveryOne,
I have a query related to Oraperl.
Actually , I have a script which is creating a connection to an Oracle
database.
The connection code is :
ora_login('','/','');
What I know is that for system_id , it is taking the value of
ORACLE_SID
But I not getting what it is taking for UserName and Password.
Can any one help me in understanding this thing.
All advices are most welcome.
Thanks,
Razat
RE: oraperl to perl-dbi questions
-Original Message-
From: Sid Katz [mailto:[EMAIL PROTECTED]
Sent: Tuesday, August 02, 2005 12:14 PM
I am converting oraperl statments to the new Perl-DBI format and do
not entirely understand the Perl-DBI syntax. I have included code
with the oraperl method and what I think is the correct Perl-DBI
method.
My 2 questions are:
# is $INSERT correct as written or should it be ...values ( ?, ?, ?,
...) ?
I've never used oraperl and am no expert in DBI DBD but my code uses
?
and works. Although I usually specify the column names and values to
insulate myself from changes to the table structure.
IE. INSERT INTO table (column name1, column name2, etc)
VALUES (?,?,etc);
# is the insert request $csrd-execute... correct as written ?
Yes, that's how I code it.
HTH, Paula
-- PERL CODE --
snip
# insert command using oraperl
$INSERT = insert into $TABLE values (:1, :2, :3, :4, :5, :6, :7, :8,
;
$INSERT = $INSERT.:9, :10, :11, :12, :13) ;
$csrd = ora_open($lda, $INSERT) || die $ora_errstr\n ;
# new insert command using perl-dbi
my $csrd = $lda-prepare( qw{$INSERT}) ||Can't prepare stmt:
$DBI::errstr\n ;
snip
# try insert operation using oraperl
ora_bind($csrd,$obsdate,$id,$obstime,$elemcod,$val,$rv,$dur,
$tc,$sc,$ec,$org,'0',$qual) ;
# try insert operation using perl-dbi
$csrd-execute($obsdate,$id,$obstime,$elemcod,$val,$rv,$dur,$tc,$sc,$ec,
$org,'0',$qual)
;
oraperl to perl-dbi questions
Hi,
I am converting oraperl statments to the new Perl-DBI format and do not
entirely understand the Perl-DBI syntax. I have included code with the
oraperl method and what I think is the correct Perl-DBI method. My 2
questions are:
# is $INSERT correct as written or should it be ...values ( ?, ?, ?, ...) ?
# is the insert request $csrd-execute... correct as written ?
Thanks,
Sid Katz
-- PERL CODE --
$DBASE = $ENV{ORACLE_SID};
$USER = 'wd53sk' ;
$PASSWD = 'wd53sk' ;
$TABLE = 'dlyprcp';
#former connect using oraperl
$lda = ora_login($DBASE, $USER, $PASSWD) || die $ora_errstr\n;
$on = 1 ;
ora_autocommit($lda,$on) || die $ora_errstr\n;
#new connect using perl-dbi
my $data_source = “dbi:Oracle:$DBASE”;
my $lda = DBI -connect ($data_source, $USER, $PASSWD,
{ RaiseError =1, AutoCommit = 0} )
|| die “Database connection not made: $DBI::errstr\n” ;
# insert command using oraperl
$INSERT = insert into $TABLE values (:1, :2, :3, :4, :5, :6, :7, :8, ;
$INSERT = $INSERT.:9, :10, :11, :12, :13) ;
$csrd = ora_open($lda, $INSERT) || die $ora_errstr\n ;
# new insert command using perl-dbi
my $csrd = $lda-prepare( qw{$INSERT}) ||Can't prepare stmt: $DBI::errstr\n” ;
while ()
{ chop;
($id, $yr, $mn, $dy, $hr, $mi, $p1, $p2, $dur, $tc, $sc, $ec, $j1,
$val, $qual, $rv, $org) = split( ,$_) ; # split record into variables
if ($yr $curyr)
{ $yr = $curyr; } ;
$obsdate = ($yr*1) + ($mn*100) + $dy ; # create observation date
# in form mmdd
$obstime = $hr * 100 + $mi ; # create obs hour in form hhmm
$elemcod = $p1.$p2 ;
# try insert operation using oraperl
ora_bind($csrd,$obsdate,$id,$obstime,$elemcod,$val,$rv,$dur,
$tc,$sc,$ec,$org,'0',$qual) ;
# try insert operation using perl-dbi
$csrd-execute($obsdate,$id,$obstime,$elemcod,$val,$rv,$dur,$tc,$sc,$ec,$org,'0',$qual)
;
# rest of commands here, but deleted for brevity...
porting oraperl to dbi
is there an web based guide detailing how to port oraperl to the perl-dbi format?
Error while using Oraperl package.
Hi, I am using Oraperl pack for my development. I get the following error at the line where I use Oraperl ( use Oraperl). Unknown error Compilation failed in require at /home/ebso/EM10103_agent/sysman/admin/scripts/semd_common.pl line 34. BEGIN failed--compilation aborted at /home/ebso/EM10103_agent/sysman/admin/scripts/semd_common.pl line 34. Compilation failed in require at /home/ebso/EM10103_agent/sysman/admin/discover/oracledb.pl line 80. I am clueless about this error. Could you please help me in resolving this. Thanks in advance. Ashish -- -- Ashish Kumar Jain Phone: +91 80 51082200 +91 98864 72277 MTS, Service Engineering Platform Technologies Group Oracle India Private Limited -- Disclaimer: The opinions expressed in this mail are mine, and do not necessarily represent those of Oracle Corporation --
Re: Error while using Oraperl package.
On 06/16/2005 02:55 AM, Ashish Jain said: I am using Oraperl pack for my development. I get the following error at the line where I use Oraperl ( use Oraperl). You should not be using Oraperl for new development. It is a wrapper around DBI and DBD::Oracle intended to allow existing programs written for oraperl (Perl 4 with Oracle OCI compiled in) to run with minimal changes. New development should use DBI directly. Unknown error Compilation failed in require at /home/ebso/EM10103_agent/sysman/admin/scripts/semd_common.pl line 34. BEGIN failed--compilation aborted at /home/ebso/EM10103_agent/sysman/admin/scripts/semd_common.pl line 34. Compilation failed in require at /home/ebso/EM10103_agent/sysman/admin/discover/oracledb.pl line 80. I am clueless about this error. Could you please help me in resolving this. You haven't given us any clues to help you with. A copy of the relevant parts of the scripts would make it possible for us to make some better guesses. Try reducing the script to the minimum that shows the error. -- Mac :}) ** I usually forward private questions to the appropriate mail list. ** Ask Smarter: http://www.catb.org/~esr/faqs/smart-questions.html Give a hobbit a fish and he eats fish for a day. Give a hobbit a ring and he eats fish for an age.
CPU usage for Oraperl emulation
Hi I am using Oraperl emulation for DBD:Oracle for a perl program in HP-UX11i. I would like to know the amount of CPU usage by Oraperl since we are having CPU usage constraints. I would also like to know whether waiting for input will put the state of the process to 'Sleep'. Thanks and Regards, Devaraj
FW: CPU usage for Oraperl emulation
Hi I am using Oraperl emulation for DBD:Oracle for a perl program in HP-UX11i. I would like to know the amount of CPU usage by Oraperl since we are having CPU usage constraints. I would also like to know whether waiting for input will put the state of the process to 'Sleep'. Thanks and Regards, Devaraj
Re: CPU usage for Oraperl emulation
On Mon, Oct 18, 2004 at 02:20:14PM +0530, rajarathnam, devaraj wrote: Hi I am using Oraperl emulation for DBD:Oracle for a perl program in HP-UX11i. I would like to know the amount of CPU usage by Oraperl since we are having CPU usage constraints. The CPU usage by Oraperl (plus DBI + DBD::Oracle) is not significant. Your application will use much more CPU. I would also like to know whether waiting for input will put the state of the process to 'Sleep'. It will. Tim.
Oraperl and 64-bit Perl on HPUX
Good morning! I have been in charge of installing Oraperl on a bunch of our HPUX systems. I've gone from 10.20 all the way to 11i. I found your cpan.org site, which has almost all of the information that I already gleaned from sources abroad. Thanks for maintaining all this, it's a great tool to use. I recently had a problem with Oracle 9 64-bit on HPUX 11i. We have another application that required SH_LIBARY_PATH to point to the 64-bit libraries, which broke the Oraperl module. So I did some research and successfully recompiled and re-installed with the most recent versions of everything (perl, DBI, DBD) that works with 64-bit shared libraries. This is the error we were getting (basically) /usr/lib/dld.sl: Bad magic number for shared library: /ora1/app/oracle/product/9.2.0.1.0/lib32 I resolved the issue. I thought you might want to add it to your README.HPUX at some point. Here is my step-by-step instructions, pretty much what you have but streamlined for this particular case. Required software: HPUX 11.11 (11i) PA-RISC perl 5.8.4 source DBI-1.42 source DBD-Oracle-1.15 source Oracle 9.2.0.1.0 installation Step 1: Compiling Perl This compiles PERL using the default HPUX cc compiler. The important things to note here are the configure parameters. the only non-default option to take is to add +z to the additional cc flags step. # gunzip perl-5.8.4.tar.gz # tar -xf perl-5.8.4.tar # cd perl-5.8.4 # ./Configure -Ubincompat5005 -Duselargefiles -A prepend:libswanted='cl pthread ' -Duse64bitall Any additional cc flags? Add +z to beginning of list, include all other options. # make;make test make test should have over 98% succeed. If less, something is wrong. Step 2.DBI gunzip DBI-1.42.tar.gz tar -xvf DBI-1.42.tar cd DBI-1.42 perl Makefile.PL make;make test make install Step 3: Install DBD-Oracle First, set the following environment variables (custom to your own oracle install, naturally) export ORACLE_USERID=user/pass export ORACLE_HOME=/oracle/product/9.2.0.1.0 export ORACLE_SID=orap1 gunzip DBD-Oracle-1.15.tar.gz tar -xvf DBD-Oracle-1.15.tar cd DBD-Oracle-1.15 perl Makefile.PL -l make;make test make install Gram Ludlow Unix/Teamcenter LEC Support Caterpillar (765) 448-2075
Re: Oraperl and 64-bit Perl on HPUX
On Mon, May 10, 2004 at 10:11:29AM -0500, Gram M. Ludlow wrote: Good morning! I have been in charge of installing Oraperl on a bunch of our HPUX systems. Oh joy :) I resolved the issue. I thought you might want to add it to your README.HPUX at some point. Thanks. Tim.
Bug in Oraperl-Emulation of DBD::Oracle 1.14 concerning ora_errno and ora_errstr
Hi folks, the $ora_errno and $ora_errstr variables should contain the error code and the error string of the last function call to a oracle-OCI function. Unfortunately, in the oraperl-emulation of DBD::Oracle 1.14 the above mentioned variables contain the last error, regardles of successfully executed function calls. To solve this, the following patch should be applied to oraperl.pm -- SNIP SNIP 71a72 103,104c104,105 $Oraperl::ora_errno = $h-err; $Oraperl::ora_errstr = $h-errstr; --- # $Oraperl::ora_errno = $h-err; # $Oraperl::ora_errstr = $h-errstr; 219,220c220,221 *Oraperl::ora_errno = \$DBD::Oracle::err; *Oraperl::ora_errstr = \$DBD::Oracle::errstr; --- *Oraperl::ora_errno = \$DBI::err; *Oraperl::ora_errstr = \$DBI::errstr; -- SNIP SNIP Regards, Martin -- moving objects GmbH Lottestr. 55 22529 Hamburg fon: +49 40 / 57 205 - 220 fax: +49 40 / 57 205 - 100 email: [EMAIL PROTECTED] ICQ: 142508108
Re: Bug in Oraperl-Emulation of DBD::Oracle 1.14 concerning ora_errno and ora_errstr
Thanks. Tim. On Wed, Sep 03, 2003 at 04:52:08PM +0200, Martin Busik wrote: Hi folks, the $ora_errno and $ora_errstr variables should contain the error code and the error string of the last function call to a oracle-OCI function. Unfortunately, in the oraperl-emulation of DBD::Oracle 1.14 the above mentioned variables contain the last error, regardles of successfully executed function calls. To solve this, the following patch should be applied to oraperl.pm -- SNIP SNIP 71a72 103,104c104,105 $Oraperl::ora_errno = $h-err; $Oraperl::ora_errstr = $h-errstr; --- # $Oraperl::ora_errno = $h-err; # $Oraperl::ora_errstr = $h-errstr; 219,220c220,221 *Oraperl::ora_errno = \$DBD::Oracle::err; *Oraperl::ora_errstr = \$DBD::Oracle::errstr; --- *Oraperl::ora_errno = \$DBI::err; *Oraperl::ora_errstr = \$DBI::errstr; -- SNIP SNIP Regards, Martin -- moving objects GmbH Lottestr. 55 22529 Hamburg fon: +49 40 / 57 205 - 220 fax: +49 40 / 57 205 - 100 email: [EMAIL PROTECTED] ICQ: 142508108
Oraperl
Hi I have a question for Oraperl that hopefully you can answer. We currently have Oraperl (perl4) running on Solaris 2.6 connecting to a Oracle 7.3.3 DB. We need to upgrade the server to Solaris 9 and am wondering if 1) We can get Oraperl to run on Solaris 9, connecting to the Oracle 7.3.3 ? This way we do not have to change the numerous oraperl scripts we have currently running. 2) If 1 is yes, where can we get the source for Oraperl to compile it ? Thanks Divyesh
Re: Oraperl
On Tue, 15 Jul 2003 10:26:48 -0400 Divyesh Thakker [EMAIL PROTECTED] wrote: I have a question for Oraperl that hopefully you can answer. We currently have Oraperl (perl4) running on Solaris 2.6 connecting to a Oracle 7.3.3 DB. We need to upgrade the server to Solaris 9 and am wondering if 1) We can get Oraperl to run on Solaris 9, connecting to the Oracle 7.3.3 ? This way we do not have to change the numerous oraperl scripts we have currently running. 2) If 1 is yes, where can we get the source for Oraperl to compile it ? oraperl emulation is included with DBD::Oracle. You will need to build DBI and DBD::Oracle to get the functionality. The POD in Oraperl.pm (http://search.cpan.org/dist/DBD-Oracle/Oraperl.pm) shows how to use the Oraperl module. The bigest change for Oracle access is adding 'use Oraperl;' to the top of the script. If you have still been using Perl4, you may have more problems with perl4isms that don't work well in Perl5. My usual caveat applies, any new development should use DBI directly. -- Mac :}) ** I usually forward private questions to the appropriate mail list. ** Ask Smarter: http://www.catb.org/~esr/faqs/smart-questions.html Give a hobbit a fish and he eats fish for a day. Give a hobbit a ring and he eats fish for an age.
Re: (Fwd) Oraperl
On Thu, 3 Jul 2003 20:55:12 +0100 Tim Bunce [EMAIL PROTECTED] wrote: - Forwarded message from Che, Thuy [EMAIL PROTECTED] - From: Che, Thuy [EMAIL PROTECTED] To: '[EMAIL PROTECTED]' [EMAIL PROTECTED] Cc: Che, Thuy [EMAIL PROTECTED] Date: Thu, 3 Jul 2003 09:28:43 -0400 I could not find the place where I can download the Perl module named Oraperl. I need help in find the place to download it. Oraperl is part of DBD::Oracle. Any new development should use DBI and DBD::Oracle directly. http://search.cpan.org/dist/DBI/ http://search.cpan.org/dist/DBD-Oracle/ Writing to Tim instead of the list delayed your getting a response. -- Mac :}) ** I usually forward private questions to the appropriate mail list. ** Ask Smarter: http://www.catb.org/~esr/faqs/smart-questions.html Give a hobbit a fish and he eats fish for a day. Give a hobbit a ring and he eats fish for an age.
Executing SQL*Plus command with the ORAPERL module?
Hi All, How do I execute SQL*Plus commands while accessing the Oracle7 DB with the oraperl module? Specifically, I am trying to execute the SQL*Plus command, BREAK prior to executing the SQL statement. Any ideas, thoughts or help would prove very useful. Thanks, Rod A Boyle, CSC HQ USEUCOM GCCS DBA/SA Patch Barracks, Vaihingen-Stuttgart, Germany DSN: 314.430.5889 Comm: +49.711/680.5889 eMail: [EMAIL PROTECTED]
Need help on Oraperl SQL
Hi, I am having problem and need your attention. How to write an SQL statement for the below in Oraperl: $csr = ora_open($lda,select datetime, comments, user_id from table1 where message = 'NEW USER'); I knew that this will not work. Please advice the correct syntax to write it. Thanks. By the way, where can I get all the syntax documentation for Oraperl? Regards, chewlf
Need information about oraperl
Hi, I am not sure if I am sending this email to the correct group. If not excuse me for my intrusion and if possible send me in the right direction. We are thinking of moving from Sybase to Oracle (for various reasons) and we would like to make use of the PERL/Sybperl code that we have. I have a few questions and here they are: Can anyone tell me if they had done something similar and what is their experience in doing this kind of conversion? Is this approach of moving from Sybperl to Oraperl is a good one or are there any other alternatives? I would like to know if there is a web site or a mailing group or a discussion group where I could get help to do this conversion. I would also like to know the web site from where I can download the Oraperl libraries? Thanks in advance for all the help. Regards, Srinivas.
Re: Need information about oraperl
From: Andhavarapu, Srinivas [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Wednesday, April 03, 2002 09:34 Subject: Need information about oraperl I am not sure if I am sending this email to the correct group. If not excuse me for my intrusion and if possible send me in the right direction. We are thinking of moving from Sybase to Oracle (for various reasons) and we would like to make use of the PERL/Sybperl code that we have. I have a few questions and here they are: Can anyone tell me if they had done something similar and what is their experience in doing this kind of conversion? Is this approach of moving from Sybperl to Oraperl is a good one or are there any other alternatives? For a conversion from Sybperl to Oracle in Perl, oraperl may be useful, but consider converting the Sybperl calls to DBI calls instead since some changes will be necessary anyway. Any new development for either Sybase or Oracle in Perl should use DBI and DBD::Sybase or DBD::Oracle as appropriate. Using DBI makes moving to another RDBMS much easier. I would like to know if there is a web site or a mailing group or a discussion group where I could get help to do this conversion. This is the correct forum for your questions. All support is provided by your peer group, so the more research you do for yourself before asking questions, the better answers you are likely to get. I would also like to know the web site from where I can download the Oraperl libraries? Oraperl comes as part of DBD::Oracle and provides an extra layer that overlays DBI calls to DBD::Oracle. To use it, install DBI and DBD::Oracle. Run 'perldoc DBI' to see the DBI manual, 'oraperl DBD::Oracle' to see the DBD::Oracle manual, and 'perldoc Oraperl' to see the Oraperl manual. There are example scripts for some commonly performed tasks in DBD-Oracle-x.xx/Oracle.ex/. -- Mac :}) ** I normally forward private questions to the appropriate mail list. ** Ask Smarter: http://www.tuxedo.org/~esr/faqs/smart-questions.html Give a hobbit a fish and he eats fish for a day. Give a hobbit a ring and he eats fish for an age.
Stored Procedure with Oraperl
Hello, Is there somebody who can tell me how I can execute a Stored Procedure with Oraperl ? I know that is possible to do that with DBI but I have a constraint to keep Oraperl that I'm using now. Thanks in advance, José. DISCLAIMER This e-mail and any attachment thereto may contain information which is confidential and/or protected by intellectual property rights and are intended for the sole use of the recipient(s) named above. Any use of the information contained herein (including, but not limited to, total or partial reproduction, communication or distribution in any form) by other persons than the designated recipient(s) is prohibited. If you have received this e-mail in error, please notify the sender either by telephone or by e-mail and delete the material from any computer. Thank you for your cooperation. For further information about Proximus mobile phone services please see our website at http://www.proximus.be or refer to any Proximus agent.
RE: Stored Procedure with Oraperl
I just managed to successfully do this myself not long ago. I'll send you more info in a bit. -Original Message- From: NYIMI Jose (BMB) [mailto:[EMAIL PROTECTED]] Sent: Wednesday, January 09, 2002 9:13 AM To: [EMAIL PROTECTED] Subject: Stored Procedure with Oraperl Hello, Is there somebody who can tell me how I can execute a Stored Procedure with Oraperl ? I know that is possible to do that with DBI but I have a constraint to keep Oraperl that I'm using now. Thanks in advance, José. DISCLAIMER This e-mail and any attachment thereto may contain information which is confidential and/or protected by intellectual property rights and are intended for the sole use of the recipient(s) named above. Any use of the information contained herein (including, but not limited to, total or partial reproduction, communication or distribution in any form) by other persons than the designated recipient(s) is prohibited. If you have received this e-mail in error, please notify the sender either by telephone or by e-mail and delete the material from any computer. Thank you for your cooperation. For further information about Proximus mobile phone services please see our website at http://www.proximus.be or refer to any Proximus agent.
Performance problems with DBI/DBD/Oraperl
Has anyone encountered wildly different performance results between one Dec-Unix machine and another? I've installed the modules named above on two different machines, and found that for spooling data from a third remote machine--in this case an RDB database--it takes longer on one of the two Unix machines by a factor of nearly 7 !!! Unfortunately, the slower machine is our production box. It is normally much busier than the other one, yet it's supposedly a much faster, more powerful machine. I've run make test on both machines, but I'm still fairly new to this, so I'm not sure what to look for. Can anyone suggest anything? P.S. I may not be online much over the long weekend, so if you don't see any responses from me please don't think Im trawling. Jim van Scoyoc 310-964-1963 [EMAIL PROTECTED] The fact you have a new hammer doesn't mean everything's a nail.
Re: Problem with Oraperl and DBD::ORACLE within CGI scripts
Make sure the environment variables set in the webserver process are the same as those you have set when you run from the command line. Likely suspects are ORACLE_HOME, TNS_ADMIN, LD_LIBRARY_PATH, PERL5LIB, and SHLIB_PATH, but compare them all. Also make sure the account the webserver process runs in has permission to read all the Perl files and read/execute any binaries used including Oracle's libraries. There is no need to address messages like this to Tim. He is very busy and most problems can be addressed by someone on the mail list. -- Mac :}) ** I normally forward private questions to the appropriate mail list. ** Give a hobbit a fish and he eats fish for a day. Give a hobbit a ring and he eats fish for an age. - Original Message - From: Shawn Swain [EMAIL PROTECTED] To: [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Sent: Thursday, October 18, 2001 16:50 Subject: Problem with Oraperl and DBD::ORACLE within CGI scripts My team upgraded Oracle from 8.0.6 to 8.1.7. It was discovered that the CGI scripts that use Oraperl to interact with our database would cause a core dump. At the time we had perl version 5.005_03 installed, Oraperl v 1.39, DBD::ORACLE v 1.03, and DBI 1.13. I attempted to link to the new 8.1.7 libraries without success. I decided to install perl v5.6.1 and the latest versions of DBI, DBD::ORACLE, and CGI. Currently it appears that the installation was successful because all scripts can be executed from the command line without errors (as long as SHLIB_PATH is set). However when I attempt to execute our cgi scripts I run into problems.
Problem with Oraperl and DBD::ORACLE within CGI scripts
DBI users, My team upgraded Oracle from 8.0.6 to 8.1.7. It was discovered that the CGI scripts that use Oraperl to interact with our database would cause a core dump. At the time we had perl version 5.005_03 installed, Oraperl v 1.39, DBD::ORACLE v 1.03, and DBI 1.13. I attempted to link to the new 8.1.7 libraries without success. I decided to install perl v5.6.1 and the latest versions of DBI, DBD::ORACLE, and CGI. Currently it appears that the installation was successful because all scripts can be executed from the command line without errors (as long as SHLIB_PATH is set). However when I attempt to execute our cgi scripts I run into problems. Please Help. I have included the versions of the operating system, Perl, Modules, error messages from the browser, Web Server, and command line. I have also attached a file containing the output from the build process (dbd_build.txt). If needed I will e-mail the cgi script that I have been testing . Operating system: $uname -srvml HP-UX B.11.00 A 9000/800 two-user license Perl version: $perl -V Summary of my perl5 (revision 5.0 version 6 subversion 1) configuration: Platform: osname=hpux, osvers=11.00, archname=PA-RISC2.0 uname='hp-ux rsoecod2 b.11.00 a 9000800 2011785280 two-user license ' config_args='-Ubincompat5005' hint=previous, useposix=true, d_sigaction=define usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef useperlio=undef d_sfio=undef uselargefiles=define usesocks=undef use64bitint=undef use64bitall=undef uselongdouble=undef Compiler: cc='cc', ccflags ='+z -D_HPUX_SOURCE -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -Ae', optimize='-O', cppflags='+z -D_HPUX_SOURCE -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -Ae' ccversion='A.11.01.00', gccversion='', gccosandvers='' intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=4321 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16 ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8 alignbytes=8, usemymalloc=y, prototype=define Linker and Libraries: ld='ld', ldflags =' -L/usr/local/lib -L/opt/local/lib' libpth=/usr/local/lib /opt/local/lib /lib /usr/lib /usr/ccs/lib libs=-lcl -lpthread -lnsl -lnm -lndbm -ldld -lm -lc -lndir -lcrypt -lsec perllibs=-lcl -lpthread -lnsl -lnm -ldld -lm -lc -lndir -lcrypt -lsec libc=/lib/libc.sl, so=sl, useshrplib=false, libperl=libperl.a Dynamic Linking: dlsrc=dl_hpux.xs, dlext=sl, d_dlsymun=undef, ccdlflags='-Wl,-E -Wl,-B,deferred ' cccdlflags='+z', lddlflags='-b +vnocompatwarnings -L/usr/local/lib -L/opt/local/lib' Characteristics of this binary (from libperl): Compile-time options: USE_LARGE_FILES Built under hpux Compiled at Sep 24 2001 14:02:50 @INC: /opt/perl/lib/5.6.1/PA-RISC2.0 /opt/perl/lib/5.6.1 /opt/perl/lib/site_perl/5.6.1/PA-RISC2.0 /opt/perl/lib/site_perl/5.6.1 /opt/perl/lib/site_perl . Oraperl, DBD::Oracle, DBI 1.20 versions: $perl -MOraperl -e 'ora_version()' Oraperl emulation interface version 1.41 DBD::Oracle 1.12 using OCI8 by Tim Bunce DBI 1.20 by Tim Bunce CGI version. $perl -MCGI -e 'print $CGI::VERSION . \n' 2.78 Web server: Nescape Enterprise Server version 3.6 Oracle version: 8.1.7 Details about the problem and error messages from the Web Server and browser: The test cgi script is a modified monty.cgi (a cgi test script). If using Oraperl or DBD::ORACLE in a CGI script I receive the following error message in the Netscape Browser (server errors for each follow). The CGI scripts work correctly if I do not use Oraperl or DBD::Oracle. Server Error This server has encountered an internal error which prevents it from fulfilling your request. The most likely cause is a misconfiguration. Please ask the administrator to look for messages in the server's error log. Corresponding error message from server error log if 'use Oraperl': [18/Oct/2001:10:34:57] failure (28652): for host 151.119.121.214 trying to POST /cgi-bin/soe/elb_choose_table.pl, cgieng_scan_headers reports: the CGI program /opt/http/home/sswain/website/cgi-bin/soe/elb_choose_table.pl did not produce a valid header (name without value: got line unknown error) Corresponding error message from server error log if 'use DBD:Oracle()' (on line 12): [18/Oct/2001:11:39:56] failure (28652): for host 151.119.121.214 trying to GET /cgi-bin/soe/monty-oratest.cgi, cgieng_scan_headers reports: the CGI program /opt/http/home/sswain/website/cgi-bin/soe/monty-oratest.cgi did not produce a valid header (name without value: got line at /opt/http/home/sswain/website/cgi-bin/soe/monty-oratest.cgi line 32) More details about the problem and error messages that I believe relate to the problem whit the CGI scripts: From command line the script works if SHLIB_PATH is set correctly. In a separate test scripts (non CGI) I am able to connect
oraperl
Hi, We are migrated our Oracle7.0 to Oracle8.1.6, The perl programs were written using oraperl.pm script to connect to database, and now we are trying to install Oracle DBD:DBI modules, Is it going to be smooth transition? any ideas? Our old perl programs are going to work? Pl . let me know. Thanks praveen
Re: Oraperl - DBI
The script already has a 'use Oraperl;' line which is all that should be
needed to use the Oraperl emulation that comes as part of DBD::Oracle. The
Oraperl emulation is provided specifically to allow old scripts that use
oraperl calls to continue to work with minimal changes.
A much much bigger problem I see with the script is all the hard-coded
directories in it. You should really run it from an environment that has
all those environment variables already set and includes all those @INC
directories in $PERL5LIB.
A read through of the DBI, DBD::Oracle, and Oraperl manuals ('perldoc DBI',
'perldoc DBD::Oracle', and 'perldoc Oraperl' respectively) would greatly
benefit you. Look especially for mention of login methods and placeholders.
--
Mac :})
** I normally forward private questions to the appropriate mail list. **
Give a hobbit a fish and he eats fish for a day.
Give a hobbit a ring and he eats fish for an age.
- Original Message -
From: Anshu Anshu [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Saturday, July 21, 2001 13:35
Subject: Oraperl - DBI
We are using a script which uses Oraperl. This script (attached) needs to
be install on another machine which is Solaris 8 on sparc. That machine
got
Perl 5.005 and perl 5.6.1 version installed. And I learnt that Oraperl
supports only Perl 4 and I need to convert this script to DBI form. I am
trying to do so, but getting lots of errors. And since this script is very
critical, I am looking for help if you can. I need to find all that needs
to
be change or any other tips.
Re: Oraperl - DBI
I forgot to mention. Oraperl.pm is fine to let old code keep running, but
new scripts should absolutely, positively use DBI and DBD::Oracle for
database access.
--
Mac :})
** I normally forward private questions to the appropriate mail list. **
Give a hobbit a fish and he eats fish for a day.
Give a hobbit a ring and he eats fish for an age.
- Original Message -
From: Michael A. Chase [EMAIL PROTECTED]
To: Anshu Anshu [EMAIL PROTECTED]; [EMAIL PROTECTED]
Sent: Monday, July 23, 2001 06:49
Subject: Re: Oraperl - DBI
The script already has a 'use Oraperl;' line which is all that should be
needed to use the Oraperl emulation that comes as part of DBD::Oracle.
The
Oraperl emulation is provided specifically to allow old scripts that use
oraperl calls to continue to work with minimal changes.
A much much bigger problem I see with the script is all the hard-coded
directories in it. You should really run it from an environment that has
all those environment variables already set and includes all those @INC
directories in $PERL5LIB.
A read through of the DBI, DBD::Oracle, and Oraperl manuals ('perldoc
DBI',
'perldoc DBD::Oracle', and 'perldoc Oraperl' respectively) would greatly
benefit you. Look especially for mention of login methods and
placeholders.
--
Mac :})
** I normally forward private questions to the appropriate mail list. **
Give a hobbit a fish and he eats fish for a day.
Give a hobbit a ring and he eats fish for an age.
- Original Message -
From: Anshu Anshu [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Saturday, July 21, 2001 13:35
Subject: Oraperl - DBI
We are using a script which uses Oraperl. This script (attached) needs
to
be install on another machine which is Solaris 8 on sparc. That machine
got
Perl 5.005 and perl 5.6.1 version installed. And I learnt that Oraperl
supports only Perl 4 and I need to convert this script to DBI form. I am
trying to do so, but getting lots of errors. And since this script is
very
critical, I am looking for help if you can. I need to find all that
needs
to
be change or any other tips.
Oraperl - DBI
Hi All,
We are using a script which uses Oraperl. This script (attached) needs to
be install on another machine which is Solaris 8 on sparc. That machine got
Perl 5.005 and perl 5.6.1 version installed. And I learnt that Oraperl
supports only Perl 4 and I need to convert this script to DBI form. I am
trying to do so, but getting lots of errors. And since this script is very
critical, I am looking for help if you can. I need to find all that needs to
be change or any other tips.
Script is attached here. If you don't get attachment, let me know.
Thanks,
AS
#!/bin/perl -w
use lib '/u01/orap/pora/8.0.6/lib/';
#use lib '/usr/apps/FreeWare/Perl-5.03/lib/perl5/';
#use lib '/usr/apps/FreeWare/perl5.005/lib/5.00502';
use lib '/usr/local/lib/perl5/site_perl/5.6.1/sun4-solaris';
use lib '/usr/local/lib/perl5';
use lib '/var/commerce/organic/lib/';
use strict;
use IPC::Open3;
use Organic::Mail;
use Symbol;
use Oraperl;
#use DBI;
$ENV{'ORACLE_HOME'} = '/u01/orap/pora/8.0.6';
$ENV{'TNS_ADMIN'} = '/u01/orap/pora/8.0.6/network/admin';
#$ENV{'TWO_TASK'} = 'P';
my %ora_parms = ();
# Originals ... (i.e. live)
# Change these 3 emails below from [EMAIL PROTECTED] to
# whoever you want to receive the emails everytime this
# thing runs ... Z.K
my $web_sales_email = '[EMAIL PROTECTED]';
my $order_email = '[EMAIL PROTECTED],[EMAIL PROTECTED],[EMAIL PROTECTED],[EMAIL PROTECTED]';
my $bounce_email = $order_email;
my $debugger = '[EMAIL PROTECTED],[EMAIL PROTECTED]';
my $DEBUG= 0;
my $db_login = P.gunu.org;
# Begin main program
# Read in the encrypted message from stdin
my $encrypted_text = ;
while (STDIN) {
$encrypted_text .= $_;
}
# Run it through the decryptor
my ($plaintext,$plaintext_no_cc) = decrypt($encrypted_text);
## grep through $plaintext here to find out what the product is and distribute the
## mail to [EMAIL PROTECTED] if appropriate.
# Forward it on to its intended recipient
my $mail = new Organic::Mail;
my ($to, $bounce);
if ($DEBUG or $plaintext =~ /ignore this message/ ) {
$to = $debugger;
$bounce = $debugger;
$db_login = PCAFE;
} else {
$to = $order_email;
$bounce = $bounce_email;
}
#First send with CC info
$mail-to($to);
$mail-from($web_sales_email);
$mail-replyto($bounce);
$mail-subject(Incoming order);
$mail-message($plaintext_no_cc);
$mail-send;
# Just for testing, to see the un-encrypted order
#chmod 0755, /tmp/plain.txt;
#open(TMP, /tmp/plain.txt);
#print TMP '=' x 65, \n;
#print TMP $plaintext_no_cc, \n;
#close(TMP);
#Now send without CC info
if ($DEBUG or $plaintext_no_cc =~ /ignore this message/ ) {
$to = $debugger;
$bounce = $debugger;
} else {
$to = $web_sales_email;
$bounce = $bounce_email;
}
$mail-clear_to();
$mail-clear_from();
$mail-clear_replyto();
$mail-clear_subject();
$mail-clear_message();
$mail-to($to);
$mail-from($web_sales_email);
$mail-replyto($bounce);
$mail-subject(Incoming order);
$mail-message($plaintext_no_cc);
$mail-send;
#
# Testing the test environment Z.K 7/6/00
# Commented out the Oracle inserts just for safety.
# Don't need to go past here at all for my tests...
#
my $index = 1;
$ora_parms{line_number} = 1;
while($index=$ora_parms{no_of_products})
{
$ora_parms{option_number} = 0;
$ora_parms{quantity}= $ora_parms{'quantity'.$index} ;
if($ora_parms{'product_numbers'.$index}) {
my $line_item = ;
my @line_items = split /,/,$ora_parms{'product_numbers'.$index};
foreach $line_item (@line_items) {
my ($part_num,$part_price) = split /\*/,$line_item;
$part_num =~ s/^\s+//;
$part_price =~ s/^\s+//;
$ora_parms{product_number} = $part_num;
$ora_parms{product_price} = $part_price;
$ora_parms{platform} = $ora_parms{'platform'.$index} ;
$ora_parms{which_product} = $ora_parms{'which_product'.$index} ;
$ora_parms{media_type} = $ora_parms{'media_type'.$index} ;
# testing env .. no inserts
do_oracle_insert();
$ora_parms{option_number}++;
}
$ora_parms{line_number}++;
} else {
# testing env .. no inserts
do_oracle_insert();
}
$index++;
}
1;
#
# decrypt
#
# takes one parameter, which is the encrypted text to be decrypted
#
sub decrypt {
my $encrypted_text = shift;
#my $encrypted_text = $plaintext;
my $plaintext_sub = ;
#my $plaintext_sans_cc is plaint text message minus Credit Card Info
my $plaintext_sans_cc = ;
# PGP might barf -- if so, we want to know about it!
my $error_text = ;
# the directory where the PGP 5.0 binaries live
my $pgp_directory = /var/commerce/pgp/bin;
# the ID for the private key to use for signing
my $pgp_user = '[EMAIL PROTECTED]';
# the ID for the public key to use for encrypting
my $pgp_recipient = '[EMAIL PROTECTED]';
# the location of the public keyring
(Fwd) Looking for know problems/bugs in oraperl
- Forwarded message from Avi Vainshtein [EMAIL PROTECTED] - Reply-To: Avi Vainshtein [EMAIL PROTECTED] From: Avi Vainshtein [EMAIL PROTECTED] To: Tim.Bunce [EMAIL PROTECTED] Subject: Looking for know problems/bugs in oraperl Date: Mon, 16 Jul 2001 16:08:58 +0200 Organization: Telrad Hello, Tim I'm looking for a resource (site,FAQ,etc.), where i could find some known problems/bugs with Oraperl. I got some ORA-1 errors while executing a very simple oraperl script. The error message seems to be related to DBD ERROR: OCIStmtExecute. Regards and looking forward your assistance, Avi Veinshtein, [EMAIL PROTECTED] Oracle DBA - End forwarded message -
Re: (Fwd) Looking for know problems/bugs in oraperl
One definite problem with Oraperl is that it is obsolete. DBD::Oracle includes an Oraperl emulation layer so old programs can keep working, but any new development should use DBI methods instead of Oraperl subroutines. There should have been more to the message. IIRC, ORA-1 is a duplicate key in a unique index. Run oerr ORA 1 to confirm. -- Mac :}) ** I normally forward private questions to the appropriate mail list. ** Give a hobbit a fish and he eats fish for a day. Give a hobbit a ring and he eats fish for an age. - Original Message - From: Tim Bunce [EMAIL PROTECTED] To: [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Sent: Monday, July 16, 2001 08:40 Subject: (Fwd) Looking for know problems/bugs in oraperl - Forwarded message from Avi Vainshtein [EMAIL PROTECTED] - Reply-To: Avi Vainshtein [EMAIL PROTECTED] From: Avi Vainshtein [EMAIL PROTECTED] To: Tim.Bunce [EMAIL PROTECTED] Subject: Looking for know problems/bugs in oraperl Date: Mon, 16 Jul 2001 16:08:58 +0200 Organization: Telrad I'm looking for a resource (site,FAQ,etc.), where i could find some known problems/bugs with Oraperl. I got some ORA-1 errors while executing a very simple oraperl script. The error message seems to be related to DBD ERROR: OCIStmtExecute. Regards and looking forward your assistance,
Re: (Fwd) Oraperl Binary for Windows
Hello Rajanath, I am working with Mahesh on this project. We are interested in using the Oracle DBD for Windows. Will the DBD-Oracle8 driver below work with Windows? Thanks for your help. Regards, Addison Rajanath Tadikonda [EMAIL PROTECTED] on 05/09/2001 04:22:39 PM To: [EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED] cc: [EMAIL PROTECTED] Subject: Re: (Fwd) Oraperl Binary for Windows Try this/You can find all these drivers and dbd's in Activestate.com C:\ppm PPM interactive shell (2.1.2) - type 'help' for available commands. PPM search DBD Packages available from http://ppm.ActiveState.com/cgibin/PPM/ppmserver.pl?urn: PPMServer: DBD-CSV [0.1025] DBI driver for CSV files DBD-DB2 [0.75 ] Perl driver for IBM DB2 Universal Database DBD-JDBC [0.63 ] JDBC proxy driver for the DBI module DBD-Mysql[1.2200] DBI driver for Mysql datasources DBD-ODBC [0.28 ] ODBC driver for the DBI module. DBD-Oracle [1.06 ] Oracle database driver for the DBI module DBD-Oracle8 [1.06 ] Oracle 8 database driver for the DBI module DBD-Ovrimos [0.12 ] DBI Driver for Ovrimos (formerly Altera SQL Server) DBD-RAM [0.072 ] a DBI driver for files and data structures DBD-Recall [1.8 ] Database fault tolerance through replication. DBD-SQLrelay [0.1 ] perl DBI driver for SQL Relay DBD-Sprite [0.13 ] Modified version of Sprite to manipulate text delimited DBD-Sybase [0.91 ] DBI driver for Sybase datasources DBD-XBase[0.161 ] Perl module for reading and writing the dbf files DBIx-AnyDBD [1.98 ] DBD independant class PPM search DBI Packages available from http://ppm.ActiveState.com/cgibin/PPM/ppmserver.pl?urn: PPMServer: Apache-DBILogin[1.6 ] authenticates via a DBI connection ApacheDBI [0.88 ] Authentication and Authorization via Perl's DBI DBI[1.14 ] Database independent interface for Perl DBIx-AnyDBD[1.98 ] DBD independant class DBIx-CGI [0.06 ] Easy to Use DBI interface for CGI scripts DBIx-CGITables [0.001] Easy DB access from a CGI DBIx-Copy [0.02 ] For copying database content from one db to another DBIx-DataSource[0.02 ] Database-independant create and drop functions DBIx-Easy [0.10 ] Easy to Use DBI interface DBIx-Formatter [0.01 ] Module to perform report generation via query DBI DBIx-MSSQLReporter [1.00 ] An module to connect Perl to MS SQL Server and MS DBIx-Password [1.6 ] Allows you to create a global password file for DB DBIx-Profile [1] DBI query profiler DBIx-SearchBuilder [0.21 ] Perl extension for easy SQL SELECT Statement DBIx-Table [0.03 ] Class used to represent DBI database tables. DBIx-XMLMessage[0.03 ] XML Message exchange between DBI data sources DBIx-XML_RDB [0.05 ] Perl extension for creating XML from existing DBI Persistent-DBI [0.50 ] An Abstract Persistent Class implemented using a DBI PPM install - Original Message - From: [EMAIL PROTECTED] To: [EMAIL PROTECTED]; [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Sent: Wednesday, May 09, 2001 1:13 PM Subject: RE: (Fwd) Oraperl Binary for Windows Thanks a lot for that 3 * 10 ** 8 m/sec response :) , we dont see a binary version for DBI and DBD ..are they available.? or should we have C compiler and have to compile it.. -- Forwarded by Mahesh L Velapakam on 05/09/2001 01:08 PM --- Sterin, Ilya [EMAIL PROTECTED] on 05/09/2001 12:48:12 PM To: '[EMAIL PROTECTED] ' [EMAIL PROTECTED] cc: '[EMAIL PROTECTED] ' [EMAIL PROTECTED] Subject: RE: (Fwd) Oraperl Binary for Windows Oraperl is depricated interface. Use DBI and DBD::Oracle. You can download and install from activestate. You must have ActiveState Perl installed. Then use the ppm utility to install. See docs for instructions. Ilya Sterin -Original Message- From: Tim Bunce To: [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Sent: 05/09/2001 1:40 PM Subject: (Fwd) Oraperl Binary for Windows - Forwarded message from [EMAIL PROTECTED] - From: [EMAIL PROTECTED] () X-Server-Uuid: 1569d162-b3be-4edd-8d78-ab9187b54f11 Subject: Oraperl Binary for Windows To: [EMAIL PROTECTED] Date: Wed, 9 May 2001 11:50:43 -0700 X-MIMETrack: Serialize by Router on SV-GW1/Seagate Internet(Release 5.0.6a |January 17, 2001) at 05/09/2001 11:48:47 AM X-WSS-ID: 16E74E9A1108974-01-01 Hi Tim, Where can I find Oraperl Binary for Windows 32? pls..help.. Thanks - End forwarded message -
Re: (Fwd) Oraperl Binary for Windows
All the pre-built modules that ActiveState distributes using PPM were built to run in Win32. The only difference between DBD-Oracle and DBD-Oracle8 is the OCI version they were compiled against. -- Mac :}) ** I normally forward private database questions to the DBI mail lists. ** Give a hobbit a fish and he'll eat fish for a day. Give a hobbit a ring and he'll eat fish for an age. - Original Message - From: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Cc: [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED] Sent: Wednesday, May 09, 2001 18:01 Subject: Re: (Fwd) Oraperl Binary for Windows Hello Rajanath, I am working with Mahesh on this project. We are interested in using the Oracle DBD for Windows. Will the DBD-Oracle8 driver below work with Windows? Thanks for your help. Regards, Addison Rajanath Tadikonda [EMAIL PROTECTED] on 05/09/2001 04:22:39 PM To: [EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED] cc: [EMAIL PROTECTED] Subject: Re: (Fwd) Oraperl Binary for Windows Try this/You can find all these drivers and dbd's in Activestate.com C:\ppm PPM interactive shell (2.1.2) - type 'help' for available commands. PPM search DBD Packages available from http://ppm.ActiveState.com/cgibin/PPM/ppmserver.pl?urn: PPMServer: DBD-CSV [0.1025] DBI driver for CSV files DBD-DB2 [0.75 ] Perl driver for IBM DB2 Universal Database DBD-JDBC [0.63 ] JDBC proxy driver for the DBI module DBD-Mysql[1.2200] DBI driver for Mysql datasources DBD-ODBC [0.28 ] ODBC driver for the DBI module. DBD-Oracle [1.06 ] Oracle database driver for the DBI module DBD-Oracle8 [1.06 ] Oracle 8 database driver for the DBI module DBD-Ovrimos [0.12 ] DBI Driver for Ovrimos (formerly Altera SQL Server) DBD-RAM [0.072 ] a DBI driver for files and data structures DBD-Recall [1.8 ] Database fault tolerance through replication. DBD-SQLrelay [0.1 ] perl DBI driver for SQL Relay DBD-Sprite [0.13 ] Modified version of Sprite to manipulate text delimited DBD-Sybase [0.91 ] DBI driver for Sybase datasources DBD-XBase[0.161 ] Perl module for reading and writing the dbf files DBIx-AnyDBD [1.98 ] DBD independant class PPM search DBI Packages available from http://ppm.ActiveState.com/cgibin/PPM/ppmserver.pl?urn: PPMServer: Apache-DBILogin[1.6 ] authenticates via a DBI connection ApacheDBI [0.88 ] Authentication and Authorization via Perl's DBI DBI[1.14 ] Database independent interface for Perl DBIx-AnyDBD[1.98 ] DBD independant class DBIx-CGI [0.06 ] Easy to Use DBI interface for CGI scripts DBIx-CGITables [0.001] Easy DB access from a CGI DBIx-Copy [0.02 ] For copying database content from one db to another DBIx-DataSource[0.02 ] Database-independant create and drop functions DBIx-Easy [0.10 ] Easy to Use DBI interface DBIx-Formatter [0.01 ] Module to perform report generation via query DBI DBIx-MSSQLReporter [1.00 ] An module to connect Perl to MS SQL Server and MS DBIx-Password [1.6 ] Allows you to create a global password file for DB DBIx-Profile [1] DBI query profiler DBIx-SearchBuilder [0.21 ] Perl extension for easy SQL SELECT Statement DBIx-Table [0.03 ] Class used to represent DBI database tables. DBIx-XMLMessage[0.03 ] XML Message exchange between DBI data sources DBIx-XML_RDB [0.05 ] Perl extension for creating XML from existing DBI Persistent-DBI [0.50 ] An Abstract Persistent Class implemented using a DBI PPM install - Original Message - From: [EMAIL PROTECTED] To: [EMAIL PROTECTED]; [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Sent: Wednesday, May 09, 2001 1:13 PM Subject: RE: (Fwd) Oraperl Binary for Windows Thanks a lot for that 3 * 10 ** 8 m/sec response :) , we dont see a binary version for DBI and DBD ..are they available.? or should we have C compiler and have to compile it.. -- Forwarded by Mahesh L Velapakam on 05/09/2001 01:08 PM --- Sterin, Ilya [EMAIL PROTECTED] on 05/09/2001 12:48:12 PM To: '[EMAIL PROTECTED] ' [EMAIL PROTECTED] cc: '[EMAIL PROTECTED] ' [EMAIL PROTECTED] Subject: RE: (Fwd) Oraperl Binary for Windows Oraperl is depricated interface. Use DBI and DBD::Oracle. You can download and install from activestate. You must have ActiveState Perl installed. Then use the ppm utility to install. See docs for instructions. Ilya Sterin -Original Message- From: Tim Bunce To: [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Sent: 05/09/2001 1:40 PM Subject: (Fwd) Oraperl Binary for Windows - Forwarded message from [EMAIL PROTECTED] - From: [EMAIL PROTECTED] () X-Server-Uuid: 1569d162-b3be-4edd-8d78-ab9187b54f11 Subject: Oraperl Binary for Windows To: [EMAIL PROTECTED] Date: Wed, 9 May 2001 11:50:43 -0700 X-MIMETrack
RE: (Fwd) Oraperl Binary for Windows
If you have ActiveState perl, first uninstall the DBD::Oracle driver, then install DBD::Oracle8 driver. I don't believe you can have both, but maybe I'm wrong. When using dbi:Oracle:* it needs to know to use the Oracle OCI8 driver. Use ppm to perform above tasks. Ilya Sterin -Original Message- From: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Cc: [EMAIL PROTECTED]; Sterin, Ilya; [EMAIL PROTECTED] Sent: 05/09/2001 7:01 PM Subject: Re: (Fwd) Oraperl Binary for Windows Hello Rajanath, I am working with Mahesh on this project. We are interested in using the Oracle DBD for Windows. Will the DBD-Oracle8 driver below work with Windows? Thanks for your help. Regards, Addison Rajanath Tadikonda [EMAIL PROTECTED] on 05/09/2001 04:22:39 PM To: [EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED] cc: [EMAIL PROTECTED] Subject: Re: (Fwd) Oraperl Binary for Windows Try this/You can find all these drivers and dbd's in Activestate.com C:\ppm PPM interactive shell (2.1.2) - type 'help' for available commands. PPM search DBD Packages available from http://ppm.ActiveState.com/cgibin/PPM/ppmserver.pl?urn: PPMServer: DBD-CSV [0.1025] DBI driver for CSV files DBD-DB2 [0.75 ] Perl driver for IBM DB2 Universal Database DBD-JDBC [0.63 ] JDBC proxy driver for the DBI module DBD-Mysql[1.2200] DBI driver for Mysql datasources DBD-ODBC [0.28 ] ODBC driver for the DBI module. DBD-Oracle [1.06 ] Oracle database driver for the DBI module DBD-Oracle8 [1.06 ] Oracle 8 database driver for the DBI module DBD-Ovrimos [0.12 ] DBI Driver for Ovrimos (formerly Altera SQL Server) DBD-RAM [0.072 ] a DBI driver for files and data structures DBD-Recall [1.8 ] Database fault tolerance through replication. DBD-SQLrelay [0.1 ] perl DBI driver for SQL Relay DBD-Sprite [0.13 ] Modified version of Sprite to manipulate text delimited DBD-Sybase [0.91 ] DBI driver for Sybase datasources DBD-XBase[0.161 ] Perl module for reading and writing the dbf files DBIx-AnyDBD [1.98 ] DBD independant class PPM search DBI Packages available from http://ppm.ActiveState.com/cgibin/PPM/ppmserver.pl?urn: PPMServer: Apache-DBILogin[1.6 ] authenticates via a DBI connection ApacheDBI [0.88 ] Authentication and Authorization via Perl's DBI DBI[1.14 ] Database independent interface for Perl DBIx-AnyDBD[1.98 ] DBD independant class DBIx-CGI [0.06 ] Easy to Use DBI interface for CGI scripts DBIx-CGITables [0.001] Easy DB access from a CGI DBIx-Copy [0.02 ] For copying database content from one db to another DBIx-DataSource[0.02 ] Database-independant create and drop functions DBIx-Easy [0.10 ] Easy to Use DBI interface DBIx-Formatter [0.01 ] Module to perform report generation via query DBI DBIx-MSSQLReporter [1.00 ] An module to connect Perl to MS SQL Server and MS DBIx-Password [1.6 ] Allows you to create a global password file for DB DBIx-Profile [1] DBI query profiler DBIx-SearchBuilder [0.21 ] Perl extension for easy SQL SELECT Statement DBIx-Table [0.03 ] Class used to represent DBI database tables. DBIx-XMLMessage[0.03 ] XML Message exchange between DBI data sources DBIx-XML_RDB [0.05 ] Perl extension for creating XML from existing DBI Persistent-DBI [0.50 ] An Abstract Persistent Class implemented using a DBI PPM install - Original Message - From: [EMAIL PROTECTED] To: [EMAIL PROTECTED]; [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Sent: Wednesday, May 09, 2001 1:13 PM Subject: RE: (Fwd) Oraperl Binary for Windows Thanks a lot for that 3 * 10 ** 8 m/sec response :) , we dont see a binary version for DBI and DBD ..are they available.? or should we have C compiler and have to compile it.. -- Forwarded by Mahesh L Velapakam on 05/09/2001 01:08 PM --- Sterin, Ilya [EMAIL PROTECTED] on 05/09/2001 12:48:12 PM To: '[EMAIL PROTECTED] ' [EMAIL PROTECTED] cc: '[EMAIL PROTECTED] ' [EMAIL PROTECTED] Subject: RE: (Fwd) Oraperl Binary for Windows Oraperl is depricated interface. Use DBI and DBD::Oracle. You can download and install from activestate. You must have ActiveState Perl installed. Then use the ppm utility to install. See docs for instructions. Ilya Sterin -Original Message- From: Tim Bunce To: [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Sent: 05/09/2001 1:40 PM Subject: (Fwd) Oraperl Binary for Windows - Forwarded message from [EMAIL PROTECTED] - From: [EMAIL PROTECTED] () X-Server-Uuid: 1569d162-b3be-4edd-8d78-ab9187b54f11 Subject: Oraperl Binary for Windows To: [EMAIL PROTECTED] Date: Wed, 9 May 2001 11:50:43 -0700 X-MIMETrack: Serialize by Router on SV-GW1/Seagate Internet(Release 5.0.6a |January 17, 2001) at 05/09/2001 11:48:47 AM X-WSS-ID: 16E74E9A1108974-01-01 Hi Tim, Where can I find Oraperl Binary for Windows 32? pls..help.. Thanks
RE: (Fwd) Oraperl Binary for Windows
Thanks a lot for that 3 * 10 ** 8 m/sec response :) , we dont see a binary version for DBI and DBD ..are they available.? or should we have C compiler and have to compile it.. -- Forwarded by Mahesh L Velapakam on 05/09/2001 01:08 PM --- Sterin, Ilya [EMAIL PROTECTED] on 05/09/2001 12:48:12 PM To: '[EMAIL PROTECTED] ' [EMAIL PROTECTED] cc: '[EMAIL PROTECTED] ' [EMAIL PROTECTED] Subject: RE: (Fwd) Oraperl Binary for Windows Oraperl is depricated interface. Use DBI and DBD::Oracle. You can download and install from activestate. You must have ActiveState Perl installed. Then use the ppm utility to install. See docs for instructions. Ilya Sterin -Original Message- From: Tim Bunce To: [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Sent: 05/09/2001 1:40 PM Subject: (Fwd) Oraperl Binary for Windows - Forwarded message from [EMAIL PROTECTED] - From: [EMAIL PROTECTED] () X-Server-Uuid: 1569d162-b3be-4edd-8d78-ab9187b54f11 Subject: Oraperl Binary for Windows To: [EMAIL PROTECTED] Date: Wed, 9 May 2001 11:50:43 -0700 X-MIMETrack: Serialize by Router on SV-GW1/Seagate Internet(Release 5.0.6a |January 17, 2001) at 05/09/2001 11:48:47 AM X-WSS-ID: 16E74E9A1108974-01-01 Hi Tim, Where can I find Oraperl Binary for Windows 32? pls..help.. Thanks - End forwarded message -
Re: (Fwd) Oraperl Binary for Windows
Try this/You can find all these drivers and dbd's in Activestate.com C:\ppm PPM interactive shell (2.1.2) - type 'help' for available commands. PPM search DBD Packages available from http://ppm.ActiveState.com/cgibin/PPM/ppmserver.pl?urn: PPMServer: DBD-CSV [0.1025] DBI driver for CSV files DBD-DB2 [0.75 ] Perl driver for IBM DB2 Universal Database DBD-JDBC [0.63 ] JDBC proxy driver for the DBI module DBD-Mysql[1.2200] DBI driver for Mysql datasources DBD-ODBC [0.28 ] ODBC driver for the DBI module. DBD-Oracle [1.06 ] Oracle database driver for the DBI module DBD-Oracle8 [1.06 ] Oracle 8 database driver for the DBI module DBD-Ovrimos [0.12 ] DBI Driver for Ovrimos (formerly Altera SQL Server) DBD-RAM [0.072 ] a DBI driver for files and data structures DBD-Recall [1.8 ] Database fault tolerance through replication. DBD-SQLrelay [0.1 ] perl DBI driver for SQL Relay DBD-Sprite [0.13 ] Modified version of Sprite to manipulate text delimited DBD-Sybase [0.91 ] DBI driver for Sybase datasources DBD-XBase[0.161 ] Perl module for reading and writing the dbf files DBIx-AnyDBD [1.98 ] DBD independant class PPM search DBI Packages available from http://ppm.ActiveState.com/cgibin/PPM/ppmserver.pl?urn: PPMServer: Apache-DBILogin[1.6 ] authenticates via a DBI connection ApacheDBI [0.88 ] Authentication and Authorization via Perl's DBI DBI[1.14 ] Database independent interface for Perl DBIx-AnyDBD[1.98 ] DBD independant class DBIx-CGI [0.06 ] Easy to Use DBI interface for CGI scripts DBIx-CGITables [0.001] Easy DB access from a CGI DBIx-Copy [0.02 ] For copying database content from one db to another DBIx-DataSource[0.02 ] Database-independant create and drop functions DBIx-Easy [0.10 ] Easy to Use DBI interface DBIx-Formatter [0.01 ] Module to perform report generation via query DBI DBIx-MSSQLReporter [1.00 ] An module to connect Perl to MS SQL Server and MS DBIx-Password [1.6 ] Allows you to create a global password file for DB DBIx-Profile [1] DBI query profiler DBIx-SearchBuilder [0.21 ] Perl extension for easy SQL SELECT Statement DBIx-Table [0.03 ] Class used to represent DBI database tables. DBIx-XMLMessage[0.03 ] XML Message exchange between DBI data sources DBIx-XML_RDB [0.05 ] Perl extension for creating XML from existing DBI Persistent-DBI [0.50 ] An Abstract Persistent Class implemented using a DBI PPM install - Original Message - From: [EMAIL PROTECTED] To: [EMAIL PROTECTED]; [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Sent: Wednesday, May 09, 2001 1:13 PM Subject: RE: (Fwd) Oraperl Binary for Windows Thanks a lot for that 3 * 10 ** 8 m/sec response :) , we dont see a binary version for DBI and DBD ..are they available.? or should we have C compiler and have to compile it.. -- Forwarded by Mahesh L Velapakam on 05/09/2001 01:08 PM --- Sterin, Ilya [EMAIL PROTECTED] on 05/09/2001 12:48:12 PM To: '[EMAIL PROTECTED] ' [EMAIL PROTECTED] cc: '[EMAIL PROTECTED] ' [EMAIL PROTECTED] Subject: RE: (Fwd) Oraperl Binary for Windows Oraperl is depricated interface. Use DBI and DBD::Oracle. You can download and install from activestate. You must have ActiveState Perl installed. Then use the ppm utility to install. See docs for instructions. Ilya Sterin -Original Message- From: Tim Bunce To: [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Sent: 05/09/2001 1:40 PM Subject: (Fwd) Oraperl Binary for Windows - Forwarded message from [EMAIL PROTECTED] - From: [EMAIL PROTECTED] () X-Server-Uuid: 1569d162-b3be-4edd-8d78-ab9187b54f11 Subject: Oraperl Binary for Windows To: [EMAIL PROTECTED] Date: Wed, 9 May 2001 11:50:43 -0700 X-MIMETrack: Serialize by Router on SV-GW1/Seagate Internet(Release 5.0.6a |January 17, 2001) at 05/09/2001 11:48:47 AM X-WSS-ID: 16E74E9A1108974-01-01 Hi Tim, Where can I find Oraperl Binary for Windows 32? pls..help.. Thanks - End forwarded message -
DBD::Oracle for Oraperl scripts
Hi , A simple query. If Oracle is very much required for DBD installtion on a HPUX box, is it possible to run old oraperl scripts to access a remote oracle database (on a different machine) using DBD::Oracle and local Oracle libraries ? If yes , then what are the Oracle components are necessary for DBD::Oracle installation? I have Oracle 7 server (Version 7.3.2.3 Patch) for HPUX and Oracle 7.1.6 bundle with me. Are they enough to have a right environment for DBD::oracle? Regards, S Bala --- FREE! The World's Best Email Address @email.com Reserve your name now at http://www.email.com
German special characters oracle/oraperl
hi,
I am struggling with a dirty little problem on a HPUX, using perl 5.003,
with oraperl.
I don't get the correct GERMAN characters reading the oracle-database. This
problem seems to stem from a systemupgrade on the HP (don't know which, HPUX
10.20, oracle 8 ?).
All other environments display and print german characters correctly (cobol
programs, sqlplus) , even within this script (I displayed a menu screen to
test this).
The script delivers correctly on the linux-testsystem, running perl 5.005,
with oraperl.
I have limited ability to upgrade any software on the HP (lengthy
discussions with systemadminstrator), therefor I would like to handle the
environment issue within the script.
The variable $beschr within report below gets only \x3F from the oracle
fetch for any special character (...). That means, that the
correctly stored german characters are translated to \x3F during transfer
from oracle to perl.
I have tried some environment modifications and compared the environment
variables whithout success.
eg:
#print STDOUT qq(\nVorher: $ENV{'NLS_LANG'}); # oracle scheint OK sqlplus
#system ("stty sane -istrip cs8"); # stty scheint nicht zu
helfen
#`stty sane -istrip cs8`; # mit backtic wirds nciht
besser
#`stty=500:5:10b1:8a3b:3:1c:8:15:4:0:1:0:11:13:1a:0:12:f:17:16:0:0:73:0:0:0:
0:0:0:0:0:0:0:0:0:`; #njet, das war linux setting
Can you give me a hint what to do or where to look?
Kind regards
Franz
Here ist an example of the result
Hartmann F?rben von weiss
Hartmann F?rben von ROH
Hartmann F?rben von Farbe auf Farbe
Here goes the script:
#!/usr/bin/perl
# Purpose: REPORT KAARBGLI
# Usage: kaarbgli.pl
# Author: Franz Nowak
# Creation: 19981028
# Modification:
# Author:
# Reason:
require "proclib.pl";
require "projlib.pl";
$reportuser = OraSlashLogin;
$Cursor = OpenCursor($reportuser);
$CurUser = uc(substr(cut_str($ENV{"USER"}), 0, 3 ));
$Report = "$SpoolLib/KAARBGLI";
ExecuteReport($Cursor);
OraSlashLogoff($reportuser,$Cursor);
system("win2mm.pl $Report");
# end
#---
# Report Format
#---
format REPORT_TOP =
KAARBGLIARBEITSGANGLISTE
@ Seite @
$date, $%
---
--
ARBGNR HGR GR UGRKURZBEZBESCHR
P AENDDATID
--- --- -- --- --
-- - -- ---
.
format REPORT =
@## @# @# @## @
@ @# @ @
$arbgnr,$arbghgr,$arbggr,$arbgugr, $kurzbez, $beschr,
$pseudokz, $aenddat, $id
.
#---
# Subroutines
#---
sub OpenCursor {
local ($User) = @_;
($Q_ss = ora_open($User,EOT)) || warn($ora_errstr);
select arbgnr, arbghgr, arbggr, arbgugr, kurzbez, beschr, pseudokz,
aenddat, id, SysDate
from arbgang
order by arbgnr, arbghgr, arbggr, arbgugr
EOT
return($Q_ss);
}
sub ExecuteReport {
local ($Cursor) = @_;
open (REPORT, " $Report");
SetDefaults;
while (
(
$arbgnr,
$arbghgr,
$arbggr,
$arbgugr,
$kurzbez,
$beschr,
$pseudokz,
$aenddat,
$id,
$date
) = ora_fetch($Q_ss)) {
$aenddat =
substr($aenddat,0,4).".".substr($aenddat,4,2).".".substr($aenddat,4,2);
write REPORT;
}
close (REPORT);
WriteReportFooter($Report);
}
sub WriteReportFooter {
local ($RF) = @_;
open (RF, " $RF");
print RF "\n\n\n\n--- End of Report ---\n";
close (RF);
}
sub SetDefaults {
select((select(REPORT),
$= = 66 # Seitenlnge
)[0]);
}
Franz Nowak
Mail: [EMAIL PROTECTED]
Tel: +43(0676)4115490
Private Network Solutions GmbH
www.prinetsol.com
Dr.Ludwig-Riegerstr. 7
A-2340 Mdling
Re: Report for Oraperl
If you are writing new code, you'd be better off using the DBI method calls instead of the Oraperl ones. Under Perl 5, Oraperl is just an emulation layer over DBI and DBD::Oracle. The people here, including me, are more likely to be able to help with DBI calls. I'm not sure I understand what is happening, so I'll restate what I think you're saying: When you call ora_open() with an invalid SQL string, the subroutine does not return, but causes the program to abort instead. See if these give calls in the appropriate places more information about the problem: my $lda = ora_logon( $inst, $uid, $pwd ) or print( "Ora_logon() failed, $ora_errstr" ), return -1; my $Sql = "bad SQL" ora_open( $lda, $Sql ) or print( "Ora_open() failed at xxx, $ora_errstr" ), return -1; The error handling is much easier under DBI, so I again suggest you start using it where possible. Since Oraperl is just an emulation layer, $lda is really a DBI database session handle (like $dbh in the documentation) and $csr is really a DBI statement handle (like $sth in the documentation) so you can start using DBI calls with your Oraperl handles. -- Mac :}) ** I normally forward private database questions to the DBI mail lists. ** Give a hobbit a fish and he'll eat fish for a day. Give a hobbit a ring and he'll eat fish for an age. - Original Message - From: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Thursday, February 01, 2001 9:52 PM Subject: Report for Oraperl I have met some trouble for oraperl. I need your help. I am using Cgi(oraperl) to access oracle database with ora_open($lda,$Sql). But when I input a wrong Sql command, parameter ($ora_errno) doesn't come back and program is aborted. For example: 1:$Sql = "insert into table1(abc) "; 2:ora_open($lda,$Sql); 3:if( $ora_errno != 0 )[ print "Oracle Operation Error!"; return -1; } When i try it, line 3 isn't executed. How do i do?
Report for Oraperl
Dear Sir: I have met some trouble for oraperl. I need your help. I am using Cgi(oraperl) to access oracle database with ora_open($lda,$Sql). But when I input a wrong Sql command, parameter ($ora_errno) doesn't come back and program is aborted. For example: 1:$Sql = "insert into table1(abc) "; 2:ora_open($lda,$Sql); 3:if( $ora_errno != 0 )[ print "Oracle Operation Error!"; return -1; } When i try it, line 3 isn't executed. How do i do? Thaks for your help. Tom Lt *** $BNBEs!!([EMAIL PROTECTED] $B!J3t!K%0%l!<%W%7%9%F%`!!%7%9%F%`It(B 220-6180 $B2#IM@>6h$_$J$H$_$i$$#2!]#3!]#3(B $B%/%#!<%s%:%?%o!!!](BB$B!!#8(BF Tel$B!'(B045$B!>(B222-3753 Fax$B!'(B045-222-3760 ***
