![]() |
|
Модераторы: ginnie, korob2001 |
![]()
|
|
| Camrade |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 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. Пробовал разные системные переменные, например, в одной хранится текущая позиция каретки, я менял ее значение, но без толку. |
|||
|
||||
| korob2001 |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 2871 Регистрация: 29.12.2002 Репутация: 6 Всего: 61 |
-------------------- "Время проходит", - привыкли говорить вы по неверному пониманию. "Время стоит - проходите вы". |
|||
|
||||
| chaos |
|
|||
![]() Серийный программист ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 2979 Регистрация: 7.7.2004 Где: Екатеринбург Репутация: 3 Всего: 44 |
не раз уже повторял, повторю еще раз
В *nix для установки вывода в определенную позицию пользуюсь
думаю все понятно, и без труда перенесешь в перл |
|||
|
||||
![]()
|
| Правила форума "Perl: Системное программирование" | |
|
|
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Perl: Системное программирование | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |