форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[ Отслеживать ]

"прогресс бар в командной строке"

Сообщение от undef on 29-Янв-08, 11:26

как в perl скрипте нарисовать прогресс бар (что-то типа того что рисует wget или ftp) т.е. грубо говоря, много раз писать в одно и тоже место на экране

Высказать мнение | Ответить | Правка | Cообщить модератору

Сообщения по теме

[Сортировка по времени | RSS]

1. "прогресс бар в командной строке"

Сообщение от angra (ok) on 29-Янв-08, 11:49

Начните с Term::ProgressBar, если что-то не устраивает гляньте в его сорцы :)

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

2. "прогресс бар в командной строке"

Сообщение от idle (ok) on 29-Янв-08, 12:26

>как в perl скрипте нарисовать прогресс бар (что-то типа того что рисует >wget или ftp) >т.е. грубо говоря, много раз писать в одно и тоже место на >экране $|=1; do{ print prog_bar( $_, 100, 25, '=' ); select(undef,undef,undef, .1) } for 1..100; sub prog_bar {    my ( $g, $t, $w, $c ) = @_;    $w ||= 25;    $c ||= '=';    $n_w = length $t;    sprintf "|%-${w}s| Got %${n_w}s bytes of %s (%.2f%%)\r", $c x (($w-1)*$g/$t). '>', $g, $t, 100*$g/$t; } Не помню откуда.

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

3. "прогресс бар в командной строке"

Сообщение от Andrey Mitrofanov on 29-Янв-08, 13:42

>как в perl скрипте нарисовать прогресс бар (что-то типа того что рисует >wget или ftp) Не на перле, но на bash+awk для коллекции :), пару дней назад на planet.debian.net было: http://chris-lamb.co.uk/2008/01/24/can-you-get-cp-to-give-a-.../ >т.е. грубо говоря, много раз писать в одно и тоже место на экране Как-как, не перевод строки "говорить", а возрат каретки и переписывать всю строку. Или esc-последовательностями курсор двигать и не всю строку переписывать, но это хлопотнее намного.

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить	Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]