I am using dbix::dump data from database Which is in utf-8. ... Is there any way i can dump data in proper format.

DBIx::Dump appears to pre-date most of the unicode support in Perl. I would avoid it for such tasks. Here is an SSCCE which avoids it. Feel free to tweak for your own database engine.

use strict;
use warnings;

use DBI;
use Encode qw/find_encoding/;
use Text::CSV qw/csv/;
use Test::More tests => 2;

my $enc = find_encoding ("UTF-8") or die 'Cannot set encoding';
my $str = "\N{ETHIOPIC SYLLABLE QAA}";

my $dbh = DBI->connect ("dbi:mysql:test", 'nobody') or die "No db";
$dbh->do ('DROP TABLE IF EXISTS stuff');
$dbh->do ('CREATE TABLE stuff ( yada varchar(255) charset utf8 );');
$dbh->do ('INSERT INTO stuff VALUES (?)', undef, $enc->encode ($str));

# Read it back from the DB
my @fromdb;
my $sth = $dbh->prepare ('SELECT yada FROM stuff');
$sth->execute;
while (my $r = $sth->fetchrow_arrayref) {
    $_ = $enc->decode ($_) for @$r;
    push @fromdb, $r;
}
is $fromdb[0]->[0], $str, 'Back from DB';

# Write it out to a file
csv (in => \@fromdb,
    out => 'outfoo.csv',
    encoding => 'utf-8'
);

# Check the contents of the file
my $fromfile = csv (in => 'outfoo.csv', encoding => 'utf-8');
is $fromfile->[0][0], $str, 'Back from file';
[download]

try telling perl to use the correct encoding for STDOUT (which is where print "zbzb" prints) with binmode(STDOUT, ":utf8"); . Add to STDERR as needed.

Please do not promote :utf8! Use the correct :encoding(utf-8) instead from now on.


Enjoy, Have FUN! H.Merijn

   my $sql1 = "select deptid,to_char(a.epfno) epfno,a.ename ename,desi
+g,decode(b.status,'P','उपस्थि&#23
+40;','A','अवकाश','D','प्&#2
+352;तिनियुक्त&#
+2367;')
status,b.rmk from Atnd_emp_mast a,Atnd_position b where repoid=1 and I
+SACTIVE=0 and a.epfno=b.epfno and SUMM_HOD_FLAG=1 
and ATTEN_DT=to_date('17-12-2020','DD-MM-YYYY') order by SUMM_SORTID";
+ 
                    $sth =$dbh->prepare($sql1);
                    $sth->execute();
                    my @rows =$sth->fetchrow_array;
                    
                  while (@rows=$sth->fetchrow_array)
                  {
                  binmode(STDOUT, ":utf8");
                  print join(",",@row),"\n";
                  
                  }
[download]

made changes its still not working

ENOTENOUGHINFO: you have told us nothing about the database, its version, its encoding, its network layers etc etc.

$ cat info.csv
id,count,desc,asc,row
1,2,foo,bar,10

$ perl -MDBI -COE -wE'my$dbh=DBI->connect("dbi:CSV:",undef,undef,{f_ex
+t=>".csv/r"});my$sth=$dbh->prepare("select id,\x27\x{20ac}\x27 from i
+nfo");$sth->execute;while(my$r=$sth->fetch){say for@$r;}'
1
�
[download]

That just worked, so it could be your database or your database driver, or your database driver version or ...


Enjoy, Have FUN! H.Merijn

is the DB set up to store unicode? is what you store in DB unicode? is what you get out from DB encoded as unicode?

placing a binmode(STDOUT, ":encoding(utf-8)"); (thanks Tux) at the beginning of your script will display unicode to STDOUT and complain if it contains invalid bytes. But you may need to tell your db to store unicode (for mysql it used to be something like this during table construction: mysql_enable_utf8mb4) and make DBI::connect aware with mysql_enable_utf8 => 1. For some cases you need to explicitly encode the bytes received from DB into unicode using Encode::encode... or investigate if it's a case of double encoding using Encode::decode...

Issue resolved when i added ora_charset=>'AL32UTF8' in dbi->connect my $dbh = DBI->connect('dbi:Oracle:host=xx.x.x.x;service_name=shadow; port=1521;SERVER=DEDICATED',$user,$password, { PrintError => 1, RaiseError => 1, AutoCommit => 1, FetchHashKeyName => 'NAME_lc', TraceLevel => 1, ora_charset=>'AL32UTF8' }) or die "Canot create Databse Handle: $DBI::errstr() \n";

First question: "What does the database row contain?" Based on what you've printed, I daresay that it really does contain Unicode information. Therefore, the most likely explanation is that either Perl or your command-line shell(!) does not know to display the information correctly. After satisfying yourself that Perl knows what to do, check the "settings" of your shell (window ...).

If "Perl" settings did not do the trick � as you describe � then the most-likely culprit is your shell.