HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > PHP
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

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

Репутация: 34
По умолчанию Интерактивные консольные интерфейсы на перл

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

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

Репутация: 404
По умолчанию

Тока дельфин имхо)
 
Ответить с цитированием

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

Репутация: 362
По умолчанию

как-то так наверно
 
Ответить с цитированием

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

Репутация: 1676


По умолчанию

Например так:
Код:
$| =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
С нами: 9701691

Репутация: 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 ™ © 2001- Antichat Kft.