#!/usr/bin/perl -w
use strict;
use warnings;
use DBI qw(:utils);
use charnames ':full';
use Encode;

binmode(STDOUT, ":utf8");
my $str = "\x{263a}xxx" . chr(0x05d0) . "\N{ARABIC LETTER ALEF}";
print $str, "\n";
print join(" ", unpack("H*", $str)), "\n";
print "length(str) = ", length($str), "\n";
print "bytes::length(str) = ", bytes::length($str), "\n";

print "utf8::is_utf8 = ", utf8::is_utf8($str) ? 1 : 0, "\n";
print "data_string_desc: ", data_string_desc($str),"\n";

open OUT, ">uni.out";
binmode(OUT, ":utf8");
print OUT "$str\n";

my $dbh = DBI->connect("dbi:Oracle:XX", "XX", "XX",{oracharset => 'AL32UTF8', ChopBlanks => 1});
$dbh->do("drop table testutf");
$dbh->do("create table testutf (a char(100))");
my $sth = $dbh->prepare("insert into testutf values (?)");
$sth->execute($str);
$sth = $dbh->prepare("select * from testutf");
$sth->execute;

my @row = $sth->fetchrow_array;
print "data_string_desc (after fetch): ", data_string_desc($row[0]),"\n";
print join(" ", unpack("H*", $row[0])), "\n";

open OUT, ">utf.out";
binmode (OUT, ":utf8");
print OUT $row[0];
close OUT;