Perl读写数据乱码问题

脚本从mysql中读出数据写入到oracle中。
从mysql中读出时设定了字符为utf8
$dbi_client="UTF8";
$dbi_connection="UTF8";
$dbi_results="UTF8";

#$mysql_dh->do("set names 'utf8'");
#$mysql_dh->do("set character_set_client=$dbi_client");
#$mysql_dh->do("set character_set_connection=$dbi_connection");
$mysql_dh->do("set character_set_results=$dbi_results");

输出到屏幕，中文能正常显示。但插入到oracle就显示乱码了。
oracle的编码是： NLS_LANG=AMERICAN_AMERICA.UTF8

我尝试对中文列进行字符转换，$row[2] = decode_utf8($row[2]);
但结果还是乱码。

求解答

有木有人帮个忙呀？

有木有人帮个忙呀？

这个问题涉及的环节比较多, 但我不懂oracle, 只能给点tip.

1. 首先要保证你插入表的时候, 你的client code和插入字符的实际编码一致; 这是后面数据库帮你做转移的必要条件

2. 你取数据的时候, 你的client code如果跟数据库的编码不一样, 数据库会将数据转换为你的client code的编码方式给你.

3. 你取到的数据就是clent code的编码方式.

如果这时候, 你取得的数据以你的client code显示是正常的, 则上面的应该是没问题的.
下面的就是往oracle插了, 不懂oracle.