BTW: is that a typo? ORALCE_HOME vs ORACLE_HOME
-----Original Message-----
From: Kawai,Takanori [mailto:[EMAIL PROTECTED]]
Sent: Friday, August 24, 2001 6:57 PM
To: Maruti Chavan; [EMAIL PROTECTED]
Subject: Re: Oracle Perl and DBI , dbd problem while inserting report in
Japanese
Hi.
#If you can read Japanese, I can send you in Japanese :-)
#It is not easy for me to write mail in my poor English.
----- Original Message -----
From: "Maruti Chavan" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, August 23, 2001 7:59 PM
Subject: Oracle Perl and DBI , dbd problem while inserting report in
Japanese
> hi ..all
> I have problem ...to stored data in japanese ( Kanji ) data..
(snip)
> We r developing sofware in Using Perl and Oracle so i installed DBD and
DBI
> sccesfully .
>
> Even usiong same env ... and added o that
> $ENV{ORALCE_HOME} = `/home/oracle`
> $ENV{ORALCE_NLS33} = `/home/oracle/ocommon/nls/data`
> $ENV{ORALCE_HOME} = `JAPANESE`
> $ENV{ORALCE_HOME} = `Japanese_Japan.JA16EUC`
Why did you try to set ORACLE_HOME several times?
I wonder you can get data with even sqlplus.
#Did you try it?
Did you try it to work on command line?
Anyway, this is my script works on TurboLinux. Oracle is running
same machine.
[ex]
#!/usr/bin/perl -w
BEGIN{
$ENV{ORACLE_HOME} = '/u01/app/oracle/product/8.1.5' ;
$ENV{NLS_LANG} = 'japanese_japan.JA16EUC';
};
use strict;
use CGI::Carp qw(fatalsToBrowser);
use DBI;
print "Content-Type: text/html\n\n";
print "<HTML><BODY>";
my $hDb = DBI->connect("dbi:Oracle:ORCL", "scott", "tiger",
{RaiseError => 1,AutoCommit => 0}) or
die "CONNECT ERROR $DBI::errstr";
my $hSt = $hDb->prepare("SELECT * FROM EMP");
my $nRes = $hSt->execute();
while(my @aRes = $hSt->fetchrow) {
print join("\t", @aRes), "<BR>\n";
}
$hSt->finish;
$hDb->disconnect;
print "</BODY></HTML>";
==============================================
Kawai, Takanori(Hippo2000)
Mail: [EMAIL PROTECTED] [EMAIL PROTECTED]
http://member.nifty.ne.jp/hippo2000
==============================================
CAUTION
This e-mail and any files transmitted with it are privileged and confidential
information intended for the use of the addressee. The confidentiality and/or
privilege in this e-mail is not waived, lost or destroyed if it has been transmitted
to you in error. If you have received this e-mail in error you must (a) not
disseminate, copy or take any action in reliance on it; (b) please notify Australia
Post immediately by return e-mail to the sender; and (c) please delete the original
e-mail.
