RE: utf8 encoding problem
- From: Philip.Garrett@xxxxxxxxxxx (Philip Garrett)
- Date: Thu, 21 Dec 2006 09:24:51 -0500
The easiest way to know is to try it out. If you want to just test it
without replacing your installation's DBD::Oracle, you can do a
temporary install of a newer version of DBD::Oracle by using the
INSTALLSITELIB parameter to Makefile.PL:
wget
http://www.perl.com/CPAN/modules/by-module/DBD/DBD-Oracle-1.14.tar.gz
tar xvfz DBD-Oracle-1.14.tar.gz
cd DBD-Oracle-1.14.tar.gz
export ORACLE_HOME=/path/to/your/oracle/installation
export ORACLE_USERID=user/pass
export ORACLE_SID=your-sid
perl Makefile.PL INSTALLSITELIB=$HOME/tmp-dbd-lib
make test
make install
If the build process was successful, you'll have DBD::Oracle installed
in $HOME/tmp-dbd-lib. You can try it out using the -I parameter for
perl:
perl -I$HOME/tmp-dbd-lib your_script.pl
If it doesn't help, just "rm -rf $HOME/tmp-dbd-lib". No harm, no foul!
Regards
Philip
-----Original Message-----
From: Anand.K.S. [mailto:ks.anand80@xxxxxxxxx]
Sent: Thursday, December 21, 2006 1:18 AM
To: dbi-users@xxxxxxxx
Subject: utf8 encoding problem
Hello,
I had posted this question in CPAN forum but i was directed here for a
better answer.
Here is the problem I am facing. In the following piece of code I get a
customer name from the database and append a pound symbol to the
customer
name and update the same in the database. The NLS_LANG parameter is set
to
AMERICAN_AMERICA.WE8DEC (western European character set) When I query
the
database to see if the name has been updated correctly I see some
garbage
value appended to the name instead of just a pound symbol. Then I did
some
research to find out the version oralce DBD version being used is 1.12.
I
found some difference between 1.12 and 1.14 relating to unicode
documentation. All I want to know is whether this was a bug in 1.12
which
was fixed in the later version of 1.14 and will an upgrade to 1.14 fix
this
problem. Could anyone please confirm me on this? The closer I could get
was
to find this link http://search.cpan.org/dist/DBD-Oracle/Changes#___top.
However the work around was to use "use Encoding" (Which is commented
out in
the following code) in perl which fixed the problem.
Cheers,
Anand.
use strict;
use encoding 'utf8';
use atadb;
use vars qw($opt_u);
my $db = atadb::connect($opt_u);
my $sql = " SELECT NODE_NAME FROM CUSTOMER_NODE_HISTORY WHERE
CUSTOMER_NODE_ID = 9295370 ";
my $csr = $db->prepare($sql) || ataerr::dbprepare($db);
$csr->execute() || ataerr::dbexecute($db);
my $node_name = $csr->fetchrow; $csr->finish;
$node_name = 'wre'; my $pound = " \xc2\xa3"; print "Pound =>$pound\n";
my $node_name_upper = "\U$node_name\E".$pound; $node_name.=$pound; print
"Node name".$node_name."\n";;
print $node_name_upper."\n"; my $sql1 = "UPDATE CUSTOMER_NODE_HISTORY
SET
NODE_NAME = ? , NODE_NAME_UPPERCASE = ? WHERE CUSTOMER + +_NODE_ID =
9295370
";
my $csr1 = $db->prepare($sql1) || ataerr::dbprepare($db); print
"Executing
.... \n"; #use Encode; #$node_name = encode($ENV{PERL_ENCODING},
$node_name);
#$node_name_upper = encode($ENV{PERL_ENCODING}, $node_name_upper);
$csr1->execute($node_name, $node_name_upper) || ataerr::dbexecute($db);
print "Committing ... \n";
$db->commit || die("commit: ".$db->errstr."\n");
$csr1->finish; $db->disconnect;
.
- Prev by Date: Re: Unix: Oracle User Identified Externally
- Next by Date: DBD::Oracle::st execute failed: ORA-06550: line 3, column 4: PLS-00306: wrong number or types of arguments in call to 'INIT_DELTA_SP'
- Previous by thread: Re: utf8 encoding problem
- Next by thread: regarding installing dbd-oracle
- Index(es):
Relevant Pages
|
