A
Alyce
Добрый день.
На perl писал ранее, на Tk - только начинаю.
Пока это все на windows - но нужно чтобы работало и на Linux.
Создаю меню.
$main->configure(-menu => my $menubar = $main->Menu);
my $contract = $menubar->cascade(-label => '~Договор');
my $help = $menubar->cascade(-label => '~Help');
$help->command(-label => 'О программе', -command => sub {print "About\n"});
Проблема кодировке:
- если я ставлю в начале "use encoding 'cp1251';" то Фраза "Договор" пишется кракозяблами - все остальное по русски.
- если убираю "use encoding 'cp1251';" то все пишется кракозяблами, а "Договор" по русски.
Что я не так делаю?
Просьбы помочь.
Спасибо.
На perl писал ранее, на Tk - только начинаю.
Пока это все на windows - но нужно чтобы работало и на Linux.
Создаю меню.
$main->configure(-menu => my $menubar = $main->Menu);
my $contract = $menubar->cascade(-label => '~Договор');
my $help = $menubar->cascade(-label => '~Help');
$help->command(-label => 'О программе', -command => sub {print "About\n"});
Проблема кодировке:
- если я ставлю в начале "use encoding 'cp1251';" то Фраза "Договор" пишется кракозяблами - все остальное по русски.
- если убираю "use encoding 'cp1251';" то все пишется кракозяблами, а "Договор" по русски.
Что я не так делаю?
Просьбы помочь.
Спасибо.