|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Igor Nikolaev 2:5030/266 12 Jun 2000 05:01:56
To : Ivan Prokudin
Subject : Re: Хочу написать часы, которые идут в правом верхнем углу консоли.
--------------------------------------------------------------------------------
Ivan Prokudin <Ivan_Prokudin@p60.f1724.n5020.z2.fidonet.org> wrote:
> Сабж, и вот вроде сделал и прога работает, но неправильно, вот посмотрите кому
> while () {
Маленькие задержки делаются при помощи select
> open (VIRTCONS, "/dev/vcs1") || die ("Can't open /dev/vsc1: $!");
Может сразу открыть на чтение и запись?
И никогда больше не закрывать - всё равно
экран ужо загажен в хлам ;-)
> ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime(time ());
> $hour += 4;
Ты бы ещё к году 1900 прибавил ;-) localtime?
> substr ($a,71,8) = "$hour:$min:$sec";
В unix есть нормальные команды на тему
позиционирования etc. Hа cpan есть масса
библиотек на эту тему. Подсказывать лень.
> 1) Часы мигают.
> 2) Экран куда-то сьезжает.
Поставь Xwindow и перестань маяться этим ;-)
> С u l8r, Ivan (cyberbat@newmail.ru) 02 Jun 2000 года
--
Игорь Hиколаев
--- ifmail v.2.12.os.sensi
* Origin: Смотрю в календарь - я знаю что скоро зима (2:5030/266@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Хочу написать часы, которые идут в правом верхнем углу консоли.