Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)
-   -   Интерактивные консольные интерфейсы на перл (https://forum.antichat.xyz/showthread.php?t=94501)

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

Kernet 02.12.2008 20:25
Тока дельфин имхо)

[dei] 02.12.2008 20:40
как-то так наверно

Kaimi 02.12.2008 21:58
Например так:
Код:
$| =1;
$max = 100;
$str = "[";

for(1..100) {
$str .= ($_ % 10) ? ("") : ("|");
print $str."]";
print int(($_/$max)*100)."\r";
select(undef,undef,undef,.1);
}

zer0ska 03.12.2008 14:42
Цитата:
Сообщение от Kaimi
Например так:
Код:
$| =1;
$max = 100;
$str = "[";

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


Время: 09:04