The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"Цвет при выводе на консоль"
Вариант для распечатки Архивированная нить - только для чтения! 
Пред. тема | След. тема 
Форумы Программирование под UNIX (Public)
Изначальное сообщение [Проследить за развитием треда]

"Цвет при выводе на консоль"
Сообщение от Dr. Nebula emailИскать по авторуВ закладки on 13-Янв-04, 15:54  (MSK)
Народ, подскажите как сделать вывод перловой проги в консоль цветным?
Просто как то пару лет назад мне попался в руки скриптик, который разные значенения выводил разными цветами, было достаточно удобно.
  Рекомендовать в FAQ | Cообщить модератору | Наверх

 Оглавление

Индекс форумов | Темы | Пред. тема | След. тема
Сообщения по теме

1. "Цвет при выводе на консоль"
Сообщение от XMan Искать по авторуВ закладки on 13-Янв-04, 16:47  (MSK)
Незнаю, может в перле есть модуль, аля ncurses. А может и сам ncurses. Но в основах это делается через ESC-последовательности. Посмотри "man console_codes".
  Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "Цвет при выводе на консоль"
Сообщение от ChiP Искать по авторуВ закладки on 13-Янв-04, 21:48  (MSK)
>Незнаю, может в перле есть модуль, аля ncurses. А может и сам
>ncurses. Но в основах это делается через ESC-последовательности. Посмотри "man console_codes".
>
<-< chip@void >-< chip >->$ uname -rs
FreeBSD 4.8-RELEASE
<-< chip@void >-< chip >->$ man console_codes
No manual entry for console_codes
<-< chip@void >-< chip >->$

:)

А вопрошавшему:
my %COLORS = (
  'blue'   =>  "\033[34;01m",  # blue
  'green'  =>  "\033[32;01m",  # green
  'cyan'   =>  "\033[36;01m",  # cyan
  'red'    =>  "\033[31;01m",  # red
  'yellow' =>  "\033[33;01m",  # yellow
  'end'    =>  "\033[0m"       # `end`
);

далее
print $COLORS{'green'}, "Hello, World", $COLORS{'end'};

за остальными ESC-последовательностями лезь в мануал, который указал XMan

  Рекомендовать в FAQ | Cообщить модератору | Наверх

3. "Цвет при выводе на консоль"
Сообщение от XMan Искать по авторуВ закладки on 14-Янв-04, 00:00  (MSK)
УГу. Может не быть мана, говоришь...
Ну тогда google.com на предмет console_codes спасет отца русской демократии :)
  Рекомендовать в FAQ | Cообщить модератору | Наверх

4. "Цвет при выводе на консоль"
Сообщение от Dr. Nebula emailИскать по авторуВ закладки on 14-Янв-04, 09:56  (MSK)
>>Незнаю, может в перле есть модуль, аля ncurses. А может и сам
>>ncurses. Но в основах это делается через ESC-последовательности. Посмотри "man console_codes".
>>
><-< chip@void >-< chip >->$ uname -rs
>FreeBSD 4.8-RELEASE
><-< chip@void >-< chip >->$ man console_codes
>No manual entry for console_codes
><-< chip@void >-< chip >->$
>
>:)
>
>А вопрошавшему:
>my %COLORS = (
>  'blue'   =>  "\033[34;01m",  # blue
>  'green'  =>  "\033[32;01m",  # green
>  'cyan'   =>  "\033[36;01m",  # cyan
>  'red'    =>  "\033[31;01m",  # red
>  'yellow' =>  "\033[33;01m",  # yellow
>  'end'    =>  "\033[0m"       # `end`
>);
>
>далее
>print $COLORS{'green'}, "Hello, World", $COLORS{'end'};
>
>за остальными ESC-последовательностями лезь в мануал, который указал XMan

О! Очень похоже на то что я когда то видел! :) Тенькс

  Рекомендовать в FAQ | Cообщить модератору | Наверх

5. "Цвет при выводе на консоль"
Сообщение от Murr Искать по авторуВ закладки on 14-Янв-04, 16:11  (MSK)
>А вопрошавшему:
>my %COLORS = (
>  'blue'   =>  "\033[34;01m",  # blue
>  'green'  =>  "\033[32;01m",  # green
>  'cyan'   =>  "\033[36;01m",  # cyan
>  'red'    =>  "\033[31;01m",  # red
>  'yellow' =>  "\033[33;01m",  # yellow
>  'end'    =>  "\033[0m"       # `end`
>);
>
>далее
>print $COLORS{'green'}, "Hello, World", $COLORS{'end'};
>
>за остальными ESC-последовательностями лезь в мануал, который указал XMan


Зачем советовать такие вещи? Терминалы не исчерпываются ANSI терминалами.
Смотреть надо в сторону curses.

  Рекомендовать в FAQ | Cообщить модератору | Наверх

6. "Цвет при выводе на консоль"
Сообщение от ChiP Искать по авторуВ закладки on 15-Янв-04, 00:14  (MSK)
>>А вопрошавшему:
>>my %COLORS = (
>>  'blue'   =>  "\033[34;01m",  # blue
>>  'green'  =>  "\033[32;01m",  # green
>>  'cyan'   =>  "\033[36;01m",  # cyan
>>  'red'    =>  "\033[31;01m",  # red
>>  'yellow' =>  "\033[33;01m",  # yellow
>>  'end'    =>  "\033[0m"       # `end`
>>);
>>
>>далее
>>print $COLORS{'green'}, "Hello, World", $COLORS{'end'};
>>
>>за остальными ESC-последовательностями лезь в мануал, который указал XMan
>
>
>Зачем советовать такие вещи? Терминалы не исчерпываются ANSI терминалами.
>Смотреть надо в сторону curses.

Для начала данных последовательностей, имхо, вполне достаточно. Часто ли встречаются не ANSI терминалы ?
А для curses уже давно существуют биндинги:
p5-Curses
p5-Curses-Application
p5-Curses-Forms
p5-Curses-Widgets

но начинать с них, имхо, не разумно.

  Рекомендовать в FAQ | Cообщить модератору | Наверх


Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2025 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру