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

[zer0ska]

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

[Kernet]

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

[[dei]]

как-то так (http://search.cpan.org/dist/Term-ProgressBar/) наверно

[Kaimi]

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

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

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

[zer0ska]

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

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

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


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