VPF::Как задержать и держать строку на экране

Fuksito

Дата 5.3.2008, 19:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 28.2.2008

Репутация: нет
Всего: нет

Вот я поставил задержку в выполнении скрипта, хочу пока он ничего неделает чтобы показывал скольок сейчас секунд и минут но нехочу чтобы перемещало экран чтобы на месте клацали, так можно ?

ginnie

Дата 5.3.2008, 19:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49

Fuksito, попробуй в конце вывода времени добавить "\r".

--------------------

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

Fuksito

Дата 5.3.2008, 19:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 28.2.2008

Репутация: нет
Всего: нет

О да точн. прикольно. А как добавить ведущие нули к секунам теперь ато некрасиво ?

ginnie

Дата 5.3.2008, 19:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49

Код


my $output_string = sprintf('%0.2d:%0.2d', $minutes, $seconds);

--------------------

KSURi

Дата 5.3.2008, 23:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 887
Регистрация: 8.6.2006
Где: Russia

Репутация: 20
Всего: 27

Меня кстати всегда интересовало, почему в таких случаях все используют $var = sprinrf(...); print $var, вместо обычного printf(...)?

Это сообщение отредактировал(а) KSURi - 5.3.2008, 23:04

--------------------

Died at Life.pl line 21

amg

Дата 6.3.2008, 10:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

Репутация: 38
Всего: 50

Вот скриптик, имеющий отношение к теме, который я использую в качестве таймера

Код


$t0 = time;
$| = 1;

if ($ARGV[0] =~ /^(?:(?:(\d+):)?(\d+):)?(\d+)$/) { # таймер
  $t = ($1||0)*3600 + ($2||0)*60 + $3;
  $l = length $t;
  while (1) {
    $rest = $t-time+$t0;
    last if $rest <= 0;
    $rest = sprintf "%02d:%02d", int($rest/60), $rest%60;
    print "\r", $rest, " " x ($l-length($rest));
    sleep 1;
  }
  system("beep");
} else { # секундомер
  while (1) {
    $t = time - $t0;
    printf "\r%02d:%02d", int($t/60), $t%60;
    sleep 1;
  }
}

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »