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是$_的副本，因此它根本不会影响套接字句柄。更有可能的是，删除换行符会使您的print语句在缓冲区中等待，并在脚本终止后执行。

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

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

$| = 1;

使用chomp（）时打印失败

1 个答案: