Re^12: Japanese character in Linux

in reply to Re^11: Japanese character in Linux
in thread Japanese character in Linux

We have resolved the issue Following changes were done in perl Loader to handle Japanese. Env variable setting :

$ENV{'NLS_NCHAR'} = 'AL32UTF8';
[download]

Encoding from Shift JIS to UTF8 after data is fetched from Sybase:

Encode::from_to($sInstrumentNameJ, "shiftjis", "utf8");  #added for te
+sting

Encode::from_to($sInstrumentShortJ, "shiftjis", "utf8");  #added for t
+esting
[download]

Binding Japanese data parameters to be passed as below

 

use DBD::Oracle qw(:ora_types ORA_OCI SQLCS_NCHAR );

 

$dbGOSTky_sth->bind_param(":sInstrumentNameJ",$sInstrumentNameJ,{ora_c
+sform => SQLCS_NCHAR});

$dbGOSTky_sth->bind_param(":sInstrumentShortJ",$sInstrumentShortJ,{ora
+_csform => SQLCS_NCHAR});
[download]

Comment on Re^12: Japanese character in Linux Select or Download Code

In Section Seekers of Perl Wisdom