On Sep 10, 2008, at 4:14 AM, John Scoles wrote:
If you can set up a small Perl script that you know works in the old
system and then set the debug level to at least 6
next if you can run the same script on your new location
If you can send the output to the list we might be able to see what
is going on.
Pasted in, since I don't know if the list allows attachments. I'll
send the files to anyone who wants them.
This is with DBD::Oracle 1.17 in both instances, keeping as much the
same as possible.
The only difference is which oracle libs are used for ORACLE_HOME and
to compile DBD::Oracle.
(I'm switching around by changing the environment settings for
ORACLE_BASE, ORACLE_HOME, LD_LIBRARY_PATH, and doing
perl Makefile.PL
make
make install
each time I switch.)
There are no changes to the test.pl file, which is attached at the
very bottom.
You can see in the 8.1.7 version there's a
OCIStmtFetch(8291974,827c8c4,1,2,0)=SUCCESS line followed by the data.
In the 10.1 version it says OCIStmtFetch(829f1e8,8298150,1,2,0)=NO_DATA
I really hope this helps.
With the 8.1.7 client libraries
---------------------------------------------------
DBI 1.601-nothread default trace level set to 0x0/6 (pid 1510) at
test.pl line 21
Note: perl is running without the recommended perl -w option
-> DBI->connect(dbi:Oracle:phmweb, frs, ****)
-> DBI->install_driver(Oracle) for linux perl=5.010000 pid=1510
ruid=0 euid=0
install_driver: DBD::Oracle version 1.17 loaded from /opt/
lampp/lib/perl5/site_perl/5.10.0/i686-linux/DBD/Oracle.pm
New 'DBI::dr' (for DBD::Oracle::dr, parent='', id=undef)
dbih_setup_handle(DBI::dr=HASH(0x8265e98)=>DBI::dr=HASH(0x8265ee8),
DBD::Oracle::dr, 0, Null!)
dbih_make_com(Null!, 0, DBD::Oracle::dr, 108, 0) thr#0
dbih_setup_attrib(DBI::dr=HASH(0x8265ee8), Err, Null!)
SCALAR(0x81b1070) (already defined)
dbih_setup_attrib(DBI::dr=HASH(0x8265ee8), State, Null!)
SCALAR(0x81ebca0) (already defined)
dbih_setup_attrib(DBI::dr=HASH(0x8265ee8), Errstr, Null!)
SCALAR(0x81b1020) (already defined)
dbih_setup_attrib(DBI::dr=HASH(0x8265ee8), TraceLevel, Null!) 0
(already defined)
dbih_setup_attrib(DBI::dr=HASH(0x8265ee8), FetchHashKeyName,
Null!) 'NAME' (already defined)
-> STORE in DBD::_::common for DBD::Oracle::dr
(DBI::dr=HASH(0x8265e98)~0x8265ee8 'ShowErrorStatement' 1)
STORE DBI::dr=HASH(0x8265ee8) 'ShowErrorStatement' => 1
<- STORE= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
DBD/Oracle.pm line 61
<- install_driver= DBI::dr=HASH(0x8265e98)
-> connect for DBD::Oracle::dr (DBI::dr=HASH(0x8265e98)~0x8265ee8
'phmweb' 'frs' **** HASH(0x81c0060))
New 'DBI::db' (for DBD::Oracle::db,
parent=DBI::dr=HASH(0x8265ee8), id=undef)
dbih_setup_handle(DBI::db=HASH(0x8266828)=>DBI::db=HASH(0x8266778),
DBD::Oracle::db, 81ebf50, Null!)
dbih_make_com(DBI::dr=HASH(0x8265ee8), 813b528, DBD::Oracle::db,
132, 0) thr#0
dbih_setup_attrib(DBI::db=HASH(0x8266778), Err,
DBI::dr=HASH(0x8265ee8)) SCALAR(0x81ec160) (already defined)
dbih_setup_attrib(DBI::db=HASH(0x8266778), State,
DBI::dr=HASH(0x8265ee8)) SCALAR(0x81ec1e0) (already defined)
dbih_setup_attrib(DBI::db=HASH(0x8266778), Errstr,
DBI::dr=HASH(0x8265ee8)) SCALAR(0x81ec1a0) (already defined)
dbih_setup_attrib(DBI::db=HASH(0x8266778), TraceLevel,
DBI::dr=HASH(0x8265ee8)) 0 (already defined)
dbih_setup_attrib(DBI::db=HASH(0x8266778), FetchHashKeyName,
DBI::dr=HASH(0x8265ee8)) 'NAME' (already defined)
dbih_setup_attrib(DBI::db=HASH(0x8266778), HandleSetErr,
DBI::dr=HASH(0x8265ee8)) undef (not defined)
dbih_setup_attrib(DBI::db=HASH(0x8266778), HandleError,
DBI::dr=HASH(0x8265ee8)) undef (not defined)
dbih_setup_attrib(DBI::db=HASH(0x8266778), ReadOnly,
DBI::dr=HASH(0x8265ee8)) undef (not defined)
dbih_setup_attrib(DBI::db=HASH(0x8266778), Profile,
DBI::dr=HASH(0x8265ee8)) undef (not defined)
Environment variables:
LESSKEY=/etc/lesskey.bin
NNTPSERVER=news
INFODIR=/usr/local/info:/usr/share/info:/usr/info
MANPATH=/usr/share/man:/usr/local/man:/usr/X11R6/man:/opt/gnome/share/
man
HOSTNAME=tonic3
GNOME2_PATH=/usr/local:/opt/gnome:/usr
XKEYSYMDB=/usr/X11R6/lib/X11/XKeysymDB
HOST=tonic3
SHELL=/bin/bash
TERM=vt100
PROFILEREAD=true
HISTSIZE=1000
MORE=-sl
OLDPWD=/home/oracle/admin/phmweb/udump
GROFF_NO_SGR=yes
USER=root
LD_LIBRARY_PATH=/home/oracle8i_client/8.1.7/lib
LS_COLORS=no=00:fi=00:di=01;34:ln=00;36:pi=40;33:so=01;35:do=01;35:bd=40;33;01:cd=40;33;01:or=41;33;01:ex=00;32:*.cmd=00;32:*.exe=01;32:*.com=01;32:*.bat=01;32:*.btm=01;32:*.dll=01;32:*.tar=00;31:*.tbz=00;31:*.tgz=00;31:*.rpm=00;31:*.deb=00;31:*.arj=00;31:*.taz=00;31:*.lzh=00;31:*.zip=00;31:*.zoo=00;31:*.z=00;31:*.Z=00;31:*.gz=00;31:*.bz2=00;31:*.tb2=00;31:*.tz2=00;31:*.tbz2=00;31:*.avi=01;35:*.bmp=01;35:*.fli=01;35:*.gif=01;35:*.jpg=01;35:*.jpeg=01;35:*.mng=01;35:*.mov=01;35:*.mpg=01;35:*.pcx=01;35:*.pbm=01;35:*.pgm=01;35:*.png=01;35:*.ppm=01;35:*.tga=01;35:*.tif=01;35:*.xbm=01;35:*.xpm=01;35:*.dl=01;35:*.gl=01;35:*.wmv=01;35:*.aiff=00;32:*.au=00;32:*.mid=00;32:*.mp3=00;32:*.ogg=00;32:*.voc=00;32:*.wav=00;32:
ORACLE_SID=phmweb
XNLSPATH=/usr/X11R6/lib/X11/nls
ENV=/etc/bash.bashrc
ORACLE_BASE=/home/oracle8i_client
HOSTTYPE=i386
FROM_HEADER=
PAGER=less
CSHEDIT=emacs
XDG_CONFIG_DIRS=/usr/local/etc/xdg/:/etc/xdg/:/etc/opt/gnome/xdg/
MINICOM=-c on
TNS_ADMIN=/home/oracle8i_client/8.1.7/network/admin
MAIL=/var/spool/mail/root
PATH=/sbin:/usr/sbin:/usr/local/sbin:/opt/gnome/sbin:/root/bin:/usr/
local/bin:/usr/bin:/usr/X11R6/bin:/bin:/usr/games:/opt/gnome/bin:/opt/
kde3/bin:/usr/lib/mit/bin:/usr/lib/mit/sbin:/home/oracle/product/
10.2.0/db_1:/home/oracle8i_client/8.1.7:/home/instantclient10_1:/home/
oracle8i_client/8.1.7
CPU=i686
INPUTRC=/etc/inputrc
PWD=/root
LANG=POSIX
PYTHONSTARTUP=/etc/pythonstart
TEXINPUTS=:/root/.TeX:/usr/share/doc/.TeX:/usr/doc/.TeX
QT_SYSTEM_DIR=/usr/share/desktop-data
SHLVL=1
HOME=/root
LESS_ADVANCED_PREPROCESSOR=no
OSTYPE=linux
LS_OPTIONS=-A -N --color=tty -T 0
XCURSOR_THEME=Industrial
WINDOWMANAGER=/usr/X11R6/bin/gnome
GTK_PATH=/usr/local/lib/gtk-2.0:/opt/gnome/lib/gtk-2.0:/usr/lib/gtk-2.0
LESS=-M -I
MACHTYPE=i686-suse-linux
LOGNAME=root
CVS_RSH=ssh
LC_CTYPE=en_US.UTF-8
XDG_DATA_DIRS=/usr/local/share/:/usr/share/:/etc/opt/kde3/share/:/opt/
kde3/share/:/opt/gnome/share/
ACLOCAL_FLAGS=-I /opt/gnome/share/aclocal
PKG_CONFIG_PATH=/usr/local/lib/pkgconfig:/usr/local/share/pkgconfig:/
usr/lib/pkgconfig:/usr/share/pkgconfig:/opt/kde3/lib/pkgconfig:/opt/
gnome/lib/pkgconfig:/opt/gnome/lib/pkgconfig:/opt/gnome/share/pkgconfig
LESSOPEN=lessopen.sh %s
INFOPATH=/usr/local/info:/usr/share/info:/usr/info:/opt/gnome/share/
info
ORACLE_HOME=/home/oracle8i_client/8.1.7
LESSCLOSE=lessclose.sh %s %s
G_BROKEN_FILENAMES=1
COLORTERM=1
_=./test.pl
OCIInitialize(2,0,0,0,0)=SUCCESS
OCIEnvInit(814ab98,0,0,0)=SUCCESS
OCIHandleAlloc(826e0a8,814ab9c,OCI_HTYPE_ERROR,0,0)=SUCCESS
charsetid=0 ncharsetid=0 (csid: utf8=871 al32utf8=873)
OCIHandleAlloc(826e0a8,814aba0,OCI_HTYPE_SERVER,0,0)=SUCCESS
OCIHandleAlloc(826e0a8,814aba4,OCI_HTYPE_SVCCTX,0,0)=SUCCESS
OCIServerAttach(827c708, 827c8c4, "phmweb", 6, 0)=SUCCESS
OCIAttrSet(827c69c,OCI_HTYPE_SVCCTX,827c708,0,6,827c8c4)=SUCCESS
OCIHandleAlloc(826e0a8,814aba8,OCI_HTYPE_SESSION,0,0)=SUCCESS
OCIAttrSet(8291ddc,OCI_HTYPE_SESSION,814c990,3,22,827c8c4)=SUCCESS
OCIAttrSet(8291ddc,OCI_HTYPE_SESSION,814a8e0,7,23,827c8c4)=SUCCESS
OCISessionBegin(827c69c,827c8c4,8291ddc,1,0)=SUCCESS
OCIAttrSet(827c69c,OCI_HTYPE_SVCCTX,8291ddc,0,7,827c8c4)=SUCCESS
<- connect= DBI::db=HASH(0x8266828) at /opt/lampp/lib/perl5/
site_perl/5.10.0/i686-linux/DBI.pm line 639
-> STORE for DBD::Oracle::db (DBI::db=HASH(0x8266778)~INNER
'PrintError' 1)
STORE DBI::db=HASH(0x8266778) 'PrintError' => 1
<- STORE= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
DBI.pm line 691
-> STORE for DBD::Oracle::db (DBI::db=HASH(0x8266778)~INNER
'AutoCommit' 1)
<- STORE= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
DBI.pm line 691
-> STORE for DBD::Oracle::db (DBI::db=HASH(0x8266778)~INNER
'Username' 'frs')
STORE DBI::db=HASH(0x8266778) 'Username' => 'frs'
<- STORE= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
DBI.pm line 694 via at ./test.pl line 39
<> FETCH= 'frs' ('Username' from cache) at /opt/lampp/lib/perl5/
site_perl/5.10.0/i686-linux/DBI.pm line 694
-> connected in DBD::_::db for DBD::Oracle::db
(DBI::db=HASH(0x8266828)~0x8266778 'dbi:Oracle:phmweb' 'frs' 'xxxxxx')
<- connected= undef at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-
linux/DBI.pm line 700
<- connect= DBI::db=HASH(0x8266828)
-> STORE for DBD::Oracle::db (DBI::db=HASH(0x8266778)~INNER
'dbi_connect_closure' CODE(0x8266258))
STORE DBI::db=HASH(0x8266778) 'dbi_connect_closure' =>
CODE(0x8266258)
<- STORE= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
DBI.pm line 709 via at ./test.pl line 39
-> prepare for DBD::Oracle::db (DBI::db=HASH(0x8266828)~0x8266778
'select first_name, last_name from employees_u where eid = '060007454'')
New 'DBI::st' (for DBD::Oracle::st,
parent=DBI::db=HASH(0x8266778), id=undef)
dbih_setup_handle(DBI::st=HASH(0x8266998)=>DBI::st=HASH(0x82667b8),
DBD::Oracle::st, 81ec270, Null!)
dbih_make_com(DBI::db=HASH(0x8266778), 814ab40, DBD::Oracle::st,
208, 0) thr#0
dbih_setup_attrib(DBI::st=HASH(0x82667b8), Err,
DBI::db=HASH(0x8266778)) SCALAR(0x81ec160) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x82667b8), State,
DBI::db=HASH(0x8266778)) SCALAR(0x81ec1e0) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x82667b8), Errstr,
DBI::db=HASH(0x8266778)) SCALAR(0x81ec1a0) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x82667b8), TraceLevel,
DBI::db=HASH(0x8266778)) 0 (already defined)
dbih_setup_attrib(DBI::st=HASH(0x82667b8), FetchHashKeyName,
DBI::db=HASH(0x8266778)) 'NAME' (already defined)
dbih_setup_attrib(DBI::st=HASH(0x82667b8), HandleSetErr,
DBI::db=HASH(0x8266778)) undef (not defined)
dbih_setup_attrib(DBI::st=HASH(0x82667b8), HandleError,
DBI::db=HASH(0x8266778)) undef (not defined)
dbih_setup_attrib(DBI::st=HASH(0x82667b8), ReadOnly,
DBI::db=HASH(0x8266778)) undef (not defined)
dbih_setup_attrib(DBI::st=HASH(0x82667b8), Profile,
DBI::db=HASH(0x8266778)) undef (not defined)
OCIHandleAlloc(826e0a8,8293350,OCI_HTYPE_STMT,0,0)=SUCCESS
OCIStmtPrepare(8291974,827c8c4,'select first_name, last_name from
employees_u where eid = '060007454'',69,1,0)=SUCCESS
OCIAttrGet(8291974,OCI_HTYPE_STMT,8293354,0,24,827c8c4)=SUCCESS
dbd_st_prepare'd sql SELECT (pl1, auto_lob1, check_sql1)
dbd_describe SELECT (EXPLICIT, lb 80)...
OCIStmtExecute(827c69c,8291974,827c8c4,0,0,0,0,16)=SUCCESS
OCIAttrGet(8291974,OCI_HTYPE_STMT,bff403e8,0,18,827c8c4)=SUCCESS
OCIParamGet(8291974,4,827c8c4,8289c50,1)=SUCCESS
OCIAttrGet(8291034,OCI_DTYPE_PARAM,8289c68,0,2,827c8c4)=SUCCESS
OCIAttrGet(8291034,OCI_DTYPE_PARAM,8289c6a,0,1,827c8c4)=SUCCESS
OCIAttrGet(8291034,OCI_DTYPE_PARAM,8289c7c,0,31,827c8c4)=SUCCESS
OCIAttrGet(8291034,OCI_DTYPE_PARAM,8289c7e,0,32,827c8c4)=SUCCESS
OCIAttrGet(8291034,OCI_DTYPE_PARAM,8289c6c,0,5,827c8c4)=SUCCESS
OCIAttrGet(8291034,OCI_DTYPE_PARAM,8289c6e,0,6,827c8c4)=SUCCESS
OCIAttrGet(8291034,OCI_DTYPE_PARAM,8289c6f,0,7,827c8c4)=SUCCESS
OCIAttrGet(8291034,OCI_DTYPE_PARAM,8289c70,bff403e4,4,827c8c4)=SUCCESS
col 1: dbtype 96, scale 0, prec 25, nullok 1, name FIRST_NAME
: dbsize 25, char_used 0, char_size 0, csid 1, csform 1,
disize 25
fbh 1: 'FIRST_NAME' NULLable, otype 96-> 5, dbsize 25/26, p25.s0
OCIParamGet(8291974,4,827c8c4,8289c9c,2)=SUCCESS
OCIAttrGet(8291014,OCI_DTYPE_PARAM,8289cb4,0,2,827c8c4)=SUCCESS
OCIAttrGet(8291014,OCI_DTYPE_PARAM,8289cb6,0,1,827c8c4)=SUCCESS
OCIAttrGet(8291014,OCI_DTYPE_PARAM,8289cc8,0,31,827c8c4)=SUCCESS
OCIAttrGet(8291014,OCI_DTYPE_PARAM,8289cca,0,32,827c8c4)=SUCCESS
OCIAttrGet(8291014,OCI_DTYPE_PARAM,8289cb8,0,5,827c8c4)=SUCCESS
OCIAttrGet(8291014,OCI_DTYPE_PARAM,8289cba,0,6,827c8c4)=SUCCESS
OCIAttrGet(8291014,OCI_DTYPE_PARAM,8289cbb,0,7,827c8c4)=SUCCESS
OCIAttrGet(8291014,OCI_DTYPE_PARAM,8289cbc,bff403e4,4,827c8c4)=SUCCESS
col 2: dbtype 96, scale 0, prec 25, nullok 1, name LAST_NAME
: dbsize 25, char_used 0, char_size 0, csid 1, csform 1,
disize 25
fbh 2: 'LAST_NAME' NULLable, otype 96-> 5, dbsize 25/26, p25.s0
OCIAttrSet(8291974,OCI_HTYPE_STMT,bff403e4,4,13,827c8c4)=SUCCESS
OCIAttrSet(8291974,OCI_HTYPE_STMT,bff403e0,4,11,827c8c4)=SUCCESS
row cache OCI_ATTR_PREFETCH_ROWS 214, OCI_ATTR_PREFETCH_MEMORY 0
OCIDefineByPos
(8291974,8289c54,827c8c4,1,81790f8,26,5,828e300,828e310,828e320,0
)=SUCCESS
OCIDefineByPos
(8291974,8289ca0,827c8c4,2,8289d28,26,5,828e4c8,828e4d8,828e4e8,0
)=SUCCESS
dbd_describe'd 2 columns (row bytes: 50 max, 50 est avg, cache:
214)
<- prepare= DBI::st=HASH(0x8266998) at ./test.pl line 47
-> execute for DBD::Oracle::st (DBI::st=HASH(0x8266998)~0x82667b8)
dbd_st_execute SELECT (out0, lob0)...
OCIStmtExecute(827c69c,8291974,827c8c4,0,0,0,0,0)=SUCCESS
OCIAttrGet(8291974,OCI_HTYPE_STMT,bff405ee,0,10,827c8c4)=SUCCESS
dbd_st_execute SELECT returned (SUCCESS, rpc0, fn4, out0)
<- execute= '0E0' at ./test.pl line 49
-> bind_columns in DBD::_::st for DBD::Oracle::st
(DBI::st=HASH(0x8266998)~0x82667b8 undef SCALAR(0x81b18e0)
SCALAR(0x81b18c0))
1 -> FETCH for DBD::Oracle::st (DBI::st=HASH(0x82667b8)~INNER
'NUM_OF_FIELDS')
.. FETCH DBI::st=HASH(0x82667b8) 'NUM_OF_FIELDS' = 2 (cached)
1 <- FETCH= 2 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
DBI.pm line 1825 via at ./test.pl line 52
1 -> bind_col in DBD::_::st for DBD::Oracle::st
(DBI::st=HASH(0x82667b8)~INNER 1 SCALAR(0x81b18e0) undef)
dbih_setup_fbav alloc for 2 fields
dbih_setup_fbav now 2 fields
dbih_sth_bind_col 1 => SCALAR(0x81b18e0) Null!
1 <- bind_col= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
DBI.pm line 1836 via at ./test.pl line 52
1 -> bind_col for DBD::Oracle::st (DBI::st=HASH(0x82667b8)~INNER 2
SCALAR(0x81b18c0) undef)
dbih_sth_bind_col 2 => SCALAR(0x81b18c0) Null!
1 <- bind_col= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
DBI.pm line 1836 via at ./test.pl line 52
<- bind_columns= 1 at ./test.pl line 52
-> fetch for DBD::Oracle::st (DBI::st=HASH(0x8266998)~0x82667b8)
dbd_st_fetch 2 fields...
OCIStmtFetch(8291974,827c8c4,1,2,0)=SUCCESS
dbd_st_fetch 2 fields SUCCESS
0 (rc=0): 'BRUCE E '
1 (rc=0): 'JOHNSON '
<- fetch= [ 'BRUCE E ' 'JOHNSON
' ] row1 at ./test.pl line 53
-> fetch for DBD::Oracle::st (DBI::st=HASH(0x8266998)~0x82667b8)
dbd_st_fetch 2 fields...
OCIStmtFetch(8291974,827c8c4,1,2,0)=NO_DATA
dbd_st_fetch no-more-data
<- fetch= undef row1 at ./test.pl line 54
<> DESTROY(DBI::st=HASH(0x8266998)) ignored for outer handle
(inner DBI::st=HASH(0x82667b8) has ref cnt 1)
-> DESTROY for DBD::Oracle::st (DBI::st=HASH(0x82667b8)~INNER)
dbd_st_destroy
OCIHandleFree(8291974,OCI_HTYPE_STMT)=SUCCESS
<- DESTROY= undef at ./test.pl line 59 via at ./test.pl line 59
DESTROY (dbih_clearcom) (sth 0x82667b8, com 0x82932d0, imp
DBD::Oracle::st):
FLAGS 0x82111: COMSET Warn PrintError ShowErrorStatement
PARENT DBI::db=HASH(0x8266778)
KIDS 0 (0 Active)
NUM_OF_FIELDS 2
NUM_OF_PARAMS 0
dbih_clearcom 0x82667b8 (com 0x82932d0, type 3) done.
<> DESTROY(DBI::db=HASH(0x8266828)) ignored for outer handle
(inner DBI::db=HASH(0x8266778) has ref cnt 1)
-> DESTROY for DBD::Oracle::db (DBI::db=HASH(0x8266778)~INNER)
OCISessionEnd(827c69c,827c8c4,8291ddc,0)=SUCCESS
OCIServerDetach(827c708,827c8c4,0)=SUCCESS
OCIHandleFree(8291ddc,OCI_HTYPE_SESSION)=SUCCESS
OCIHandleFree(827c708,OCI_HTYPE_SERVER)=SUCCESS
OCIHandleFree(827c69c,OCI_HTYPE_SVCCTX)=SUCCESS
OCIHandleFree(827c8c4,OCI_HTYPE_ERROR)=SUCCESS
<- DESTROY= undef at ./test.pl line 59 via at ./test.pl line 59
DESTROY (dbih_clearcom) (dbh 0x8266778, com 0x814ab40, imp
DBD::Oracle::db):
FLAGS 0x82311: COMSET Warn PrintError ShowErrorStatement
AutoCommit
PARENT DBI::dr=HASH(0x8265ee8)
KIDS 0 (0 Active)
dbih_clearcom 0x8266778 (com 0x814ab40, type 2) done.
-- DBI::END ($@: , $!: )
-> disconnect_all for DBD::Oracle::dr
(DBI::dr=HASH(0x8265e98)~0x8265ee8)
<- disconnect_all= (not implemented) at /opt/lampp/lib/perl5/
site_perl/5.10.0/i686-linux/DBI.pm line 717 via at ./test.pl line 59
! -> DESTROY in DBD::_::common for DBD::Oracle::dr
(DBI::dr=HASH(0x8265ee8)~INNER)
! <- DESTROY= undef during global destruction
DESTROY (dbih_clearcom) (drh 0x8265e98, com 0x813b528, imp global
destruction):
FLAGS 0x2215: COMSET Active Warn ShowErrorStatement AutoCommit
PARENT undef
KIDS 0 (0 Active)
dbih_clearcom 0x8265e98 (com 0x813b528, type 1) done.
! <> DESTROY for DBI::dr=HASH(0x8265e98) ignored (inner handle gone)
---------------------------------------------------
With the 10.1 Instant Client libraries
---------------------------------------------------
DBI 1.601-nothread default trace level set to 0x0/6 (pid 2157) at
test.pl line 21
Note: perl is running without the recommended perl -w option
-> DBI->connect(dbi:Oracle:phmweb, frs, ****)
-> DBI->install_driver(Oracle) for linux perl=5.010000 pid=2157
ruid=0 euid=0
install_driver: DBD::Oracle version 1.17 loaded from /opt/
lampp/lib/perl5/site_perl/5.10.0/i686-linux/DBD/Oracle.pm
New 'DBI::dr' (for DBD::Oracle::dr, parent='', id=undef)
dbih_setup_handle(DBI::dr=HASH(0x8265f78)=>DBI::dr=HASH(0x8265fc8),
DBD::Oracle::dr, 0, Null!)
dbih_make_com(Null!, 0, DBD::Oracle::dr, 108, 0) thr#0
dbih_setup_attrib(DBI::dr=HASH(0x8265fc8), Err, Null!)
SCALAR(0x81b1058) (already defined)
dbih_setup_attrib(DBI::dr=HASH(0x8265fc8), State, Null!)
SCALAR(0x81ebc88) (already defined)
dbih_setup_attrib(DBI::dr=HASH(0x8265fc8), Errstr, Null!)
SCALAR(0x81b1008) (already defined)
dbih_setup_attrib(DBI::dr=HASH(0x8265fc8), TraceLevel, Null!) 0
(already defined)
dbih_setup_attrib(DBI::dr=HASH(0x8265fc8), FetchHashKeyName,
Null!) 'NAME' (already defined)
-> STORE in DBD::_::common for DBD::Oracle::dr
(DBI::dr=HASH(0x8265f78)~0x8265fc8 'ShowErrorStatement' 1)
STORE DBI::dr=HASH(0x8265fc8) 'ShowErrorStatement' => 1
<- STORE= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
DBD/Oracle.pm line 61
<- install_driver= DBI::dr=HASH(0x8265f78)
-> connect for DBD::Oracle::dr (DBI::dr=HASH(0x8265f78)~0x8265fc8
'phmweb' 'frs' **** HASH(0x81c0048))
New 'DBI::db' (for DBD::Oracle::db,
parent=DBI::dr=HASH(0x8265fc8), id=undef)
dbih_setup_handle(DBI::db=HASH(0x8266908)=>DBI::db=HASH(0x8266858),
DBD::Oracle::db, 81ebf38, Null!)
dbih_make_com(DBI::dr=HASH(0x8265fc8), 81513a8, DBD::Oracle::db,
132, 0) thr#0
dbih_setup_attrib(DBI::db=HASH(0x8266858), Err,
DBI::dr=HASH(0x8265fc8)) SCALAR(0x81ec148) (already defined)
dbih_setup_attrib(DBI::db=HASH(0x8266858), State,
DBI::dr=HASH(0x8265fc8)) SCALAR(0x81ec1c8) (already defined)
dbih_setup_attrib(DBI::db=HASH(0x8266858), Errstr,
DBI::dr=HASH(0x8265fc8)) SCALAR(0x81ec188) (already defined)
dbih_setup_attrib(DBI::db=HASH(0x8266858), TraceLevel,
DBI::dr=HASH(0x8265fc8)) 0 (already defined)
dbih_setup_attrib(DBI::db=HASH(0x8266858), FetchHashKeyName,
DBI::dr=HASH(0x8265fc8)) 'NAME' (already defined)
dbih_setup_attrib(DBI::db=HASH(0x8266858), HandleSetErr,
DBI::dr=HASH(0x8265fc8)) undef (not defined)
dbih_setup_attrib(DBI::db=HASH(0x8266858), HandleError,
DBI::dr=HASH(0x8265fc8)) undef (not defined)
dbih_setup_attrib(DBI::db=HASH(0x8266858), ReadOnly,
DBI::dr=HASH(0x8265fc8)) undef (not defined)
dbih_setup_attrib(DBI::db=HASH(0x8266858), Profile,
DBI::dr=HASH(0x8265fc8)) undef (not defined)
Environment variables:
LESSKEY=/etc/lesskey.bin
NNTPSERVER=news
INFODIR=/usr/local/info:/usr/share/info:/usr/info
MANPATH=/usr/share/man:/usr/local/man:/usr/X11R6/man:/opt/gnome/share/
man
HOSTNAME=tonic3
GNOME2_PATH=/usr/local:/opt/gnome:/usr
XKEYSYMDB=/usr/X11R6/lib/X11/XKeysymDB
HOST=tonic3
SHELL=/bin/bash
TERM=vt100
PROFILEREAD=true
HISTSIZE=1000
MORE=-sl
OLDPWD=/home/oracle/admin/phmweb/udump
GROFF_NO_SGR=yes
USER=root
LD_LIBRARY_PATH=/home/instantclient10_1
LS_COLORS=no=00:fi=00:di=01;34:ln=00;36:pi=40;33:so=01;35:do=01;35:bd=40;33;01:cd=40;33;01:or=41;33;01:ex=00;32:*.cmd=00;32:*.exe=01;32:*.com=01;32:*.bat=01;32:*.btm=01;32:*.dll=01;32:*.tar=00;31:*.tbz=00;31:*.tgz=00;31:*.rpm=00;31:*.deb=00;31:*.arj=00;31:*.taz=00;31:*.lzh=00;31:*.zip=00;31:*.zoo=00;31:*.z=00;31:*.Z=00;31:*.gz=00;31:*.bz2=00;31:*.tb2=00;31:*.tz2=00;31:*.tbz2=00;31:*.avi=01;35:*.bmp=01;35:*.fli=01;35:*.gif=01;35:*.jpg=01;35:*.jpeg=01;35:*.mng=01;35:*.mov=01;35:*.mpg=01;35:*.pcx=01;35:*.pbm=01;35:*.pgm=01;35:*.png=01;35:*.ppm=01;35:*.tga=01;35:*.tif=01;35:*.xbm=01;35:*.xpm=01;35:*.dl=01;35:*.gl=01;35:*.wmv=01;35:*.aiff=00;32:*.au=00;32:*.mid=00;32:*.mp3=00;32:*.ogg=00;32:*.voc=00;32:*.wav=00;32:
ORACLE_SID=phmweb
XNLSPATH=/usr/X11R6/lib/X11/nls
ENV=/etc/bash.bashrc
ORACLE_BASE=/home/instantclient10_1
HOSTTYPE=i386
FROM_HEADER=
PAGER=less
CSHEDIT=emacs
XDG_CONFIG_DIRS=/usr/local/etc/xdg/:/etc/xdg/:/etc/opt/gnome/xdg/
MINICOM=-c on
TNS_ADMIN=/home/instantclient10_1
MAIL=/var/spool/mail/root
PATH=/sbin:/usr/sbin:/usr/local/sbin:/opt/gnome/sbin:/root/bin:/usr/
local/bin:/usr/bin:/usr/X11R6/bin:/bin:/usr/games:/opt/gnome/bin:/opt/
kde3/bin:/usr/lib/mit/bin:/usr/lib/mit/sbin:/home/oracle/product/
10.2.0/db_1:/home/oracle8i_client/8.1.7:/home/instantclient10_1:/home/
oracle8i_client/8.1.7:/home/instantclient10_1
CPU=i686
INPUTRC=/etc/inputrc
PWD=/root
LANG=POSIX
PYTHONSTARTUP=/etc/pythonstart
TEXINPUTS=:/root/.TeX:/usr/share/doc/.TeX:/usr/doc/.TeX
QT_SYSTEM_DIR=/usr/share/desktop-data
SHLVL=1
HOME=/root
LESS_ADVANCED_PREPROCESSOR=no
OSTYPE=linux
LS_OPTIONS=-A -N --color=tty -T 0
XCURSOR_THEME=Industrial
WINDOWMANAGER=/usr/X11R6/bin/gnome
GTK_PATH=/usr/local/lib/gtk-2.0:/opt/gnome/lib/gtk-2.0:/usr/lib/gtk-2.0
LESS=-M -I
MACHTYPE=i686-suse-linux
LOGNAME=root
CVS_RSH=ssh
LC_CTYPE=en_US.UTF-8
XDG_DATA_DIRS=/usr/local/share/:/usr/share/:/etc/opt/kde3/share/:/opt/
kde3/share/:/opt/gnome/share/
ACLOCAL_FLAGS=-I /opt/gnome/share/aclocal
PKG_CONFIG_PATH=/usr/local/lib/pkgconfig:/usr/local/share/pkgconfig:/
usr/lib/pkgconfig:/usr/share/pkgconfig:/opt/kde3/lib/pkgconfig:/opt/
gnome/lib/pkgconfig:/opt/gnome/lib/pkgconfig:/opt/gnome/share/pkgconfig
LESSOPEN=lessopen.sh %s
INFOPATH=/usr/local/info:/usr/share/info:/usr/info:/opt/gnome/share/
info
ORACLE_HOME=/home/instantclient10_1
LESSCLOSE=lessclose.sh %s %s
G_BROKEN_FILENAMES=1
COLORTERM=1
_=./test.pl
OCINlsEnvironmentVariableGet(1,0,93,0,2)=SUCCESS
OCINlsEnvironmentVariableGet(1,0,94,0,2)=SUCCESS
OCINlsEnvCreate(81b35e8,2,0,0,0,0,0,0,1,1)=SUCCESS
OCIHandleAlloc(8283110,81b35ec,OCI_HTYPE_ERROR,0,0)=SUCCESS
charsetid=1 ncharsetid=1 (csid: utf8=871 al32utf8=873)
OCIHandleAlloc(8283110,81b35f0,OCI_HTYPE_SERVER,0,0)=SUCCESS
OCIHandleAlloc(8283110,81b35f4,OCI_HTYPE_SVCCTX,0,0)=SUCCESS
OCIServerAttach(82986dc, 8298150, "phmweb", 6, 0)=SUCCESS
OCIAttrSet(82980dc,OCI_HTYPE_SVCCTX,82986dc,0,6,8298150)=SUCCESS
OCIHandleAlloc(8283110,81b35f8,OCI_HTYPE_SESSION,0,0)=SUCCESS
OCIAttrSet(82a13cc,OCI_HTYPE_SESSION,81b3388,3,22,8298150)=SUCCESS
OCIAttrSet(82a13cc,OCI_HTYPE_SESSION,81b3398,7,23,8298150)=SUCCESS
OCISessionBegin(82980dc,8298150,82a13cc,1,0)=SUCCESS
OCIAttrSet(82980dc,OCI_HTYPE_SVCCTX,82a13cc,0,7,8298150)=SUCCESS
<- connect= DBI::db=HASH(0x8266908) at /opt/lampp/lib/perl5/
site_perl/5.10.0/i686-linux/DBI.pm line 639
-> STORE for DBD::Oracle::db (DBI::db=HASH(0x8266858)~INNER
'PrintError' 1)
STORE DBI::db=HASH(0x8266858) 'PrintError' => 1
<- STORE= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
DBI.pm line 691
-> STORE for DBD::Oracle::db (DBI::db=HASH(0x8266858)~INNER
'AutoCommit' 1)
<- STORE= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
DBI.pm line 691
-> STORE for DBD::Oracle::db (DBI::db=HASH(0x8266858)~INNER
'Username' 'frs')
STORE DBI::db=HASH(0x8266858) 'Username' => 'frs'
<- STORE= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
DBI.pm line 694 via at ./test.pl line 39
<> FETCH= 'frs' ('Username' from cache) at /opt/lampp/lib/perl5/
site_perl/5.10.0/i686-linux/DBI.pm line 694
-> connected in DBD::_::db for DBD::Oracle::db
(DBI::db=HASH(0x8266908)~0x8266858 'dbi:Oracle:phmweb' 'frs' 'xxxxxx')
<- connected= undef at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-
linux/DBI.pm line 700
<- connect= DBI::db=HASH(0x8266908)
-> STORE for DBD::Oracle::db (DBI::db=HASH(0x8266858)~INNER
'dbi_connect_closure' CODE(0x8266338))
STORE DBI::db=HASH(0x8266858) 'dbi_connect_closure' =>
CODE(0x8266338)
<- STORE= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
DBI.pm line 709 via at ./test.pl line 39
-> prepare for DBD::Oracle::db (DBI::db=HASH(0x8266908)~0x8266858
'select first_name, last_name from employees_u where eid = '060007454'')
New 'DBI::st' (for DBD::Oracle::st,
parent=DBI::db=HASH(0x8266858), id=undef)
dbih_setup_handle(DBI::st=HASH(0x8266a78)=>DBI::st=HASH(0x8266898),
DBD::Oracle::st, 81ec258, Null!)
dbih_make_com(DBI::db=HASH(0x8266858), 81b3590, DBD::Oracle::st,
208, 0) thr#0
dbih_setup_attrib(DBI::st=HASH(0x8266898), Err,
DBI::db=HASH(0x8266858)) SCALAR(0x81ec148) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x8266898), State,
DBI::db=HASH(0x8266858)) SCALAR(0x81ec1c8) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x8266898), Errstr,
DBI::db=HASH(0x8266858)) SCALAR(0x81ec188) (already defined)
dbih_setup_attrib(DBI::st=HASH(0x8266898), TraceLevel,
DBI::db=HASH(0x8266858)) 0 (already defined)
dbih_setup_attrib(DBI::st=HASH(0x8266898), FetchHashKeyName,
DBI::db=HASH(0x8266858)) 'NAME' (already defined)
dbih_setup_attrib(DBI::st=HASH(0x8266898), HandleSetErr,
DBI::db=HASH(0x8266858)) undef (not defined)
dbih_setup_attrib(DBI::st=HASH(0x8266898), HandleError,
DBI::db=HASH(0x8266858)) undef (not defined)
dbih_setup_attrib(DBI::st=HASH(0x8266898), ReadOnly,
DBI::db=HASH(0x8266858)) undef (not defined)
dbih_setup_attrib(DBI::st=HASH(0x8266898), Profile,
DBI::db=HASH(0x8266858)) undef (not defined)
OCIHandleAlloc(8283110,82bd9c8,OCI_HTYPE_STMT,0,0)=SUCCESS
OCIStmtPrepare(829f1e8,8298150,'select first_name, last_name from
employees_u where eid = '060007454'',69,1,0)=SUCCESS
OCIAttrGet(829f1e8,OCI_HTYPE_STMT,82bd9cc,0,24,8298150)=SUCCESS
dbd_st_prepare'd sql SELECT (pl1, auto_lob1, check_sql1)
dbd_describe SELECT (EXPLICIT, lb 80)...
OCIStmtExecute(82980dc,829f1e8,8298150,0,0,0,0,16)=SUCCESS
OCIAttrGet(829f1e8,OCI_HTYPE_STMT,bfc438f8,0,18,8298150)=SUCCESS
OCIParamGet(829f1e8,4,8298150,82bdbf0,1)=SUCCESS
OCIAttrGet(829f054,OCI_DTYPE_PARAM,82bdc08,0,2,8298150)=SUCCESS
OCIAttrGet(829f054,OCI_DTYPE_PARAM,82bdc0a,0,1,8298150)=SUCCESS
OCIAttrGet(829f054,OCI_DTYPE_PARAM,82bdc18,0,285,8298150)=SUCCESS
OCIAttrGet(829f054,OCI_DTYPE_PARAM,82bdc1a,0,286,8298150)=SUCCESS
OCIAttrGet(829f054,OCI_DTYPE_PARAM,82bdc1c,0,31,8298150)=SUCCESS
OCIAttrGet(829f054,OCI_DTYPE_PARAM,82bdc1e,0,32,8298150)=SUCCESS
OCIAttrGet(829f054,OCI_DTYPE_PARAM,82bdc0c,0,5,8298150)=SUCCESS
OCIAttrGet(829f054,OCI_DTYPE_PARAM,82bdc0e,0,6,8298150)=SUCCESS
OCIAttrGet(829f054,OCI_DTYPE_PARAM,82bdc0f,0,7,8298150)=SUCCESS
OCIAttrGet(829f054,OCI_DTYPE_PARAM,82bdc10,bfc438f4,4,8298150)=SUCCESS
col 1: dbtype 96, scale 0, prec 25, nullok 1, name FIRST_NAME
: dbsize 25, char_used 0, char_size 25, csid 1, csform 1,
disize 25
fbh 1: 'FIRST_NAME' NULLable, otype 96-> 5, dbsize 25/26, p25.s0
OCIParamGet(829f1e8,4,8298150,82bdc3c,2)=SUCCESS
OCIAttrGet(829f030,OCI_DTYPE_PARAM,82bdc54,0,2,8298150)=SUCCESS
OCIAttrGet(829f030,OCI_DTYPE_PARAM,82bdc56,0,1,8298150)=SUCCESS
OCIAttrGet(829f030,OCI_DTYPE_PARAM,82bdc64,0,285,8298150)=SUCCESS
OCIAttrGet(829f030,OCI_DTYPE_PARAM,82bdc66,0,286,8298150)=SUCCESS
OCIAttrGet(829f030,OCI_DTYPE_PARAM,82bdc68,0,31,8298150)=SUCCESS
OCIAttrGet(829f030,OCI_DTYPE_PARAM,82bdc6a,0,32,8298150)=SUCCESS
OCIAttrGet(829f030,OCI_DTYPE_PARAM,82bdc58,0,5,8298150)=SUCCESS
OCIAttrGet(829f030,OCI_DTYPE_PARAM,82bdc5a,0,6,8298150)=SUCCESS
OCIAttrGet(829f030,OCI_DTYPE_PARAM,82bdc5b,0,7,8298150)=SUCCESS
OCIAttrGet(829f030,OCI_DTYPE_PARAM,82bdc5c,bfc438f4,4,8298150)=SUCCESS
col 2: dbtype 96, scale 0, prec 25, nullok 1, name LAST_NAME
: dbsize 25, char_used 0, char_size 25, csid 1, csform 1,
disize 25
fbh 2: 'LAST_NAME' NULLable, otype 96-> 5, dbsize 25/26, p25.s0
OCIAttrSet(829f1e8,OCI_HTYPE_STMT,bfc438f4,4,13,8298150)=SUCCESS
OCIAttrSet(829f1e8,OCI_HTYPE_STMT,bfc438f0,4,11,8298150)=SUCCESS
row cache OCI_ATTR_PREFETCH_ROWS 214, OCI_ATTR_PREFETCH_MEMORY 0
OCIDefineByPos
(829f1e8,82bdbf4,8298150,1,82bd780,26,5,8180b48,8180b58,82bdb68,0
)=SUCCESS
OCIDefineByPos
(829f1e8,82bdc40,8298150,2,814dd38,26,5,82bd5d0,82bd738,81b4118,0
)=SUCCESS
dbd_describe'd 2 columns (row bytes: 50 max, 50 est avg, cache:
214)
<- prepare= DBI::st=HASH(0x8266a78) at ./test.pl line 47
-> execute for DBD::Oracle::st (DBI::st=HASH(0x8266a78)~0x8266898)
dbd_st_execute SELECT (out0, lob0)...
OCIStmtExecute(82980dc,829f1e8,8298150,0,0,0,0,0)=SUCCESS
OCIAttrGet(829f1e8,OCI_HTYPE_STMT,bfc43afe,0,10,8298150)=SUCCESS
dbd_st_execute SELECT returned (SUCCESS, rpc0, fn4, out0)
<- execute= '0E0' at ./test.pl line 49
-> bind_columns in DBD::_::st for DBD::Oracle::st
(DBI::st=HASH(0x8266a78)~0x8266898 undef SCALAR(0x81b18c8)
SCALAR(0x81b18a8))
1 -> FETCH for DBD::Oracle::st (DBI::st=HASH(0x8266898)~INNER
'NUM_OF_FIELDS')
.. FETCH DBI::st=HASH(0x8266898) 'NUM_OF_FIELDS' = 2 (cached)
1 <- FETCH= 2 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
DBI.pm line 1825 via at ./test.pl line 52
1 -> bind_col in DBD::_::st for DBD::Oracle::st
(DBI::st=HASH(0x8266898)~INNER 1 SCALAR(0x81b18c8) undef)
dbih_setup_fbav alloc for 2 fields
dbih_setup_fbav now 2 fields
dbih_sth_bind_col 1 => SCALAR(0x81b18c8) Null!
1 <- bind_col= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
DBI.pm line 1836 via at ./test.pl line 52
1 -> bind_col for DBD::Oracle::st (DBI::st=HASH(0x8266898)~INNER 2
SCALAR(0x81b18a8) undef)
dbih_sth_bind_col 2 => SCALAR(0x81b18a8) Null!
1 <- bind_col= 1 at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/
DBI.pm line 1836 via at ./test.pl line 52
<- bind_columns= 1 at ./test.pl line 52
-> fetch for DBD::Oracle::st (DBI::st=HASH(0x8266a78)~0x8266898)
dbd_st_fetch 2 fields...
OCIStmtFetch(829f1e8,8298150,1,2,0)=NO_DATA
dbd_st_fetch no-more-data
<- fetch= undef at ./test.pl line 53
<> DESTROY(DBI::st=HASH(0x8266a78)) ignored for outer handle
(inner DBI::st=HASH(0x8266898) has ref cnt 1)
-> DESTROY for DBD::Oracle::st (DBI::st=HASH(0x8266898)~INNER)
dbd_st_destroy
OCIHandleFree(829f1e8,OCI_HTYPE_STMT)=SUCCESS
<- DESTROY= undef at ./test.pl line 59 via at ./test.pl line 59
DESTROY (dbih_clearcom) (sth 0x8266898, com 0x82bd948, imp
DBD::Oracle::st):
FLAGS 0x82111: COMSET Warn PrintError ShowErrorStatement
PARENT DBI::db=HASH(0x8266858)
KIDS 0 (0 Active)
NUM_OF_FIELDS 2
NUM_OF_PARAMS 0
dbih_clearcom 0x8266898 (com 0x82bd948, type 3) done.
<> DESTROY(DBI::db=HASH(0x8266908)) ignored for outer handle
(inner DBI::db=HASH(0x8266858) has ref cnt 1)
-> DESTROY for DBD::Oracle::db (DBI::db=HASH(0x8266858)~INNER)
OCISessionEnd(82980dc,8298150,82a13cc,0)=SUCCESS
OCIServerDetach(82986dc,8298150,0)=SUCCESS
OCIHandleFree(82a13cc,OCI_HTYPE_SESSION)=SUCCESS
OCIHandleFree(82986dc,OCI_HTYPE_SERVER)=SUCCESS
OCIHandleFree(82980dc,OCI_HTYPE_SVCCTX)=SUCCESS
OCIHandleFree(8298150,OCI_HTYPE_ERROR)=SUCCESS
<- DESTROY= undef at ./test.pl line 59 via at ./test.pl line 59
DESTROY (dbih_clearcom) (dbh 0x8266858, com 0x81b3590, imp
DBD::Oracle::db):
FLAGS 0x82311: COMSET Warn PrintError ShowErrorStatement
AutoCommit
PARENT DBI::dr=HASH(0x8265fc8)
KIDS 0 (0 Active)
dbih_clearcom 0x8266858 (com 0x81b3590, type 2) done.
-- DBI::END ($@: , $!: )
-> disconnect_all for DBD::Oracle::dr
(DBI::dr=HASH(0x8265f78)~0x8265fc8)
<- disconnect_all= (not implemented) at /opt/lampp/lib/perl5/
site_perl/5.10.0/i686-linux/DBI.pm line 717 via at ./test.pl line 59
! -> DESTROY in DBD::_::common for DBD::Oracle::dr
(DBI::dr=HASH(0x8265fc8)~INNER)
! <- DESTROY= undef during global destruction
DESTROY (dbih_clearcom) (drh 0x8265f78, com 0x81513a8, imp global
destruction):
FLAGS 0x2215: COMSET Active Warn ShowErrorStatement AutoCommit
PARENT undef
KIDS 0 (0 Active)
dbih_clearcom 0x8265f78 (com 0x81513a8, type 1) done.
! <> DESTROY for DBI::dr=HASH(0x8265f78) ignored (inner handle gone)
---------------------------------------------------------------------------
test.pl
----------------------------------------------------------------------------
#!/usr/bin/perl
use DBI;
$login="frs";
$dbpass="xxxxxx";
$dbname = "phmweb";
@nums = (0 .. 9);
#make random part for tracefile
$a .= join("", @nums[ map { rand @nums } ( 1 .. 4 ) ]);
$fname = "trace$a.trace";
open(my $outf, ">$fname")
or die "Couldn't open $fname $!\n";
$tracelevel = 6;
DBI -> trace($tracelevel, $outf);
$sq1 = "select first_name, last_name from employees_u where eid =
'060007454'";
my $dbh = DBI->connect( 'dbi:Oracle:phmweb',
$login,
$dbpass,
) || die "Database connection not made:
$DBI::errstr";
my $sth = $dbh->prepare($sq1);
$sth->execute();
my ($fn, $ln);
$sth->bind_columns(undef, \$fn, \$ln);
while( $sth->fetch() ) {
print "My name is $fn $ln or it should be \n";
}
close(OUT);
exit;
--
Bruce Johnson
University of Arizona
College of Pharmacy
Information Technology Group
Institutions do not have opinions, merely customs
