Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > "Прелоадер" на псевдографике

Автор: nIkTo 30.3.2010, 19:18

Подскажите код своеобразного "прелоадера" на псевдографике.
Помню как-то встречал скрипт который во время выполнения печатал сначала символ "|" потом стирал его и печатал "/","-", "\", "|" и так далее, таким образом можно было визуально наблюдать что скрипт выполняется.

Автор: Pfailed 30.3.2010, 19:45

Код


$| = 1;
while(1)
{
    for('/', '-', '\\', '|')
    {
        print $_, "\r";
        select undef, undef, undef, 0.5;
    }
}