VPF::Кодировка в связке Mysql, XML & Perl - Форум программистов

geckelberryfinn

Дата 24.7.2006, 12:18 (ссылка)

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

Загрузка ...

Шустрый

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

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

Суть проблемы в следующем.
Имеет XML файл с кодировкой windows-1251. Парсится XML:Simple. После чего некоторые элементы енкодируются Encode и кидаются в базу. Т.е. общая схема выглядит следующим образом:

Код


$xs1 = XML::Simple->new();
$config=$xs1->XMLin($xmlpath,forcearray => 1);
...
my $name=encode("windows-1251",$config->{'Position'}->[$i]->{'Name'});  
$name=~s/'/"/g; 
$sth=$dbh->prepare("INSERT cat_goodies VALUES(NULL,NULL,NULL, NULL,'$_[1]','$name','$price','$lastupdate',
             '$quantity',NULL,NULL,'$article','$city','$spath','0','','$parsed')");
$sth->execute();
$sth->finish();

Так вот почему-то в базу кидается уже кракозябра (т.е. в непонятной кодировке). При этом, если на месте инсерта написать print с соответсвующими параметрами, то в окне браузера все отображается читабельно.
Есть ли какие-нибудь идеи из-за чего это недоразумение может происходить? smile

nitr

Дата 24.7.2006, 19:50 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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

=) посмотри настройки твоей БД
тем более БД и кодировки тут обсуждались, вот может поможет smile

Код


$dbh->do("SET character_set_client = cp1251");
$dbh->do("SET character_set_connection = cp1251");
$dbh->do("SET character_set_results = cp1251");

--------------------

I love ArchLinux

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