Re: Doing every X seconds

#!/usr/bin/perl
  
use strict;

$SIG{ALRM} = sub {
  print "do something else\n";
  alarm 3;
};

alarm 3;

while (1) {
  sleep 1;
  print "do some work\n";
}
[download]

Comment on Re: Doing every X seconds Download Code

Replies are listed 'Best First'.
Re^2: Doing every X seconds by bliako (Abbot) on Aug 05, 2018 at 22:51 UTC
++!	[reply]