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

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

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

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

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