Форум на Исходниках.RU

Проблема с кириллицей при использовании Curses::UI под FreeBSD 14

Majestio — Sat, 07 Sep 2024 07:23:22 +0000

Majestio:

Цитата macomics @ 07.09.24, 03:43

А если через ncurses.

Так дело видать все в нём. Его сильно переделывали последнее время, много функций повырезали. Видать и с кодировкой намутили. А Curses:UI на нём базируется - считай обёртка. Буду ждать обновы Фряхи.

Цитата macomics @ 07.09.24, 03:43

Дальше я могу предположить, что проблема с сохранением текста в редакторе (см. hexdump текста исходника)

Нет, тут все ровно. Если в "сыром" перловом скрипте всё выводит ровно, значит редактор не виноват.

Проблема с кириллицей при использовании Curses::UI под FreeBSD 14

macomics — Sat, 07 Sep 2024 03:43:47 +0000

macomics: А если через ncurses. Поняв набор символов, которые выводятся не правильно, возможно, сможем найти проблему.

Screenshot_20240907_074955.png (, : 94)
Даже если посмотреть на UTF-8 русский алфавит в hex - там нет и намека на символы ' @' и ' B'. Т.е. даже если символы не верно расшифрованы, тогда не должно было появится таких хвостов.

Дальше я могу предположить, что проблема с сохранением текста в редакторе (см. hexdump текста исходника)

Проблема с кириллицей при использовании Curses::UI под FreeBSD 14

Majestio — Fri, 06 Sep 2024 22:52:29 +0000

Majestio:

Цитата macomics @ 06.09.24, 20:51

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

Чисто Перлом, без ncurses, в терминале выводится всё норм:

А Б В Г Д Е Ё Ж З И Й К Л М Н О П Р С Т У Ф Х Ц Ч Ш Щ Ъ Ы Ь Э Ю Я

а б в г д е ё ж з и й к л м н о п р с т у ф х ц ч ш щ ъ ы ь э ю я

Добавлено 06.09.24, 23:07
Нашел топик, у товарища под Mac OSX похожая проблема.

Проблема с кириллицей при использовании Curses::UI под FreeBSD 14

macomics — Fri, 06 Sep 2024 20:51:09 +0000

macomics: Судя по тому, что проблемы только с буквами 'т' и 'р' надо смотреть в настройках системы (конфигах терминала). Это точно не кодировка текста. Кодировка обычно ломает весь набор символов, а не пару отдельных букв.

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

Проблема с кириллицей при использовании Curses::UI под FreeBSD 14

Majestio — Fri, 06 Sep 2024 14:27:58 +0000

Majestio: Нужно было сделать небольшой интерфейс с помощью Curses::UI.

Я набросал небольшой пример на Perl5:

use strict;

use warnings;

use utf8;

use Term::ReadKey;

use Curses::UI;

use POSIX qw(setlocale LC_ALL); # Импортируем setlocale и LC_ALL

use open qw(:std :encoding(UTF-8));

# Устанавливаем локаль для поддержки кириллицы

setlocale(LC_ALL, "ru_RU.UTF-8");

binmode STDERR, ':encoding(UTF-8)';

binmode STDOUT, ':encoding(UTF-8)';

# Создаем объект интерфейса

my $cui = Curses::UI->new(-color => 1);

# Получаем размеры терминала

my ($max_x, $max_y) = GetTerminalSize(); # Устанавливаем размеры окна

# Вычисляем координаты для центрирования окна

my $start_y = int(($max_y - 25) / 2);

my $start_x = int(($max_x - 80) / 2);

# Создаем окно

my $window = $cui->add(

'main_window',

'Window',

-border => 1,

-title => 'Центрированное окно',

-width => 80,

-height => 25,

-y => $start_y,

-x => $start_x,

);

# Создаем список элементов

my @items = ("Элемент 1", "Элемент 2", "Элемент 3", "Элемент 4", "Элемент 5",

"Элемент 6", "Элемент 7", "Элемент 8", "Элемент 9", "Элемент 10",

"Элемент 11", "Элемент 12", "Элемент 13", "Элемент 14", "Элемент 15");

# Добавляем список в окно

$window->add(

'item_list',

'Listbox',

-values => \@items,

-label => 'Выберите элемент:',

-width => 78, # Ширина списка

-height => 20, # Высота списка

-onchange => sub {

my $selected_item = $window->get('item_list')->get();

$cui->message('Выбранный элемент', "Вы выбрали: $selected_item");

);

# Запускаем интерфейс

$cui->set_binding(sub { exit }, 'q'); # Выход по нажатию 'q'

$cui->mainloop();

Все это делал под FreeBSD 14.1. И замечаю, что часть русского текста выводится "битой", вот скрин:

Эксперименты с локалями и бубнами не помогли. Решил посмотреть как это работает на других моих системах, которые я изредка пользую. Точно такую же картину получил на предыдущей версии FreeBSD 14.0 и на Linux Debian. Один в один. Да, все эти системы предварительно полностью обновил на сегодняшнее утро.

FreeBSD freebsd-14.1 14.1-RELEASE-p4 FreeBSD 14.1-RELEASE-p4 GENERIC amd64
FreeBSD freebsd-14 14.0-RELEASE-p10 FreeBSD 14.0-RELEASE-p10 #0: Wed Sep 4 08:24:14 UTC 2024 GENERIC amd64
Linux debian-pc 6.1.0-25-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.106-3 (2024-08-26) x86_64 GNU/Linux

А вот ArchLinux и Linux Manjaro порадовали - там всё ровно получилось!

Linux archlinux-pc 6.10.8-arch1-1 #1 SMP PREEMPT_DYNAMIC Wed, 04 Sep 2024 15:16:37 +0000 x86_64 GNU/Linux
Linux majestio-pc 6.6.47-1-MANJARO #1 SMP PREEMPT_DYNAMIC Mon Aug 19 09:51:26 UTC 2024 x86_64 GNU/Linux

Вопрос: по сути очевидный - "куда копать"?

Мне вообще-то нужно только под FreeBSD. Я понимаю, что можно легко отказаться от русского языка, сделать на английском. Но не хочется от проблем убегать. Есть какие мысли?