Date: Wed, 05 Sep 2001 19:01:19 +0100
From: Jasper McCrea <jasper@guideguide.com>
Subject: Re: How can I wait in perl?
Message-Id: <3B96686F.35F79910@guideguide.com>

Jonas Nilsson wrote:
> 
> I wan't to execute a subroutine every 5 seconds or so. How can I make perl
> wait some time without using something processor killer-stupid like:
> sub my_wait {
>     my $secs=shift;
>     my $tmptime=localtime;
>     while ($secs) {
>         my $newtime=localtime;
>         $secs-- if ($tmptime ne $newtime);
>         $tmptime=$newtime;
>     }
> }


sleep?

jasper
-- 
      split//,'019617511192'.
      '17011111610114101114'.
      '21011141011840799901'.
            '17101174';
            foreach(0..         # my
            $#_){$_[$_          # signature is too
            ++]^=$_[$_          # bignature
            --]^=$_[$_
]^=$_[++    $_]if!($_%
2)}$g.=$_  ,chr($g)=~
 /(\w)/&&($o.=$1and
   $g='')foreach@_;
      print"$o\n"