Программирование > Perl

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

(1/1)

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;
--- Конец кода ---

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

arto:
выставить флаг utf8 у получаемых из базы данных.

amorphius:
поподробнее пожалуйста

arto:
perldoc DBD::mysql | less -p mysql_enable_utf8

Навигация

[0] Главная страница сообщений