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

Question

我见过一些用 Perl 编写的可怕代码，但我无法弄清楚这一点：

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

它在我们用来与服务器通信的一些网络代码中，我认为它与缓冲有关（因为它设置了<代码>$|）。

但我不明白为什么有多个 select 调用或数组引用。 谁能帮我吗？

Answer 1

在 STDOUT 之外的文件句柄上设置自动刷新是一个令人讨厌的小习惯。

select() 获取提供的文件句柄并（基本上）用它替换 STDOUT，并在完成后返回旧的文件句柄。

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

但现在你明白了（好吧，也许；）），请这样做：

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

Answer 2

弄清楚任何代码的方法就是将其拆开。 您知道括号内的内容先于括号外的内容发生。 这与您了解其他语言中的代码正在执行的操作的方式相同。

第一位是：

( select(s), $|=1 )

该列表有两个元素，它们是两个操作的结果：一个选择 s 文件句柄作为默认值，然后一个将 $| 设置为一个真正的价值。 $| 是每个文件句柄变量之一，仅适用于当前选定的文件句柄（请参阅了解全局变量（参见The effective Perler）。 最后，您将得到一个包含两个项目的列表：之前的默认文件句柄（select 的结果）和 1。

下一部分是文字列表切片，用于提取索引 0 中的项目：

( PREVIOUS_DEFAULT, 1 )[0]

其结果是作为先前默认文件句柄的单个项目。

下一部分获取切片的结果，并将其用作另一个调用 select 的参数。

 select( PREVIOUS_DEFAULT );

因此，实际上，您已在文件句柄上设置了 $| 并结束回到您使用默认文件句柄开始的地方。

Answer 3

select($fh)

选择新的默认文件句柄。 请参阅 http://perldoc.perl.org/functions/select.html

(select($fh), $|=1)

打开自动刷新。 请参阅 http://perldoc.perl.org/perlvar.html

(select($fh), $|=1)[0]

返回此元组的第一个值。

select((select($fh), $|=1)[0])

选择它，即恢复旧的默认文件句柄。

---

相当于

$oldfh = select($fh);
$| = 1;
select($oldfh);

which 含义。

use IO::Handle;
$fh->autoflush(1);

perldoc 页面中演示的

Answer 4

在另一个场合，我曾经提出一个更容易理解的版本是这样的：

for ( select $fh ) { $| = 1; select $_ }

这保留了紧凑习惯用法的唯一优点，即不需要在周围范围中声明变量。

或者，如果您对 $_ 不满意，您可以这样写：

for my $prevfh ( select $fh ) { $| = 1; select $prevfh }

$prevfh 的范围仅限于 for 块。 （但是如果你写 Perl，你真的没有理由对 $_ 感到不安。）

Answer 5

这是一个过于聪明的代码，用于打开句柄 s 上的缓冲区刷新，然后重新选择当前句柄。

请参阅 perldoc -f select 了解更多信息。

Answer 6

跳过加载 IO::Handle 是过度优化的。

use IO::Handle;
$fh->autoflush(1);

更具可读性。