VPF::Perl/Tk - Форум программистов

nitr

Дата 23.9.2006, 02:01 (ссылка)

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

Загрузка ...

Эксперт

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

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

binmode STDOUT, ':cp1251'; вместо твоего use encoding...
попробуй...

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

I love ArchLinux

frenkys

Дата 23.9.2006, 02:02 (ссылка)

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

Загрузка ...

Бывалый

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

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

Код


use Text::Iconv;
my $conv = Text::Iconv->new("cp1251","UTF-8");
$str=$conv->convert( $str );

получаеться в итоге двойной UTF-8 я так понимаю
а мне нужн cp1251 раскодировать как будто это utf8 что бы его аккесс после превращение в утф записал нормально кирилицей

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

niva[frenky]

frenkys

Дата 23.9.2006, 02:17 (ссылка)

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

Загрузка ...

Бывалый

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

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

Цитата(nitr @ 23.9.2006, 02:01

)

binmode STDOUT, ':cp1251'; вместо твоего use encoding...
попробуй...

токда в ТК русские надписи пропадают

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

niva[frenky]

frenkys

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

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

Загрузка ...

Бывалый

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

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

я реально уже замучался, неужели нету выхода?

я не могу понять в чем проблема в БД или в скрипте:

указываю encoding "ru_RU.CP1251"; в БД Аккесс пишеться абракадабра в текстовые файлы пишеться все нормуль
без use encoding "ru_RU.CP1251"; в БД Аккес пишеться все ок но в ТК коряво отображаються русские названия

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

niva[frenky]

nitr

Дата 23.9.2006, 14:57 (ссылка)

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

Загрузка ...

Эксперт

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

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

самое простое, но имхо не выход

Код


no encoding;

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

I love ArchLinux

frenkys

Дата 23.9.2006, 15:05 (ссылка)

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

Загрузка ...

Бывалый

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

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

Цитата(nitr @ 23.9.2006, 14:57

)

no encoding;

тогда полетят русские названия в ТК

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

niva[frenky]

frenkys

Дата 23.9.2006, 15:43 (ссылка)

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

Загрузка ...

Бывалый

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

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

ура :О) начал передаавать $dbh->do перекодированый запросы и все получилось smile

!!!!

Это сообщение отредактировал(а) frenkys - 23.9.2006, 15:48

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

niva[frenky]

nitr

Дата 23.9.2006, 18:53 (ссылка)

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

Загрузка ...

Эксперт

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

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

frenkys, подробней, пожалуйста, чтобы в дальнейшем не возникало вопросов.

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

I love ArchLinux

frenkys

Дата 23.9.2006, 19:13 (ссылка)

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

Загрузка ...

Бывалый

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

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

Вобщем я обнаружил что после

Код


encoding "ru_RU.CP1251";

Выходные данные идут в utf8
почем , до сих пор не очень понимаю

Вобщем решил попробывать дать dbi запросик к Аккессу в кодировке сп1251

Код


use Text::Iconv;
$conv = Text::Iconv->new("UTF-8","WINDOWS-1251");
$query = "INSERT INTO main (title,web,adress,fio,info,plan,edit) VALUES ('$tt','$ww','$aa','$ff','$ii','$pp',now())";
$query=$conv->convert($query);
$dbh->do($query) || quit();

все получилось smile

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

niva[frenky]

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