Интерактивные консольные интерфейсы на перл

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

 

Тока дельфин имхо)

 

как-то так наверно

 

Например так:

Code:

$| =1;
$max = 100;
$str = "[";

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

 

Спасисибо
то что нужно.