perl - 选择 undef, undef, undef .XX

Question

几年前，当我最初学习 Perl 时，我发现自己想说一些类似的话:

sleep .07;

但这实际上行不通。

有人教我使用:

select undef, undef, undef, .07;

反而。

我一直在想:
这是什么意思，为什么有效？

Answer 1

这使用了 select 的第三种形式记录在案:

select RBITS,WBITS,EBITS,TIMEOUT

This calls the select(2) syscall with the bit masks specified

....

You can effect a sleep of 250 milliseconds this way:

    select(undef, undef, undef, 0.25);

实现此功能的更好方法是使用 Time::HiRes qw(usleep)

use Time::HiRes qw(usleep);

usleep($microseconds);