什么是“select((select(s),$| = 1)[0])”在Perl中做？

SELEct((SELEct(s),$|=1)[0])

这是一个讨厌的小习惯用于设置文件句柄而不是STDOUT的自动刷新。

SELEct()接受提供的文件句柄，并且(基本上)用它替换STDOUT，当它完成后，它返回旧的文件句柄。

所以(SELEct($ s)，$ | = 1)重定向文件句柄(记住SELEct返回旧的)，并设置autoflush($ | = 1)。它在列表((…)[0])中执行此操作，并返回第一个值(它是SELEct调用的结果 – 原始STDOUT)，然后将其传递回另一个选择以恢复原始STDOUT文件句柄。 。。

但现在你明白了(好吧，也许;))，这样做：

use IO::Handle;
$fh->autoflush;