Вобщем пишу на TK GUI использую 
use encoding "ru_RU.CP1251";

русские названия везде отображаються отлично, но вот когда хочу из Entry прочитать что-то по русски то :

если попросить print то он выводит в консоль абракадабру, 
когда отображаю прочитаное с Entry на  самой форме  GUI все ок,
когда это записываю в базу записывает мне абракадабры

что делать?

frenkys, как что? 
1. поиск по форуму, про БД не раз уже обсуждалось
2. консоль: *nix - koi8-r, Windows - cp866 (меняй кодировки)
используй к примеру модуль Encode
perldoc Encode

ну это понятно я уже 2 дня рою всю возможную инфу во всег гуглах вингардах......
вобщем я б не спрашивал если что.


2) про консоли это понтяно


1) вобщем такая ситуация вот 

для проверки написал обычный скриптец не ТК! 

без строчки  use encoding "ru_RU.CP1251";
он нормалек пишет в Access  русские слова

как токо ставлю  use encoding "ru_RU.CP1251"; то он пишет в Аккесс абракадабру  хотя в обычный текстовый файлик нормально.

но для ТК полюбому нужна строка 
use encoding "ru_RU.CP1251";
иначе отображаться н ебудут русские надписи

а записать в аккес мне нужно из под ТК

всё же попробуй perldoc Encode

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

frenkys, а я к примеру нетелепат  потестируй, метод подбора, результат 100% ;)

Добавлено @ 00:52 
и покажи строчку подключения к БД 

вобщем вот:




Вобщем получаеться вместо  атакуем ть: атакуем блять





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

давай без мата  отредактируй, карается сильно!!!

добавь после коннекта такое

подобрал  кодировку получил

utf-8-strict 
utf8

тоесь в БД они попадают уже в такой кодировке значит тобы попали в нормальной нужно обратно их перекодировать тоесть сделать


$str="русский текст";
from_to($str, "cp1250", "utf8");

но получаю ошибку при віполнении from_to:
Wide character in subroutine entry at C:/Perl/lib/Encode.pm line 186.

Добавлено @ 01:17 



Software error:
DBD::ODBC:b do failed: [Microsoft][\x{00c4}\x{00f0}\x{00e0}\x{00e9}\x{00e2}\x{00e5}\x{00f0} ODBC Microsoft Access] \x{00ce}\x{00f8}\x{00e8}\x{00e1}\x{00ee}\x{00f7}\x{00ed}\x{00e0}\x{00ff} \x{00e8}\x{00ed}\x{00f1}\x{00f2}\x{00f0}\x{00f3}\x{00ea}\x{00f6}\x{00e8}\x{00ff} SQL; \x{00ef}\x{00f0}\x{00e5}\x{00e4}\x{00ef}\x{00ee}\x{00eb}\x{00e0}\x{00e3}\x{00e0}\x{00eb}\x{00ee}\x{00f1}\x{00fc} 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT' \x{00e8}\x{00eb}\x{00e8} 'UPDATE'. (SQL-42000)(DBD: Execute immediate failed err=-1) at C:\inet\localhost\cgi\mibd\t.pl line 47.

For help, please send mail to the webmaster ([email protected]), giving this error message and the time and date of the error.

Добавлено @ 01:18 
или же по русски 

Software error:
DBD::ODBC:b do failed: [Microsoft][Драйвер ODBC Microsoft Access] Ошибочная инструкция SQL; предполагалось 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT' или 'UPDATE'. (SQL-42000)(DBD: Execute immediate failed err=-1) at C:\inet\localhost\cgi\mibd\t.pl line 47.

For help, please send mail to the webmaster ([email protected]), giving this error message and the time and date of the error. 

не используй from_to($str, "cp1250", "utf8");
прочти про encode и decode
примерно так:


объединять в одну строку не рекомендую? в старых версиях только так работает  с какой версии исправили, не помню.

вот что получаю:

Wide character in subroutine entry at C:/Perl/lib/Encode.pm line 166.

Добавлено @ 01:36 
щас попробую новую версию encode поставить

ну да.. а ты что делаешь? что так выводит? 

установил последнюю версию Encode:


:О) опять  проблема

код 


если вписать туда 
use encoding 'cp1251';

выдает ошибку

Wide character in subroutine entry at C:/Perl/lib/Encode.pm line 166.

в поиске на форуме введи Wide character и поймёшь ;)

понял что код символов больше 255, увидел пост с модулем Text::Iconv но так и не понял как с помощь него сделать 

$str = decode('cp1251', $str);
$str = encode('utf8', $str);


видать совсем уже время позднее