perl unload gbk oracle 数据库

perl unload gbk Oracle 数据库

use Encode;
if ( $#ARGV < 0 ){
        print "请输入一个文件\n";
        exit(-1);
    }
  $var = $ARGV[0];
open (FILE ,"<","$var") || die "can open file$!\n";
while (<FILE>) {
$str = encode("gbk",decode("utf8","$_"));
print "$str" ;
}
close FILE;

需要的utf-8环境 把脚本格式转换成gbk

Oracle shell 上设置:

export NLS_LANG="SIMPLIFIED CHINESE_CHINA".ZHS16GBK

查看数据库字符集:

客户端字符集
SQL>  select userenv('language') from dual;

USERENV('LANGUAGE')
----------------------------------------------------
AMERICAN_AMERICA.ZHS16GBK

服务端字符集
SQL> col parameter format a40
SQL> col value format a20

SQL> select * from nls_database_parameters where parameter='NLS_CHARACTERSET';  

PARAMETER				 VALUE
---------------------------------------- --------------------
NLS_CHARACTERSET			 ZHS16GBK