Вот держите.
Думаю пары хватит.

Присоединённый файл ( Кол-во скачиваний: 4 )
 dlg.rar 12,06 Kb

Скомпилировал сам но имею проблемки, один фиг не понимает тулза русскую локаль.

KuraiNeko, вот и у меня также.  Я так понимаю русская локаль должна проявляться в нормальных буквах в диалогах а не крякозябры. Правильно?

Это сообщение отредактировал(а) shamber - 6.5.2010, 22:43

Да.

Причем я бы мог списать на отсутствие поддержки изначально локали в файлах и прочее бла бла как говорили 'спецы' на биоварах.

Но тут есть одно но, русская кодировка не поддерживается даже в поиске пути до dlg файлов. А тут даже путь до них не отображается, а это значит проблема в самом скрипте ну или тулсете)

KuraiNeko, там нужно с Encode работать, он вам поможет решить проблемы и с русскими путями к файлам и текстом.

Изначально вносил изменения в некоторые моменты ибо были настроены под latin1:



Далее обнаружил в коде еще работу со шрифтами не поддерживающими кириллицу, перештопал.

Но вот по поводу энкода нуждаюсь в объяснениях.
хотя конечно было подозрение что возможно $us->utf8; тут есть над чем подумать, с синтаксисом перла не знаком, возможно буковное обозначение локали. мол используем US под enUs и если провал то ее же.

Но думаю это слишком примитивное мышление. А может и нет незнаю.

Завел:

use encoding 'cp1251', STDOUT => 'koi8-r';

внес кое какие изменения.

        }
        if ($txtStrRef_var==-1) {
            my $us=Unicode::String->new($txtText1->get('1.0','end'));
            $txtText_var=$us->latin1;

        }
        else {
            my $us=encoding->new($txtText2->get('1.0','end'));
            $txtText_var=$us->cp1251;

На выходе получил:

Присоединённый файл ( Кол-во скачиваний: 7 )
 DLGEdit.JPG 82,36 Kb

Далее естественно уткнулся в проблему внесения данных в тлк и dlg

Как понял именно тут задается часть относительно внесений писанины новой:

        if ($txtStrRef_var==-1) {
            my $us=Unicode::String->new($txtText1->get('1.0','end'));
            my $new_text=$us->utf8;

            #my $new_text=Unicode::String::utf8($txtText1->get('1.0','end'));
            #$new_text =~ s/\000//;
            chomp $new_text;

Ибо удалось тут через энкодинг избавиться от изначально крокозябринга при написании текста, но дальше пошли ошибки ошибки и нерабочесть, невозможность внести изменения собственно говоря в файл.

Присоединённый файл ( Кол-во скачиваний: 7 )
 DLGEdit.JPG 82,36 Kb