Проблема с юникодом

[amorphius]

есть такой код

use strict;
use utf8;
use DBI;
....
my $dbh = DBI->connect....
$dbh->do("set names utf8");
$sth = $dbh->prepare("select a from b where c=1");
$sth->execute;
$a = $sth->fetchrow_array();
print "Русская строка из базы данных: $a";

проблема в том, что строка, которую мы считали из базы, выведется иероглифами, зато если написать

print "Русская строка из базы данных: ";
print $a;

то все работает.
Кто знает в чем проблема?

 

[Vovochka]

В какой кодировке сохранен скрипт и в какой системе вы работаете?

 

[amorphius]

все,все,все что можно было настроил на utf8. пишу под Linux Debian lenny

 

[Vovochka]

Во блин! Я то матерился, думал, что там еще под виндой не так.
Но когда в нормальной UNIX системе, с нормальной поддержкой utf8...
Даже не знаю, я бы конечно попробовал вам помочь, но воссоздать подобное поведение меня не получается.
*SORRY* Can't help.

 

[amorphius]

проблема решена, перед конкатенацией строки из базы данных необходимо ее переконвертировать функцией Encode::decode('utf8',$string);