VPF::кодировка (koi8-r) perl-mysql - Форум программистов

ichar

Дата 25.6.2009, 23:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 25.6.2009

Репутация: нет
Всего: нет

Помогите понять причину. Не "читаются" русские символы из таблицы MySQL в perl-скрипте. Данные записаны в кодировке KOI8-R. Читаю указанную таблицу perl-скриптом (DBI), вместо русских символов получаю знак вопроса '?':

Код:

Код


use DBI; 
... 
my $dsn = "DBI:mysql:database=$database;host=$hostname;port=3306"; 

my $dbh = DBI->connect($dsn, $user, $password, {'RaiseError' => 1}); 
my $sth = $dbh->prepare("SELECT attrValue FROM ..."); 
$sth->execute(); 

while (my $ref = $sth->fetchrow_hashref()) { 
  print "$ref->{'attrValue'}\n"; 
} 
...

Результат (для всех записей примерно одно и то же):
???????? ??????????

Проверяю по-символьно полученные данные:
...
print ord($_) foreach split('', $value);

636363636363636363326363636363636363636332

т.е. в таком виде данные приходят от сервера mysql. В таблице нормальный русский текст.

Перекодировка результата не дает:

Код:

Код


use Encode; 
... 
# вариант 1) 
my $value = decode("cp1251", $ref->{'attrValue'}); 
... 
# вариант 2) 
Encode::from_to($value, "koi8-r", "cp1251");

Спасибо!

DaemonSuw

Дата 26.6.2009, 09:51 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 155
Регистрация: 11.3.2008

Репутация: 3
Всего: 3

попробуйте после коннекта к базе данных добавить строки

Код


dbh->do("SET NAMES 'koi8-r'")
dbh->do("SET CHARACTER SET koi8-r")

А потом делайте encode/decode

ichar

Дата 26.6.2009, 13:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 25.6.2009

Репутация: нет
Всего: нет

Да, точно. Достаточно добавить

SET NAMES 'koi8-r'

Спасибо!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »