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

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

Code:

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";

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

Code:

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

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

 

А в базе у тебя точно в utf-8? а вообще с utf в perl надо быть очень осторожным. на YAPC::Russia в прошлом году была целая лекция: http://event.perlrussia.ru/yr2008/talk/1173

 

Надо посмотреть, в какой кодировке таблица
SHOW CREATE TABLE a;
и в какой там данные

 

все, все, все в базе установлено в utf8