Actually when I fetch records from Database then I getting question marks
for arabic characters, so any one can help me to solve this issue.
my $dbh = DBI->connect("dbi:ODBC:sms", "smser", "smspassword")
|| die "Can't connect to $DBI::errstr";
my $sth = $dbh->prepare( q{
select Messagetype,message,mobilenumber from sms where status=0
}) || die "Can't prepare statement: $DBI::errstr";
my $rc1 = $sth->execute()
|| die "Can't execute the statement : $DBI::errstr";
while (($Messagetype,$message,$mobilenumber) = $sth->fetchrow_array)
{
print "$message \n ";
}
Here printing question marks but in database data is in Arabic.
Thanks.