Size: a a a

2020 November 11

VO

Vyacheslav Olkhovche... in Modern::Perl
это утилита для моего личного пользования и потраченное на написание время я не сумею потом съэкономить удобством использования (не настолько часто)
источник

SZ

Sergey Zhmylove in Modern::Perl
Vyacheslav Olkhovchenkov
это утилита для моего личного пользования и потраченное на написание время я не сумею потом съэкономить удобством использования (не настолько часто)
Немного травки и не обновляющаяся 20 лет либа и получается pastebin.com/DmgDhd6Q
Естественно, это на коленке, т.к. было не так много времени пока собирался новый пакет для работы
источник

VO

Vyacheslav Olkhovche... in Modern::Perl
PV, интересно
источник

SZ

Sergey Zhmylove in Modern::Perl
Vyacheslav Olkhovchenkov
PV, интересно
Предваряя вопросы, на ncursesw можно переписать в качестве домашнего задания :р
источник

VO

Vyacheslav Olkhovche... in Modern::Perl
Ну во-первых мне не иероглифы нужны а кирилица, а во-вторых это делается одним чекбоксом без переписывания, разве нет?
источник

SZ

Sergey Zhmylove in Modern::Perl
Vyacheslav Olkhovchenkov
Ну во-первых мне не иероглифы нужны а кирилица, а во-вторых это делается одним чекбоксом без переписывания, разве нет?
Да нет, увы.
getch() в кишках PV, например, не умеет wide character в отличие от getchar().
источник

VO

Vyacheslav Olkhovche... in Modern::Perl
так это какой wide character? который на экране два знакоместа? или который utf8?
источник

VO

Vyacheslav Olkhovche... in Modern::Perl
ну и эта, если у меня перловый Curses будет с ncursesw разве это решит все?
источник

AK

Andrey Karepin in Modern::Perl
от одного до много
источник

SZ

Sergey Zhmylove in Modern::Perl
Vyacheslav Olkhovchenkov
так это какой wide character? который на экране два знакоместа? или который utf8?
Это который utf8. Так а разве ты используешь ещё где-то кои8 или 8859-5 вместо utf8?
Если собрать ncursesw и переписать код используя чёрную магию (правда там уже будет больше 35 строк), то это решит проблему 100%.
Хотя лично я в какой-то момент бросил перл и написал нужный мне ncursesw клиент на сях
источник

VO

Vyacheslav Olkhovche... in Modern::Perl
OPTIONS_DEFINE= NCURSESW
NCURSESW_DESC=  Wide-character-capable support by ncursesw library
источник

VO

Vyacheslav Olkhovche... in Modern::Perl
а что за черная магия еще нужна будет?
источник

SZ

Sergey Zhmylove in Modern::Perl
Vyacheslav Olkhovchenkov
а что за черная магия еще нужна будет?
Я ж говорю: внутри библиотеки вызывается getch, который не умеет в wchar, нужно будет пропатчить на getchar. Плюс, я не смотрел, как оно выводит в окна, но возможно тоже нужно будет подменить
источник

VO

Vyacheslav Olkhovche... in Modern::Perl
в окна выводит просто пиздец
источник

SZ

Sergey Zhmylove in Modern::Perl
С чтением я всё легко пропатчил, а вот с выводом у него какие-то проблемы
источник

VG

Vadim Goncharov in Modern::Perl
с TUI в юниксах вечно печальные истории...
источник

AU

Alexey Ugnichev in Modern::Perl
А где ок?
источник

VG

Vadim Goncharov in Modern::Perl
в дос/циндоус получше было
источник

AU

Alexey Ugnichev in Modern::Perl
Та ну, конечно.
источник

VG

Vadim Goncharov in Modern::Perl
конечно
источник