- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #2542 [500]
От : Sergey Leschenko 2:5020/400 11 февраля 04, 15:15
Кому : Roman V Tchemisov 14 февраля 04, 22:51
Тема : Re: Пауза в программе
-------------------------------------------------------------------------------
From: "Sergey Leschenko"
Roman V Tchemisov wrote:
> Hужно сделать задержку в программе.
> Скрипт запускается в 02:29:00, выполняет подготовительные действия. После
> этого нужно
> сделать паузу до 02:29:50. Затем поработать до 02:30:10 и после этого
> завершить работу.
>
> Я ничего лучше:
>
> while ((localtime)[2].(localtime)[1].(localtime)[0] < '022950') {}
например, такой вариант:
use Time::Local;
$wakeup = timelocal(50, 29, 2, ... );
sleep($wakeup - time());
...
--
Best regards,
Sergey
--- ifmail v.2.15dev5.3
* Origin: Adamant ISP news server (2:5020/400)