perl - 使用 chomp() 时打印失败

Question

所以我在使用 while 循环遍历套接字时遇到了这个问题。

当我使用它时，它完全可以正常工作，但我在每个 $message 上都有换行符，这是我不想要的。

my $socket = new IO::Socket::INET (
    LocalHost => "127.0.0.1", 
    LocalPort => "12345", 
    Proto => 'tcp', 
    Listen => 1, 
    Reuse => 1
);
my $client = $socket->accept();
while(<$client>) {
    my $message = $_;
    print $message;
}

但是当我添加 chomp 时，循环只有在我断开客户端连接时才结束(我明白为什么)。我的猜测是 chomp 从 $_ 变量中删除了换行符，因此循环将不再有效。

my $socket = new IO::Socket::INET (
    LocalHost => "127.0.0.1", 
    LocalPort => "12345", 
    Proto => 'tcp', 
    Listen => 1, 
    Reuse => 1
);
my $client = $socket->accept();
while(<$client>) {
    my $message = $_;
    chomp($message);
    print $message;
}

所以我的问题是:如何在消息中不包含换行符的情况下循环遍历套接字(换行符终止)？

非常感谢!

Answer 1

chomp 是在 $_ 的副本上创建的，因此它根本不会影响套接字句柄。更有可能的是，删除换行符会使您的打印语句在缓冲区中等待，并在脚本终止后执行。

换句话说:这不是错误，只是延迟。

尝试使用 autoflush立即执行打印。

$| = 1;