5

我正在研究一些套接字代码，但无法弄清楚为什么autoflush在套接字上使用了。是这样的

my $sock = IO::Socket::Unix(Peer => $socketfilename , Type => SOCK_STREAM)

autoflush $sock 1;

还有地方有

autoflush STDERR 1

autoflush STDOUT 1

对于一般文件。

它有什么作用？如果我不使用它会发生什么或将会发生什么？请举一些实际的例子，以便我理解而不是简单的定义。

4

3 回答 3

9

数据通常不会立即在套接字上发送，它会缓冲到某个点，然后一次性发送。

自动刷新意味着数据直接通过缓冲区然后被刷新，而不是保留在缓冲区中等待其他数据到达并累积。

就如此容易。

没有自动冲洗：

Tick | DATA sent|Socket Buffer| DATA received
.....|..........|.............|..............
1    | XX       | XX          | (nothing)
2    | yy       | yyXX        | (nothing)
3    | ZZZ      | ZZZyyXX     | (nothing)
4    | t        | (empty)     | tZZZyyXX

带自动冲洗：

Tick | DATA sent | Socket Buffer | DATA received
.....|...........|...............|..............
1    | XX        | ()            | XX
2    | yy        | ()            | yy
3    | ZZZ       | ()            | ZZZ
4    | t         | ()            | t
  • 套接字缓冲区大小：8 个字符
  • 很简单的例子，看到之后你可能会提出一些其他的问题——其中很大一部分也是依赖于实现的。此外，缓冲可以发生在各个级别（发送方、接收方、应用程序等。）
于 2013-02-22T12:14:17.740 回答
7

它绝对什么都不做……因为 IO::Socket::Unix 已经为你做了。

以块的形式发送数据的开销较小，因此文件库会累积数据以在缓冲区中打印，而不是立即发送到系统。只有当数据已经累积到 4KB 或 8KB（取决于版本）时，才是真正发送到系统的数据。这称为“缓冲”。

将句柄的 autoflush 设置为 true 会禁用该句柄的缓冲。当您调用时，数据在返回print之前被发送到系统。print

看到不同：

$ perl -e'
   STDOUT->autoflush($ARGV[0]);
   for (0..9) { print $_ x 1024; sleep 1; }
' 1
<whole bunch of 1s>
<one second later: whole bunch of 2s>
<one second later: whole bunch of 3s>
<one second later: whole bunch of 4s>
<one second later: whole bunch of 5s>
<one second later: whole bunch of 6s>
<one second later: whole bunch of 7s>
<one second later: whole bunch of 8s>
<one second later: whole bunch of 9s>

$ perl -e'
   STDOUT->autoflush($ARGV[0]);
   for (0..9) { print $_ x 1024; sleep 1; }
' 0
# Before Perl 5.14:
<four seconds later: whole bunch of 0s, 1s, 2s and 3s>
<four seconds later: whole bunch of 4s, 5s, 6s and 7s>
<two seconds later: whole bunch of 8s and 9s>
# Perl 5.14+
<eight seconds later: whole bunch of 0s, 1s, 2s, 3s, 4s, 5s, 6s and 7s>
<two seconds later: whole bunch of 8s and 9s>

autoflush由 IO::Socket::* 打开，因为它在大多数情况下都需要用于套接字。套接字通常用于交互式通信。请求、回复、请求、回复等。想象一下，如果请求被卡在缓冲区中会发生什么……您将永远等待回复！

于 2013-02-22T12:31:49.917 回答
4

从 IO::Handle：

sub autoflush {
    my $old = new SelectSaver qualify($_[0], caller);
    my $prev = $|;
    $| = @_ > 1 ? $_[1] : 1;
    $prev;
}

没有魔法。

来自：

$|

如果设置为非零，则在当前选定的输出通道上每次写入或打印后立即强制刷新。默认值为 0（无论通道是否真的被系统缓冲；$|只告诉您是否明确要求 Perl 在每次写入后刷新）。如果输出到终端，则 STDOUT 通常会被行缓冲，否则会被块缓冲。设置此变量主要在您输出到管道或套接字时很有用，例如当您在 rsh 下运行 Perl 程序并希望看到正在发生的输出时。这对输入缓冲没有影响。请参阅 getc。请参阅选择以了解如何选择输出通道。另请参阅IO::Handle。

于 2013-02-23T12:20:56.013 回答