perl unload utf-8 oracle Wide character in print at unload_oracle.pl line 105.

最新推荐文章于 2017-11-13 20:08:00 发布

scan724

最新推荐文章于 2017-11-13 20:08:00 发布

阅读量499

点赞数

分类专栏：编码转换

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/53204905

版权

编码转换专栏收录该内容

10 篇文章 30 订阅 ¥39.90 ¥99.00

订阅专栏

这篇博客讲述了使用Perl脚本从Oracle数据库中导出数据时遇到的'Wide character in print'错误。作者展示了如何连接到Oracle数据库，获取表的列名，并构建SQL查询来导出数据。在执行过程中，脚本打印了错误信息，提示在第105行的print语句中存在宽字符。最后，脚本成功导出了数据并给出了详细的过程记录。

摘要由CSDN通过智能技术生成

#!/usr/bin/perl 
use DBI;
use Encode;
my $dbName = 'oadb';
my $dbUser = 'vxspace';
my $dbUserPass = 'xxx';
my $dbh = DBI->connect("dbi:Oracle:$dbName", $dbUser, $dbUserPass) or die "can't connect to database ";
my $table_name= "$ARGV[0]"; 
my $hostSql = qq{select COLUMN_NAME from dba_tab_columns where table_name='$table_name'};
my $UNLOAD_SRC_DBCONN = DBI->connect("DBI:Oracle:".$dbName,$dbUser,$dbUserPass) or die("DB connect error!n");
my $DW_DATA_DT ="";
my $datafile="$table_name.TXT";
use HTTP::Date qw(time2iso str2time time2iso time2isoz);
my @lstRlst;
my ($COLUMN_NAME);
my $selStmt = $dbh->prepare($hostSql)

了解本专栏