ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrew Zhilenko                      2:5020/400     03 Jun 2000  16:22:19
 To : All
 Subject : Re: Хочу написать часы, которые идут в правом верхнем углу консоли.
 -------------------------------------------------------------------------------- 
 

 Hello!
 
 Ivan Prokudin wrote:
 
 > Сабж, и вот вроде сделал и прога работает, но неправильно, вот посмотрите кому
 > не жалко и подскажите чтобы вы сделали.
 
 >     open (VIRTCONS, "/dev/vcs1") || die ("Can't open /dev/vsc1: $!");
 >     $a = <VIRTCONS>;
 >     ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime(time ());
 
 1) Тебе гринвичское время надо, или твое (московское)? Тогда
   юзай localtime без этих мистических $hour+=4 - будет
   правильно показывать время не только в Москве :-)
 2) Получить дату/время в нужном формате без извращений можно
   через POSIX::strftime.
 
 >     $hour += 4;
 >     substr ($a,71,8) = "$hour:$min:$sec";
 >     open (VIRTCONS, ">/dev/vcs1") || die ("Can't open /dev/vcs1: $!");
 >     print VIRTCONS $a;
 
 А должно вообще так работать? Я бы посоветовал все-таки поискать
 что-то из модулей Term::*, и вызывать функции работы с терминалом.
 
 > Btw, в эхотаге есть delay ()?
 
 Видимо, имеется в виду "sleep"?
 
 WBR, Andrew
 -- 
 Andrew Zhilenko, AZ283-RIPE, System Administrator
            Nextra Czech Republic s.r.o. 
 tel.+42-02-96159436          fax. +42-02-96159422
 e-mail: andrew@nextra.com    http://www.nextra.cz
      Vaclavske namesti 4 - Praha 1 - 110 00
                  Czech Republic
 --- ifmail v.2.15dev5
  * Origin: Nextra Czech Republic s.r.o. (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор