|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Ivan Prokudin 2:5020/1724.60 02 Jun 2000 17:38:16
To : ALL
Subject : Хочу написать часы, которые идут в правом верхнем углу консоли.
--------------------------------------------------------------------------------
Сабж, и вот вроде сделал и прога работает, но неправильно, вот посмотрите кому
не жалко и подскажите чтобы вы сделали.
>[..Здесь мы начали clock.pl..]
#!/usr/bin/perl -w
$tmer = time ();
while () {
if ((time () - $tmer) >= 1) {
$tmer = time ();
open (VIRTCONS, "/dev/vcs1") || die ("Can't open /dev/vsc1: $!");
$a = <VIRTCONS>;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime(time ());
$hour += 4;
substr ($a,71,8) = "$hour:$min:$sec";
open (VIRTCONS, ">/dev/vcs1") || die ("Can't open /dev/vcs1: $!");
print VIRTCONS $a;
close (VIRTCONS);
}
}
>[..Здесь мы кончили clock.pl..]
Часы кто не понял под линухом, в котором есть виртуальные консоли (/dev/vcsN).
Переключаетесь на первую консоль и смотрите. А теперь баги:
1) Часы мигают.
2) Экран куда-то сьезжает.
Btw, в эхотаге есть delay ()?
С u l8r, Ivan (cyberbat@newmail.ru) 02 Jun 2000 года
icq# 29030891
--- Это письмо рождено в муках голым дедом версии 1.1.4.3/LNX.
* Origin: ...Life is Suxxx... (2:5020/1724.60)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
