Re^2: missing second of time

Nice. Here's a way using select(), so that there's no need for non-core modules (ie. Time::Hires):

use strict;
use warnings;

my $fudgefactor = 0.01;

while (1) {
  my $nextsecond = int time + 1;
  select(undef, undef, undef, $nextsecond - time - $fudgefactor);
  1 while time < $nextsecond;
  printf "%.6f\n", time;
}
[download]

Output:

1579973997.000000
1579973998.000000
1579973999.000000
1579974000.000000
1579974001.000000
^C
[download]

Comment on Re^2: missing second of time Select or Download Code

Replies are listed 'Best First'.
Re^3: missing second of time by davido (Cardinal) on Jan 25, 2020 at 22:53 UTC
Time::HiRes is core Perl, as much as strict. `$ corelist Time::HiRes Data for 2020-01-20 Time::HiRes was first released with perl v5.7.3` [download] Dave	[reply] [d/l]