chop is used to chop of a character
$username = "isterin";
chop($username);
print $username;
Will print "isteri".
It might of had a purpose in the Cheetah book, but not necessarly in your
case. Your @INC looks fine, I would recommend reinstalling Perl, since the
installation might be broken, and you DBD::Oracle installed with no
errors??? Also make sure you get the correct connect statement once
everything is done.
Ilya
-----Original Message-----
From: Wesley STROOP
To: Sterin, Ilya
Cc: dbi
Sent: 06/15/2001 9:46 AM
Subject: Re: install_driver(Oracle) failed:
I found the file Oracle.pm, I think I have a problem now.
$ ls
ADO.pm
Multiplex.pm
Oracle.pm
Sponge.pm
ExampleP.pm
NullP.pm
Proxy.pm
$ pwd
/opt/perl5/lib/site_perl/5.6.0/PA-RISC1.1/DBD
@INC contains:
/opt/perl5/lib/5.6.0/PA-RISC1.1
/opt/perl5/lib/5.6.0
/opt/perl5/lib/site_perl/5.6.0/PA-RISC1.1
/opt/perl5/lib/site_perl/5.6.0
/opt/perl5/lib/site_perl
The chop I found in a book of O'Reilly, I think it has a purpose.
> Search for Oracle.pm file then print out @INC and see if the @INC
contains
> that directory.
>
> Also, though this is not a problem at this time, but
>
> my($db_type, $db_name, $hostname, $port, $dbh, $sth,$user,$passwd);
>
> $db_type = 'Oracle';
> $db_name = 'rdw';
>
> chop($hostname = 'gcclo19');
> ##What does chop do for you, are you trying to chop of the 9 at the
end??
>
> $port = 1521;
> $user=bbxadmin;
> ##what is bbxadmin did you mean $bbxadmin unless bbxadmin or
"bbxadmin" is a
> const this would cause an error.
>
> $passwd=bbxadm0;
> ###Same as above with this. If its a string you must enclose in ""
>
> $dbh = DBI->connect("dbi:$db_type:$db_name:$hostname:$port", $user,
> $passwd);
>
> ###Your connect string is wrong, see perldoc DBD::Oracle for the
correct way
> to connect.
>
> Ilya
>
> print "connection ok";
>
> ERROR:
>
> -----Original Message-----
> From: Wesley STROOP
> To: Sterin, Ilya
> Cc: dbi
> Sent: 06/15/2001 8:39 AM
> Subject: Re: install_driver(Oracle) failed:
>
> Hi,
>
> Do you know what I do wrong?
> The installation details you can found below.
>
> I will appriciate every information.
>
> Thanks.
>
> Environment:
>
> OS : HP-UX 11
> Oracle : 8.1.6.1
> Perl : 5.6
> C-compiler: B3901BA B.11.01.06 HP C/ANSI C Developer's Bundle for
> HP-UX 11.00 (S800)
>
> INSTALLATION OF DBI 1.16 AND DBD:ORACLE 1.07 on HP-UX
>
************************************************************************
> ****
> *config Perl
> *
> *adjust /opt/perl5/lib/5.6.0/PA-RISC1.1/Config.pm
> *
> * ccdlflags=''
> * cccdlflags='+z'
> *! ldflags= ' -L/usr/local/lib'
> * ld='ld'
> * libpth=/usr/local/lib /lib /usr/lib /usr/ccs/lib
> *! libs='-lnsl_s -lndbm -ldld -lm -lc -lndir -lcrypt -lsec -lcl
> -lpthread'
> * libc=/lib/libc.sl, so=sl, useshrplib=false, libperl=libperl.a
> *
> ***********
> *extract DBI-1.16.tar.gz
> *cd DBI-1.14/
> *perl Makefile.PL
> *make
> *make test
> *make install
> *OK
> *
> ************
> *extract DBD-Oracle-1.06.tar.gz
> *cd Oracle-1.06/
> *
> *export ORACLE_HOME = /u01/app/oracle/product/8.1.6
> *export LD_LIBRARY_PATH = $ORACLE_HOME/lib
> *export SHLIB_PATH = $ORACLE_HOME/lib:/usr/lib
> *
> *perl Makefile.PL LINKTYPE=static
> *
> *## remove the following parameters "-Wl,+s" and "-Wl,+n"
> *
> *cat Makefile | sed 's/-Wl,+s//' > Makefile.tmp
> *cat Makefile.tmp | sed 's/-Wl,+n//' > Makefile
> *
> *cat Makefile | sed 's/\(OTHERLDFLAGS=.*$\)/\1 -lqsmashr/' >
> Makefile.tmp
> *mv Makefile.tmp Makefile
> *
> *make
> *
> *make perl
> *make test
> *make -f Makefile.aperl inst_perl MAP_TARGET=Perl
> *make install
> *
> *******
> *remark
> ******
> *
> *For the test env this is OK
> *But for production we have to use shared libraries. (this means perl
> Makefile.PL without the LINKTYPE=static)
> *
>
************************************************************************
> ************
> THE TEST
>
************************************************************************
> ************
> ORACLE_BASE=/u1/app/oracle
> ORACLE_HOME=/u1/app/oracle/product/8.1.6
> ORACLE_PATH=/u1/app/oracle/product/8.1.6/bin
> ORACLE_USERID=bbxadm/bbxadm0
> ORACLE_SID=rdw
>
> /usr/ccs/bin/make -f Makefile.aperl perl
> `perl' is up to date.
> PERL_DL_NONLAZY=1 ./perl -Iblib/arch -Iblib/lib
> -I/opt/perl5/lib/5.6.0/PA-RISC1.1 -I/opt/perl5/lib/5.6.0 -e 'use
> Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;'
> t/*.t
> t/base..............ok
> t/general...........ok 13/16DBD::Oracle::db do failed:
> ORA-00900: invalid SQL statement (DBD ERROR: OCIStmtExecute)
> [for statement ``some invalid sql statement'']) at t/general.t line
> 66.
> t/long..............ok
> t/plsql.............ok
> t/reauth............skipped test on this platform
> All tests successful, 1 test skipped.
> Files=5, Tests=224, 11 wallclock secs ( 2.67 cusr + 0.98 csys = 3.65
> CPU)
> PERL_DL_NONLAZY=1 ./perl -Iblib/arch -Iblib/lib
> -I/opt/perl5/lib/5.6.0/PA-RISC1.1 -I/opt/perl5/lib/5.6.0 test.pl
> Oraperl test application $Revision: 1.2 $
>
> Oraperl emulation interface version 1.39
> DBD::Oracle 1.06 using OCI8 by Tim Bunce
> DBI 1.16 by Tim Bunce
>
> Data sources:
> dbi:Oracle:
> dbi:Oracle:
> dbi:Oracle:
> dbi:Oracle:
> dbi:Oracle:
> dbi:Oracle:
> dbi:Oracle:
> dbi:Oracle:
>
> Connecting
> to '' (from command line, else uses ORACLE_SID or TWO_TASK -
> recommended)
> as 'bbxadm/bbxadm0' (via ORACLE_USERID env var or default - recommend
> name/passwd@dbname)
> (ORACLE_SID='rdw', TWO_TASK='')
>
> Testing internal row fetch overhead.
> 50000 fetches: 2 wallclock secs ( 2.19 usr + 0.01 sys = 2.20 CPU)
> 25000 per clock second, 22727 per cpu second
>
> Fields: 5
> Names: 'NUM_T' 'DATE_T' 'CHAR_T' 'ROWID_T'
> 'NULL_T'
> Lengths: 134 76 31 21 1
> OraTypes: 2 12 1 104 1
> SQLTypes: 3 9 12 -9104 12
> Scale: 0 0 0 0 0
> Precision: 38 75 30 20 0
> Nullable: 1 1 1 1 1
> Est row width: 45
> Data rows:
> fetch: '7.2', '15-JUN-01', 'BBXADM', 'AAAADDAABAAAAMAAAA', undef
>
> csr reassigned (forces destruction)...
> Fetch list of tables:
> Fetched: X
> Test ora_do with harmless non-select statement (set transaction read
> only)
> Expect an 'ORA-01453' error message:
> ora_do: 1453: ORA-01453: SET TRANSACTION must be first statement of
> transaction
> (DBD ERROR:
> OCIStmtExecute)
> csr out of scope...
> ora_logoff...
> lda out of scope...
>
> Testing repetitive connect/open/close/disconnect:
> Expect sequence of digits, no other messages:
> 1 2 3 4 5
>
> Test interaction of explicit close/logoff and implicit DESTROYs
> Expect just 'done.', no other messages:
> done.
>
> Testing row cache (5).
> Test completed in 1 seconds.
>
> Test complete (9 seconds).
> If the tests above have produced the 'expected' output then they have
> passed.
>
>
************************************************************************
> ******
>
> Test seems ok except one error at line 5
> Now executing a program:
>
> use DBI;
> use strict;
>
> my($db_type, $db_name, $hostname, $port, $dbh, $sth,$user,$passwd);
>
> $db_type = 'Oracle';
> $db_name = 'rdw';
> chop($hostname = 'gcclo19');
> $port = 1521;
> $user=bbxadmin;
> $passwd=bbxadm0;
> $dbh = DBI->connect("dbi:$db_type:$db_name:$hostname:$port", $user,
> $passwd);
> print "connection ok";
>
> ERROR:
>
> install_driver(Oracle) failed: Can't locate loadable object for module
> DBD::Oracle
> \in @INC (@INC contains:
> /opt/perl5/lib/5.6.0/PA-RISC1.1
> /opt/perl5/lib/5.6.0
> /opt/perl5/lib/site_perl/5.6.0/PA-RISC1.1
> /opt/perl5/lib/site_perl/5.6.0
> /opt/perl5/lib/site_perl .) at (eval 1) line 3
> Compilation failed in require at (eval 1) line 3.
> Perhaps a module that DBD::Oracle requires hasn't been fully installed
> at database.pm line
> 13
>
> "Sterin, Ilya" wrote:
> >
> > Try reinstalling. Did you get errors when installing? Do you have
> another
> > perl installation that this could of been installed with. Your @INC
> does
> > not contain the necassary info, you can try pushing the necessary
dir
> into
> > it, but that should of been done when you installed perl, unless
> DBD::Oracle
> > was installed under a non standard directory.
> >
> > Ilya
> >
> > -----Original Message-----
> > From: Wesley STROOP
> > To: dbi
> > Sent: 06/15/2001 5:37 AM
> > Subject: install_driver(Oracle) failed:
> >
> > Hi guys,
> >
> > I have a problem with compling, he can not find a module.
> > Is it because I installed the DBD::Oracle 1.06 wrong or something
> > else?
> > error message:
> >
> > install_driver(Oracle) failed:
> > \Can't locate loadable object for module DBD::Oracle in @INC
> > (@INC contains: /opt/perl5/lib/5.6.0/PA-RISC1.1
> > /opt/perl5/lib/5.6.0
> > /opt/perl5/lib/site_perl/5.6.0/PA-RISC1.1
> > /opt/perl5/lib/site_perl/5.6.0 /opt/perl5/lib/site_perl .)
> > at (eval 1) line 3
> > Compilation failed in require at (eval 1) line 3.
> > Perhaps a module that DBD::Oracle requires hasn't been fully
installed
> > at database.pm line 5
> >
> > Environment:
> >
> > OS : HP-UX 11
> > Oracle : 8.1.6.1
> > Perl : 5.6
> > C-compiler: B3901BA B.11.01.06 HP C/ANSI C Developer's Bundle
for
> > HP-UX 11.00 (S800)
> <<Card for Wesley STROOP>>
