Модераторы: ginnie, korob2001
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> "Бегущая строка" 
:(
    Опции темы
Camrade
Дата 19.1.2006, 16:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 19.1.2006

Репутация: нет
Всего: нет



Привет,
подскажите, кто может, как в Perl можно забацать "бегущую строку". Условия:
1. Консольное приложение
2. Вывод в текстовом режиме (STDOUT)
Необходимо, чтобы в одной строке. с некоторым интервалом выводился какой-либо символ, например, "*", каждый раз на новом месте. Вроде как бегущие огни в светомузыке.
Пример вывода:
0 sek: *
1 sek: _*
2 sek: __*
3 sek: ___*
4 sek: ____*
5 sek: ____#
6 sek: ____*
7 sek: ___*
8 sek: __*
9 sek: _*
и т. п.
Cимволы "__" не нужны (это вроде пробела).
Поворяю, все это в одной строчке.
Символ "#" добавил для эффекта.

P.S. Пробовал разные системные переменные, например, в одной хранится текущая позиция каретки, я менял ее значение, но без толку.
PM MAIL   Вверх
korob2001
Дата 20.1.2006, 02:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 6
Всего: 61



Посмотри вот эту тему:
http://forum.vingrad.ru/index.php?showtopic=65009


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
chaos
Дата 20.1.2006, 09:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Серийный программист
****


Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: 3
Всего: 44



не раз уже повторял, повторю еще раз
В *nix для установки вывода в определенную позицию пользуюсь
Код

void GotoXY(unsigned x, unsigned y)
{
    printf("\x1B[%d;%dH", x, y);
} 


думаю все понятно, и без труда перенесешь в перл

PM WWW   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: Системное программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к системному программированию на Perl
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Системное программирование | Следующая тема »


 




[ Время генерации скрипта: 0.0929 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.