https://opennet.ru/openforum/vsluhforumID9/9122.html Суть: нужно создать несколько (в идеале до бесконечности) "таймеров".<br>То есть я хочу, чтобы в рамках одного процесса разные функции вызывались с различными интервалами.<br>К примеру:<br>sub f1 {<br>print STDOUT "Func1\n";<br>}<br>sub f2 {<br>print STDOUT "Func2\n";<br>}<br>Чтобы, скажем, f1 вызывалась раз в 4 секунды, а f2 раз в 9 секунд.<br><br>Читал про Time::HiRes и setitimer в нем, но, кажется, оно меня не спасет.<br>Подскажите, плз.<br> https://opennet.ru/openforum/vsluhforumID9/9122.html#2 Wed, 11 May 2011 13:23:33 GMT Сделай что-нибудь в духе Discrete Event Simulation:<br>[code]<br>my $time = 0;<br>sub func1{ print "func1: $time\n"; }<br>sub func2{ print "func2: $time\n"; }<br><br>my %sch = (<br> ev1 =&gt; { INT =&gt; 4, C =&gt; 4, DO =&gt; \&func1 },<br> ev2 =&gt; { INT =&gt; 9, C =&gt; 9, DO =&gt; \&func2 }<br>);<br><br>while (1) {<br> my $ntime = LONG_MAX;<br> foreach my $k (keys %sch) {<br> $ntime = $sch{$k}{C} if ($ntime&gt; $sch{$k}{C});<br> }<br> sleep($ntime-$time);<br> $time = $ntime;<br> foreach my $k (keys %sch) {<br> if ($sch{$k}{C} &lt;= $time) {<br> $sch{$k}{C} += $sch{$k}{INT};<br> &{$sch{$k}{DO}};<br> }<br> }<br>}<br>[/code]<br> https://opennet.ru/openforum/vsluhforumID9/9122.html#1 Tue, 10 May 2011 23:32:44 GMT &gt;[оверквотинг удален]