- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #2573 [500]
От : Alexander P. Russkih 2:468/75 13 февраля 04, 09:08
Кому : All 14 февраля 04, 22:52
Тема : Re: Пауза в программе
-------------------------------------------------------------------------------
@RFC-NNTP-Posting-Date: Fri, 13 Feb 2004 07:08:45 +0000 (UTC)
From: "Alexander P. Russkih"
Reply-To: rs_alex@bigfoot.com
Roman V Tchemisov wrote:
> Я ничего лучше:
> while ((localtime)[2].(localtime)[1].(localtime)[0] < '022950') {}
> не придумал (опыта мало).
зачем-же грузить процессор лишними тактами цикла? :-(
=== кут хере===
#!/usr/bin/perl -w
use strict;
use English;
my $timeout = 1;
sleep($timeout);
=== кут хере===
этот невзрачный код дает задержку на 1 (одну) секунду.
в минуте 60 секунд, в часе 60*60 секунд, в сутках 60*60*24 секунд, в неделе
60*60*24*7 секунд... дельше продолжать? :-)
--
XMMS: Король И Шут (Как в старой сказке) - Пират
--- Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.5) Gecko/20031007
* Origin: Registered Linux User #341226 (2:468/75@fidonet)