RE: DBD-Oracle

2005-10-21 Thread David Sawyer
Yes. It's Activate State v5.8.7 for Sun multi-thread
 


Regards,
David Sawyer
Senior Customer Support Engineer
Ceon Corporation
650-817-6334 (office) 
650-238-8078 (Blackberry Wireless)
408-832-4354 (mobile)
www.Ceon.com
-.- . -.. .-. ... 

-Original Message-
From: Reidy, Ron [mailto:[EMAIL PROTECTED] 
Sent: Friday, October 21, 2005 9:50 AM
To: David Sawyer; dbi-users@perl.org
Subject: RE: DBD-Oracle

So, I just have to ask ...

Is your Perl from AS?

--
Ron Reidy
Lead DBA
Array BioPharma, Inc.

-Original Message-
From: David Sawyer [mailto:[EMAIL PROTECTED]
Sent: Friday, October 21, 2005 9:01 AM
To: dbi-users@perl.org
Subject: DBD-Oracle


I am desperately trying to install DBD-Oracle on my UNIX system. No
matter what I try I get the error :
 
[EMAIL PROTECTED]  > ppm install
ftp://ftp.esoftmatic.com/outgoing/DBI/5.8.4/DBD-Oracle.ppd
 
Error: no suitable installation target found for package DBD-Oracle. 

Can ANYONE offer a suggestion as to the cause of this error?
 
 
Regards,
David Sawyer
Senior Customer Support Engineer
Ceon Corporation
650-817-6334 (office) 
650-238-8078 (Blackberry Wireless)
408-832-4354 (mobile)
www.Ceon.com
-.- . -.. .-. ... 
 

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.



Re: Help: Oracle 10G installtion screwed up my perl

2005-10-21 Thread John D Groenveld
In message <[EMAIL PROTECTED]>, joe bayer 
writes:
>On my WinXP sp2, I have perl 5.6.1 installed and a lot of scripts depend on th
>at.  Recently I installed Oracle 10g Version 2, it added a new system variable
>
>--
>-
>
>PERL5LIB=d:\oracle\ora102\perl\5.8.3\lib\MSWin32-x86;d:\oracle\ora102\perl\5.8
>.3\lib;d:\oracle\ora102\perl\5.8.3\lib\MSWin32-x86;d:\oracle\ora102\perl\site\
>5.8.3;d:\oracle\ora102\perl\site\5.8.3\lib;d:\oracle\ora102\sysman\admin\scrip
>ts;
>
>--
>-
>
>Now my poor DBI perl script stopped working.  For example, (this is not a DBI 
>script, but just an example how Oracle 10G screwed things up)

We encountered this problem with an application we deliver for Windows.
The solution was to unset PERL5LIB in the bat file which invokes our
Perl script.
I'm not a DOS expert, but I think the syntax is
@set PERL5LIB=

Happy hacking,
John
[EMAIL PROTECTED]



Re: dbd::informix with no test db

2005-10-21 Thread Matthew Lenz
never mind, found the setting. DBD_INFORMIX_NO_ESQLTEST

-Matt

On Fri, 2005-10-21 at 13:37 -0500, Matthew Lenz wrote:
> i have to setup a dbd::informix without being able to create a test db.
> is this possible?  basically everything looks like its working great
> (everything is compiling fine until it tries to connect to a database).
> 
> I can only assume there is some way around this correct?  .i tried
> setting the mentioned *NO_RESOURCE/NO_DBCREATE env's to yes as mentioned
> but its still trying.  ideas?
> 
> -Matt



dbd::informix with no test db

2005-10-21 Thread Matthew Lenz
i have to setup a dbd::informix without being able to create a test db.
is this possible?  basically everything looks like its working great
(everything is compiling fine until it tries to connect to a database).

I can only assume there is some way around this correct?  .i tried
setting the mentioned *NO_RESOURCE/NO_DBCREATE env's to yes as mentioned
but its still trying.  ideas?

-Matt



Help: Oracle 10G installtion screwed up my perl

2005-10-21 Thread joe bayer

Hi, group, 

 

I used DBI a lot but not experenced in setting up perl.

 

On my WinXP sp2, I have perl 5.6.1 installed and a lot of scripts depend on 
that.  Recently I installed Oracle 10g Version 2, it added a new system variable

---

PERL5LIB=d:\oracle\ora102\perl\5.8.3\lib\MSWin32-x86;d:\oracle\ora102\perl\5.8.3\lib;d:\oracle\ora102\perl\5.8.3\lib\MSWin32-x86;d:\oracle\ora102\perl\site\5.8.3;d:\oracle\ora102\perl\site\5.8.3\lib;d:\oracle\ora102\sysman\admin\scripts;

---

Now my poor DBI perl script stopped working.  For example, (this is not a DBI 
script, but just an example how Oracle 10G screwed things up)

C:>ppm
Perl lib version (v5.8.3) doesn't match executable version (v5.6.1) at d:\oracle
\ora102\perl\5.8.3\lib/MSWin32-x86-multi-thread/Config.pm line 32.
Compilation failed in require at d:\Perl\bin/ppm.bat line 18.
BEGIN failed--compilation aborted at d:\Perl\bin/ppm.bat line 18.



I tried to add my perl path to PERL5LIB=d:\perl\lib;..

I got

This application fas failed to start because perl58.dll was not found. 
Re-installing the application may fix this problem.

Could somebody help me?

 

Thanks

 

 




 

 



-
 Yahoo! FareChase - Search multiple travel sites in one click.  

RE: DBD-Oracle

2005-10-21 Thread Reidy, Ron
OK.  I do not believe there exists a PPM for DBD::Oracle after version
5.6.1 from AS.  Supposedly, because of licensing issues.

The next step would be to build DBD::Oraacle yourself.  You will need
the same C compiler iused to build Perl.

--
Ron Reidy
Lead DBA
Array BioPharma, Inc.

-Original Message-
From: David Sawyer [mailto:[EMAIL PROTECTED] 
Sent: Friday, October 21, 2005 11:01 AM
To: Reidy, Ron; dbi-users@perl.org
Subject: RE: DBD-Oracle


Yes. It's Activate State v5.8.7 for Sun multi-thread
 


Regards,
David Sawyer
Senior Customer Support Engineer
Ceon Corporation
650-817-6334 (office) 
650-238-8078 (Blackberry Wireless)
408-832-4354 (mobile)
www.Ceon.com
-.- . -.. .-. ... 

-Original Message-
From: Reidy, Ron [mailto:[EMAIL PROTECTED] 
Sent: Friday, October 21, 2005 9:50 AM
To: David Sawyer; dbi-users@perl.org
Subject: RE: DBD-Oracle

So, I just have to ask ...

Is your Perl from AS?

--
Ron Reidy
Lead DBA
Array BioPharma, Inc.

-Original Message-
From: David Sawyer [mailto:[EMAIL PROTECTED]
Sent: Friday, October 21, 2005 9:01 AM
To: dbi-users@perl.org
Subject: DBD-Oracle


I am desperately trying to install DBD-Oracle on my UNIX system. No
matter what I try I get the error :
 
[EMAIL PROTECTED]  > ppm install
ftp://ftp.esoftmatic.com/outgoing/DBI/5.8.4/DBD-Oracle.ppd
 
Error: no suitable installation target found for package DBD-Oracle. 

Can ANYONE offer a suggestion as to the cause of this error?
 
 
Regards,
David Sawyer
Senior Customer Support Engineer
Ceon Corporation
650-817-6334 (office) 
650-238-8078 (Blackberry Wireless)
408-832-4354 (mobile)
www.Ceon.com
-.- . -.. .-. ... 
 

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.


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.



Disabling Apache::DBI

2005-10-21 Thread Ted Behling
I have multiple mod_perl applications running within one Apache instance.  For 
most of these applications, I want to use Apache::DBI, but I want to disable it 
for just one.  According to various Web pages, this is not possible, because 
Apache::DBI attaches itself to all DBI->connect() calls.  I would have to run 
my app in a separate Apache instance that excludes Apache::DBI.

It looks like it actually is possible to disable Apache::DBI.  Apache::DBI will 
not be used for a specific DBI connection if its DBI->connect() has a special 
value set for the dbi_connect_method attribute, as in:

$dbh = DBI->connect('dbi:...', '...', '...', { dbi_connect_method => 
'connect' } );

Could somebody verify that this is a sane and future-proof approach?

>From my reading of the DBI.pm source code, this works because DBI defaults to 
>using its own connect() method, then switches to Apache::DBI::connect() if 
>Apache::DBI is in use, and finally, looks for the "dbi_connect_method" 
>attribute.  By setting this attribute to the original default, "connect", 
>Apache::DBI is neatly bypassed.

This would be more elegant if a future version of DBI were to include support 
for a "disable_apache_dbi" attribute.  I think this might involve just a simple 
addition to DBI::connect().

Ted Behling, ISP Systems Analyst
Hargray Communications
[EMAIL PROTECTED]


RE: DBD-Oracle

2005-10-21 Thread Ted Behling
You appear to be using ActiveState's Perl distribution.  You might have better 
luck installing from CPAN, as in:

perl -MCPAN -e 'install DBD::Oracle'

Ted Behling, ISP Systems Analyst
Hargray Communications

> -Original Message-
> From: David Sawyer [mailto:[EMAIL PROTECTED]
> Sent: Friday, October 21, 2005 11:01 AM
> To: dbi-users@perl.org
> Subject: DBD-Oracle
> 
> 
> I am desperately trying to install DBD-Oracle on my UNIX system.
> No matter what I try I get the error :
>  
> [EMAIL PROTECTED]  > ppm install
> ftp://ftp.esoftmatic.com/outgoing/DBI/5.8.4/DBD-Oracle.ppd
>  
> Error: no suitable installation target found for package DBD-Oracle. 
> 
> Can ANYONE offer a suggestion as to the cause of this error?
>  
>  
> Regards,
> David Sawyer
> Senior Customer Support Engineer
> Ceon Corporation
> 650-817-6334 (office) 
> 650-238-8078 (Blackberry Wireless)
> 408-832-4354 (mobile)
> www.Ceon.com
> -.- . -.. .-. ... 
>  
> 


RE: DBD-Oracle

2005-10-21 Thread Reidy, Ron
So, I just have to ask ...

Is your Perl from AS?

--
Ron Reidy
Lead DBA
Array BioPharma, Inc.

-Original Message-
From: David Sawyer [mailto:[EMAIL PROTECTED] 
Sent: Friday, October 21, 2005 9:01 AM
To: dbi-users@perl.org
Subject: DBD-Oracle


I am desperately trying to install DBD-Oracle on my UNIX system. No
matter what I try I get the error :
 
[EMAIL PROTECTED]  > ppm install
ftp://ftp.esoftmatic.com/outgoing/DBI/5.8.4/DBD-Oracle.ppd
 
Error: no suitable installation target found for package DBD-Oracle. 

Can ANYONE offer a suggestion as to the cause of this error?
 
 
Regards,
David Sawyer
Senior Customer Support Engineer
Ceon Corporation
650-817-6334 (office) 
650-238-8078 (Blackberry Wireless)
408-832-4354 (mobile)
www.Ceon.com
-.- . -.. .-. ... 
 

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.



DBD-Oracle

2005-10-21 Thread David Sawyer
I am desperately trying to install DBD-Oracle on my UNIX system.
No matter what I try I get the error :
 
[EMAIL PROTECTED]  > ppm install
ftp://ftp.esoftmatic.com/outgoing/DBI/5.8.4/DBD-Oracle.ppd
 
Error: no suitable installation target found for package DBD-Oracle. 

Can ANYONE offer a suggestion as to the cause of this error?
 
 
Regards,
David Sawyer
Senior Customer Support Engineer
Ceon Corporation
650-817-6334 (office) 
650-238-8078 (Blackberry Wireless)
408-832-4354 (mobile)
www.Ceon.com
-.- . -.. .-. ... 
 


Re: DBD::Oracle & 10.1 client

2005-10-21 Thread Tim Bunce
On Thu, Oct 20, 2005 at 03:41:01PM -0500, Scott T. Hildreth wrote:
> To add more info, I was told this problem only occurs if there is only
> one row returned.  If more than one row is returned, the arrayref is 
> fine.  I changed the selectall_arrayref to selectrow_array and the data
> (one row returned) was fine.   I'm posting to dev as well, just in case 
> this is a known bug.

It's not. (And even if it were, dbi-dev isn't meant for reporting bugs.
The dbi-users list is fine for that.)

> I copied the table to a 9i instance and the ran
> the code below, and it worked fine.  So it seems to be related to 10g.

And since the DBD::Oracle code was the same, that implies it's not a
DBD::Oracle bug. Does seem very odd though.

A level 5 trace will show you what Oracle is returning for each field of
each row. If that shows the bad data then it's almost certainly an
Oracle bug. If it doesn't (ie it shows different values being returned
than what eventually gets returned by selectall_arrayref) then it's a
DBD::Oracle or DBI bug - but at the moment I doubt that.

Tim.

> Thu, 2005-10-20 at 14:07 -0500, Scott T. Hildreth wrote:
> > I am going to investigate more, but I thought I would post the question
> > to see if anyone has run into this problem.
> > 
> > I have co-workers that connecting to a remote Oracle DB (10.1), I
> > compiled DBD::Oracle 1.16 with the 10.1 client libraries.  The data
> > returned from a selectall_arrayref is 2 fields a filename and a
> > quantity.  Here is the isolated code,
> > 
> > 286:my $load_file_ar = $dbh->selectall_arrayref(q{
> > 287 select FILENAME, NUM_RECORDS
> > 288   from LOAD_DATA_SRC_FILE
> > 289  where LOAD_ID = ?
> > 290and DATA_UPDATE_ID = ?
> > 291  order by FILE_ID
> > 292 }, undef, $load_id, $update_id);
> > 
> > $load_id = 19 & $update_id = 51.
> > 
> > ...here is the data returned.
> > 
> >   DB<4> x $files_ar
> > 0  ARRAY(0x8536328)
> >0  ARRAY(0x85e40e0)
> >   0  (binary data)
> >   1  51
> > 
> > what ever $update_id's value is, this is always returned in the [1] position
> > of the the arrayref and the filename is always binary data.  This works fine
> > with sqlplus.  
> > 
> > I have tried it with Perl 5.8.[167] always the same results.   The database 
> > resides on an Alpha and the clients are on Linux.  Trace doesn't show 
> > anything
> > unusual.  I don't know if this is an NLS-utf8 issue.  Any ideas?
> > 
> > Thanks,
> >  STH
> >  
> > Trace- level 9 is attached.
> > 
> -- 
> Scott T. Hildreth <[EMAIL PROTECTED]>


Re: Is it a bug in DBD::SQLite? [cpan #15166]

2005-10-21 Thread Adriano Ferreira
Actually this seems an issue with SQLite 3.2. DBD::SQLite 1.09 uses
3.2.2. And it is reproducible with the Java wrapper over 3.2.1. A
statement like

   SELECT 'a

which should be a syntax error, doubles the last character, returning
(in this example) a row with one column 'aa'.


On 10/20/05, Adriano Ferreira <[EMAIL PROTECTED]> wrote:
> While developing, I gave DBD::SQLite a bad SQL statement like "select
> 'eek" (quoted string not terminated). It worked and gave a weird
> answer. Is that something I should be expecting? Some oddity of
> SQLite?
>
> The following test script was run
> #!/usr/bin/perl
>
> use DBI;
> use DBD::SQLite;
> use Test::More tests => 5;
>
> diag("\$DBI::VERSION: $DBI::VERSION, \$DBD::SQLite::VERSION:
> $DBD::SQLite::VERSION\n");
>
> my $dbh = DBI->connect('dbi:SQLite:dbname=t.db');
> ok($dbh, 'defined $dbh');
>
> # this is bad SQL
> my $sql = "select 'eek";
> my $sth = $dbh->prepare($sql);
> ok($sth, "defined \$sth (SQL: $sql) ?!");
> ok($sth->execute, "execute ok ?!");
> my @row = $sth->fetchrow_array;
> is(scalar @row, 1, 'one column fetched');
> is($row[0], 'eekk', 'returning "eekk", arghh!');
>
> and gave the output
>
> $ perl bug.pl
> 1..5
> # $DBI::VERSION: 1.48, $DBD::SQLite::VERSION: 1.09
> ok 1 - defined $dbh
> ok 2 - defined $sth (SQL: select 'eek) ?!
> ok 3 - execute ok ?!
> ok 4 - one column fetched
> ok 5 - returning "eekk", arghh!
>
> $ perl -v
> This is perl, v5.8.7 built for cygwin-thread-multi-64int
>
> $ uname -a
> CYGWIN_NT-5.0 INF-020 1.5.18(0.132/4/2) 2005-07-02 20:30 i686 unknown
> unknown Cygwin
>


Re: Odd DBI behavior

2005-10-21 Thread Tim Bunce
On Thu, Oct 20, 2005 at 04:57:24PM -0500, [EMAIL PROTECTED] wrote:
> Script is below all this, and it is being performed on RHEL V3. The garbled
> field is a SHA1 blob computed from the
> FULLDATE,HOSTNAME,FACILITY,PRIORITY,MESSAGE fields.
> 
> With the DBI commands commented out of this script I get what I'm expecting.
> 
> INSERT INTO message(FULLDATE,HOSTNAME,FACILITY,PRIORITY,MESSAGE,SHA1)
> VALUES('2005-Oct-19 15:44:54','pkitest.wellsfargo.com','auth
> ','info','sshd(pam_unix)[8549]: session closed for user
> root','~MCà}M~DIB·~Nc^C4¼£¸^V¨~Wû');
> 
> With the DBI commands not commented out I get the following:
> 
> INSERT INTO message(FULLDATE,HOSTNAME,FACILITY,PRIORITY,MESSAGE,SHA1)
> VALUES('2005-Oct-19 15:44:54','pkitest.wellsfargo.com','auth
> ','info','sshd(pam_unix)[8549]: session closed for user
> root','~MCà}M~DIB·~Nc^C4¼£¸^V¨~Wû
> ');
> 
> And "od -cx /spooldir/tmp/LOGFILE" shows a "\n" is inserted at the end of my
> SHA1 blob causing this insert statement to fail.

>   $digest = "'" . sha1($_) . "'";
>   @sql_data = split /[|]/, $_;
>   @sql = 
> ($sql_data[0],$sql_data[1],$sql_data[2],$sql_data[3],$sql_data[4],$digest);
> 
>   $sql_insert = "INSERT INTO
> message(FULLDATE,HOSTNAME,FACILITY,PRIORITY,MESSAGE,SHA1) VALUES(" . $sql[0]
> . "," . $sql[1] . "," . $sql[2] . "," . $sql[3] . "," . $sql[4] . "," .
> $sql[5] . ");";

This implies that sha1() is returning a string with a newline appended.
I can't see how the sha1 code could so that.

Please reduce the script down to the *absolute smallest*[1] script that
demonstrates the problem. In doing that you'll either uncover the
problem or make it much easier for someone else to do so.

Tim.

[1] Ideally ending up with just a few lines, no reading of external
files, no loop, no arrays, etc. etc.


Re: DBD::Oracle & 10.1 client

2005-10-21 Thread Scott T. Hildreth
To add more info, I was told this problem only occurs if there is only
one row returned.  If more than one row is returned, the arrayref is 
fine.  I changed the selectall_arrayref to selectrow_array and the data
(one row returned) was fine.   I'm posting to dev as well, just in case 
this is a known bug.   I copied the table to a 9i instance and the ran
the code below, and it worked fine.  So it seems to be related to 10g.


Thu, 2005-10-20 at 14:07 -0500, Scott T. Hildreth wrote:
> I am going to investigate more, but I thought I would post the question
> to see if anyone has run into this problem.
> 
> I have co-workers that connecting to a remote Oracle DB (10.1), I
> compiled DBD::Oracle 1.16 with the 10.1 client libraries.  The data
> returned from a selectall_arrayref is 2 fields a filename and a
> quantity.  Here is the isolated code,
> 
> 286:my $load_file_ar = $dbh->selectall_arrayref(q{
> 287 select FILENAME, NUM_RECORDS
> 288   from LOAD_DATA_SRC_FILE
> 289  where LOAD_ID = ?
> 290and DATA_UPDATE_ID = ?
> 291  order by FILE_ID
> 292 }, undef, $load_id, $update_id);
> 
> $load_id = 19 & $update_id = 51.
> 
> ...here is the data returned.
> 
>   DB<4> x $files_ar
> 0  ARRAY(0x8536328)
>0  ARRAY(0x85e40e0)
>   0  (binary data)
>   1  51
> 
> what ever $update_id's value is, this is always returned in the [1] position
> of the the arrayref and the filename is always binary data.  This works fine
> with sqlplus.  
> 
> I have tried it with Perl 5.8.[167] always the same results.   The database 
> resides on an Alpha and the clients are on Linux.  Trace doesn't show anything
> unusual.  I don't know if this is an NLS-utf8 issue.  Any ideas?
> 
> Thanks,
>  STH
>  
> Trace- level 9 is attached.
> 
-- 
Scott T. Hildreth <[EMAIL PROTECTED]>


DBD::Oracle & 10.1 client

2005-10-21 Thread Scott T. Hildreth
I am going to investigate more, but I thought I would post the question
to see if anyone has run into this problem.

I have co-workers that connecting to a remote Oracle DB (10.1), I
compiled DBD::Oracle 1.16 with the 10.1 client libraries.  The data
returned from a selectall_arrayref is 2 fields a filename and a
quantity.  Here is the isolated code,

286:my $load_file_ar = $dbh->selectall_arrayref(q{
287 select FILENAME, NUM_RECORDS
288   from LOAD_DATA_SRC_FILE
289  where LOAD_ID = ?
290and DATA_UPDATE_ID = ?
291  order by FILE_ID
292 }, undef, $load_id, $update_id);

$load_id = 19 & $update_id = 51.

...here is the data returned.

  DB<4> x $files_ar
0  ARRAY(0x8536328)
   0  ARRAY(0x85e40e0)
  0  (binary data)
  1  51

what ever $update_id's value is, this is always returned in the [1] position
of the the arrayref and the filename is always binary data.  This works fine
with sqlplus.  

I have tried it with Perl 5.8.[167] always the same results.   The database 
resides on an Alpha and the clients are on Linux.  Trace doesn't show anything
unusual.  I don't know if this is an NLS-utf8 issue.  Any ideas?

Thanks,
 STH
 
Trace- level 9 is attached.

-- 
Scott T. Hildreth <[EMAIL PROTECTED]>
DBI::db=HASH(0x829bca0) trace level set to 9 in DBI 1.39-nothread (pid 
25442)
-> selectall_arrayref for DBD::Oracle::db 
(DBI::db=HASH(0x82fec14)~0x829bca0 '
select FILENAME, NUM_RECORDS
  from LOAD_DATA_SRC_FILE
 where LOAD_ID = ?
   and DATA_UPDATE_ID = ?
 order by FILE_ID
' undef 19 51)
>> prepare DISPATCH (DBI::db=HASH(0x829bca0) rc1/1 @3 g0 ima201 
pid#25442) at /home/demosrc/pmod/DBcommon.pm line 286 via tst_demosrc.pl line 19
1   -> prepare for DBD::Oracle::db (DBI::db=HASH(0x829bca0)~INNER '
select FILENAME, NUM_RECORDS
  from LOAD_DATA_SRC_FILE
 where LOAD_ID = ?
   and DATA_UPDATE_ID = ?
 order by FILE_ID
' undef)
dbih_setup_handle(DBI::st=HASH(0x829bee0)=>DBI::st=HASH(0x829bec8), 
DBD::Oracle::st, 829beec, Null!)
dbih_make_com(DBI::db=HASH(0x829bca0), 829d568, DBD::Oracle::st, 208, 0) 
thr#0
dbih_setup_attrib(DBI::st=HASH(0x829bec8), Err, DBI::db=HASH(0x829bca0)) 
SCALAR(0x81f9860) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x829bec8), State, DBI::db=HASH(0x829bca0)) 
SCALAR(0x81f98c0) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x829bec8), Errstr, DBI::db=HASH(0x829bca0)) 
SCALAR(0x81f9890) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x829bec8), TraceLevel, 
DBI::db=HASH(0x829bca0)) 9 (already defined)
dbih_setup_attrib(DBI::st=HASH(0x829bec8), FetchHashKeyName, 
DBI::db=HASH(0x829bca0)) 'NAME' (already defined)
dbih_setup_attrib(DBI::st=HASH(0x829bec8), HandleError, 
DBI::db=HASH(0x829bca0)) undef (not defined)
dbd_preparse scanned 2 distinct placeholders
OCIHandleAlloc(83092d8,8363608,OCI_HTYPE_STMT,0,0)=SUCCESS
OCIStmtPrepare(8323594,831e5a8,'
select FILENAME, NUM_RECORDS
  from LOAD_DATA_SRC_FILE
 where LOAD_ID = :p1
   and DATA_UPDATE_ID = :p2
 order by FILE_ID
',134,1,0)=SUCCESS
OCIAttrGet(8323594,OCI_HTYPE_STMT,836360c,0,24,831e5a8)=SUCCESS
dbd_st_prepare'd sql SELECT
dbd_describe SELECT (EXPLICIT, lb 80)...
OCIStmtExecute(831e534,8323594,831e5a8,0,0,0,0,16)=SUCCESS
OCIAttrGet(8323594,OCI_HTYPE_STMT,bfffe28c,0,18,831e5a8)=SUCCESS
OCIParamGet(8323594,4,831e5a8,83636b0,1)=SUCCESS
OCIAttrGet(83251e4,OCI_DTYPE_PARAM,83636c6,0,2,831e5a8)=SUCCESS
OCIAttrGet(83251e4,OCI_DTYPE_PARAM,83636c4,0,1,831e5a8)=SUCCESS
OCIAttrGet(83251e4,OCI_DTYPE_PARAM,83636c8,0,5,831e5a8)=SUCCESS
OCIAttrGet(83251e4,OCI_DTYPE_PARAM,83636ca,0,6,831e5a8)=SUCCESS
OCIAttrGet(83251e4,OCI_DTYPE_PARAM,83636cb,0,7,831e5a8)=SUCCESS
OCIAttrGet(83251e4,OCI_DTYPE_PARAM,83636d8,bfffe288,4,831e5a8)=SUCCESS
fbh 1: 'FILENAME'   NULLable, otype   1->  5, dbsize 250/251, p250.s0
OCIParamGet(8323594,4,831e5a8,83636f0,2)=SUCCESS
OCIAttrGet(83251c0,OCI_DTYPE_PARAM,8363706,0,2,831e5a8)=SUCCESS
OCIAttrGet(83251c0,OCI_DTYPE_PARAM,8363704,0,1,831e5a8)=SUCCESS
OCIAttrGet(83251c0,OCI_DTYPE_PARAM,8363708,0,5,831e5a8)=SUCCESS
OCIAttrGet(83251c0,OCI_DTYPE_PARAM,836370a,0,6,831e5a8)=SUCCESS
OCIAttrGet(83251c0,OCI_DTYPE_PARAM,836370b,0,7,831e5a8)=SUCCESS
OCIAttrGet(83251c0,OCI_DTYPE_PARAM,8363718,bfffe288,4,831e5a8)=SUCCESS
fbh 2: 'NUM_RECORDS'NULLable, otype   2->  5, dbsize 22/134, 
p0.s-127
OCIAttrSet(8323594,OCI_HTYPE_STMT,bfffe284,4,11,831e5a8)=SUCCESS
OCIDefineByPos(8323594,83636b4,831e5a8,1,8364360,251,5,83589e0,83589f0,8358a00,0)=SUCCESS
OCIDefineByPos(8323594,83636f4,831e5a8,2,8363b68,134,5,8363698,8363

RE: Serializing Storable.pm objects via DBI to Oracle 10g

2005-10-21 Thread Chris Fuhrman
Not sure this would work but I can give it a shot.

Reason I say this is that I tried to take the "frozen" storable object
and then MIME::Base64 encode it before putting it in the data-base.
Still got the same error so I'm now starting to suspect it's something
going on between Storable.pm and Oracle 10g.

On Fri, 2005-10-21 at 06:38 +1000, Steve Baldwin wrote:
> I haven't tried this on 10g, but what if you gzip your frozen object and
> store it in a BLOB rather than a CLOB.  Here's some code I use that works
> fine in 9.2.0.6 ...
> 
> my $config_data = Compress::Zlib::memGzip(freeze($config));
> my $table_data = Compress::Zlib::memGzip(freeze($Table));
> my $sth_info_ins = $PLX->dbh->prepare(
> "INSERT INTO $info_table (config_data, table_data)"
> . " VALUES (:cdata, :tdata)"
> );
> $sth_info_ins->bind_param(
> ':cdata', $config_data,
> {
> ora_type => ORA_BLOB,
> ora_field => 'config_data'
> });
> $sth_info_ins->bind_param(
> ':tdata', $table_data,
> {
> ora_type => ORA_BLOB,
> ora_field => 'table_data'
> });
> $sth_info_ins->execute;
> 
> Steve
> 

-- 
Chris Fuhrman   | Twenty First Century Communications
[EMAIL PROTECTED] | Senior Software Engineer
(W) 614-442-1215 x271   |
(F) 614-442-5662| PGP/GPG Public Key Available on Request



signature.asc
Description: This is a digitally signed message part