|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Konstantin Tokar 2:5020/400 11 Nov 2005 18:42:08
To : All
Subject : Русские буквы в Tk
--------------------------------------------------------------------------------
Hижеописанное происходит только при запуске EXE
файлов, созданных с помощью PAR, в perl 5.8.4
ActiveState build 810.
Hа страничке http://www.tokar.ru/perl/par/ я
привёл скриншоты вывода при запуске из командной
строки и при запуске получившегося EXE файла.
Я встретил неожиданную проблему при выводе строк с
кириллическими символами в Tk::Label и другие
виджеты. Строки, полученные из базы данных и
содержащие символы в кодировке cp1251, выводятся
неправильно; символы, которые выводятся из скрипта
напрямую, выводятся правильно. Hапример, в фрагменте
$mw->Label( -text => "Label: Строки из базы
данных" )->pack();
while ( my @row = $sth->fetchrow_array ) {
my $text = 'Строки из базы данных' . join
',', @row;
$mw->Label( -text => $text )->pack();
} ## end while ( my @row = $sth->fetchrow_array)
первая Label выведется правильно, остальные видны
неправильно - слова 'Строки из базы данных'
русскими буквами, остальное крякозябрами.
Я так и не смог побороть пока такое повведение.
Может быть, кто-то уже сталкивался с подобным? Или
есть какая-то тонкость, которую я не учёл?
--
Konstantin Tokar
Отправлено через сервер Форумы@mail.ru -
http://talk.mail.ru
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5.3
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
