ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander P. Russkih                 2:468/75       13 Feb 2004  10:08:44
 To : All
 Subject : Re: Пауза в программе
 -------------------------------------------------------------------------------- 
 

 .RFC-X-Complaints-To: usenet@home.dialup
 .RFC-NNTP-Posting-Date: Fri, 13 Feb 2004 07:08:45 +0000 (UTC)
 .RFC-X-Accept-Language: ru, uk, en-us, en
 .RFC-In-Reply-To: <c0d5hu$ki6$1@news.rol.ru>
 From: "Alexander P. Russkih" <olden@home.dialup>
 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)
 
 

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