HOME    FORUMS    MEMBERS    RECENT POSTS    LOG IN  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > PHP
Перезагрузить страницу Интерактивные консольные интерфейсы на перл
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Интерактивные консольные интерфейсы на перл
  #1  
Старый 02.12.2008, 19:38
zer0ska
Участник форума
Регистрация: 05.12.2007
Сообщений: 113
Провел на форуме:
252598

Репутация: 34
По умолчанию Интерактивные консольные интерфейсы на перл
как на перл перерисовывать консоль ?
Например нарисовать полосу загрузки и цыфры загрузки менялись в реал тайм
[|||||||||||||||||||||] 97%
 
Ответить с цитированием

  #2  
Старый 02.12.2008, 20:25
Kernet
Постоянный
Регистрация: 28.09.2008
Сообщений: 456
Провел на форуме:
2244151

Репутация: 404
Отправить сообщение для Kernet с помощью ICQ
По умолчанию
Тока дельфин имхо)
 
Ответить с цитированием

  #3  
Старый 02.12.2008, 20:40
[dei]
Участник форума
Регистрация: 24.11.2008
Сообщений: 205
Провел на форуме:
1123418

Репутация: 362
Отправить сообщение для [dei] с помощью ICQ
По умолчанию
как-то так наверно
 
Ответить с цитированием

  #4  
Старый 02.12.2008, 21:58
Kaimi
Познавший АНТИЧАТ
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311

Репутация: 1676


Отправить сообщение для Kaimi с помощью ICQ
По умолчанию
Например так:
Код:
$| =1;
$max = 100;
$str = "[";

for(1..100) {
$str .= ($_ % 10) ? ("") : ("|");
print $str."]";
print int(($_/$max)*100)."\r";
select(undef,undef,undef,.1);
}
 
Ответить с цитированием

  #5  
Старый 03.12.2008, 14:42
zer0ska
Участник форума
Регистрация: 05.12.2007
Сообщений: 113
Провел на форуме:
252598

Репутация: 34
По умолчанию
Цитата:
Сообщение от Kaimi  
Например так:
Код:
$| =1;
$max = 100;
$str = "[";

for(1..100) {
$str .= ($_ % 10) ? ("") : ("|");
print $str."]";
print int(($_/$max)*100)."\r";
select(undef,undef,undef,.1);
}
Спасисибо
то что нужно.
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как запустить Перл на Винде? Gynter Болталка 10 06.08.2009 01:08



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ